A supart slot is a unary function from COMPONENTs to other components. It is antisymmetric and irreflexive.
(=> (Has-Subpart-Slot $X $Y) (Subpart-Slot $Y)) (<= (Range $X Component) (Subpart-Slot $X)) (<= (Domain $X Component) (Subpart-Slot $X))