(=> (Item ?X ?List) (Or (= ?X (First ?List)) (Item ?X (Rest ?List)))) (=> (Composition-Of@Frame-Ontology ?Binary-Relation ?List-Of-Relations) (Or (And (Single ?List-Of-Relations) (= ?Binary-Relation (First ?List-Of-Relations))) (And (Double ?List-Of-Relations) (= ?Binary-Relation (Composition@Ol-User%Kif-Relations (First (Rest ?List-Of-Relations)) (First ?List-Of-Relations)))) (Exists (?Left-Sub-Relation) (And (= ?Binary-Relation (Composition@Ol-User%Kif-Relations (Last ?List-Of-Relations) ?Left-Sub-Relation)) (Composition-Of@Frame-Ontology ?Left-Sub-Relation (Butlast ?List-Of-Relations)))))) (=> (Listterm@Ol-User%Kif-Meta ?Expr) (= (First ?Expr) 'Listof)) (=> (Setterm@Ol-User%Kif-Meta ?Expr) (= (First ?Expr) 'Setof)) (=> (Quoterm@Ol-User%Kif-Meta ?Expr) (Expression@Ol-User%Kif-Meta (First (First ?Expr))))
(<=> (Composition-Of@Frame-Ontology ?Binary-Relation ?List-Of-Relations) (And (Binary-Relation@Ol-User%Kif-Relations ?Binary-Relation) (List ?List-Of-Relations) (Not (Null ?List-Of-Relations)) (=> (Item ?R ?List-Of-Relations) (Binary-Relation@Ol-User%Kif-Relations ?R)) (Or (And (Single ?List-Of-Relations) (= ?Binary-Relation (First ?List-Of-Relations))) (And (Double ?List-Of-Relations) (= ?Binary-Relation (Composition@Ol-User%Kif-Relations (First (Rest ?List-Of-Relations)) (First ?List-Of-Relations)))) (Exists (?Left-Sub-Relation) (And (= ?Binary-Relation (Composition@Ol-User%Kif-Relations (Last ?List-Of-Relations) ?Left-Sub-Relation)) (Composition-Of@Frame-Ontology ?Left-Sub-Relation (Butlast ?List-Of-Relations))))))) (<=> (Funterm@Ol-User%Kif-Meta ?Expr) (And (Term@Ol-User%Kif-Meta ?Expr) (List ?Expr) (Value-Type@Frame-Ontology ?Expr First Funconst@Ol-User%Kif-Meta) (Value-Cardinality@Frame-Ontology ?Expr First 1))) (<=> (Listterm@Ol-User%Kif-Meta ?Expr) (And (Term@Ol-User%Kif-Meta ?Expr) (List ?Expr) (= (First ?Expr) 'Listof))) (<=> (Setterm@Ol-User%Kif-Meta ?Expr) (And (Term@Ol-User%Kif-Meta ?Expr) (List ?Expr) (= (First ?Expr) 'Setof))) (<=> (Quoterm@Ol-User%Kif-Meta ?Expr) (And (Term@Ol-User%Kif-Meta ?Expr) (List ?Expr) (= (First ?Expr) 'Quote) (Expression@Ol-User%Kif-Meta (First (First ?Expr)))))