(<=> (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) (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)))))