has-subcomponent is the inverse of subcomponent-of. (has-subcomponent A B) iff B is a subcomponent-of A.
(<=> (Has-Subcomponent $Arg1 $Arg2) (Subcomponent-Of $Arg2 $Arg1))