(<=> (Plan ?X) (Exists (?Soa) (Intended-Purpose ?X ?Soa)))
(=> (Planning ?Planning)
(Exists (?Plan ?Aspec)
(And (Plan ?Plan)
(Activity-Spec ?Aspec)
(Execution-Of-Activity-Spec ?Aspec ?Planning)
(Intended-Purpose ?Aspec
'(Actual-Output ?Planning ?Plan)))))
(=> (Sub-Plan ?Sub-Plan) (Plan ?Sub-Plan))
(<=> (Sub-Plan ?Sub-Plan)
(And (Plan ?Sub-Plan)
(Qua-Entity ?Sub-Plan)
(Exists (?Plan) (Sub-Plan-Of ?Sub-Plan ?Plan))))
(<=> (Sub-Plan-Of ?Sub-Plan ?Plan)
(And (Plan ?Plan)
(Plan ?Sub-Plan)
(Exists (?Purpose ?Sub-Purpose)
(And (Intended-Purpose ?Plan ?Purpose)
(Intended-Purpose ?Sub-Plan ?Sub-Purpose)
(Help-Achieve ?Sub-Purpose ?Purpose)))))