(<=> (Legal-Entity ?X)
(And (Eo-Entity ?X)
(Or (Person ?X) (Corporation ?X) (Partnership ?X))))
(Inherited-Facet-Value Slot-Value-Type
Shareholding
Corporation-Of
Corporation)
(Exhaustive-Subclass-Partition Legal-Entity
(Setof Person Corporation Partnership))