(<=> (Funterm ?Expr)
(And (Term ?Expr)
(List ?Expr)
(Value-Type@Frame-Ontology ?Expr First Funconst)
(Value-Cardinality@Frame-Ontology ?Expr First 1)))
(<=> (Relsent ?X)
(Exists (?R ?Tlist)
(And (Or (Relconst ?R) (Funconst ?R))
(List ?Tlist)
(>= (Length ?Tlist) 1)
(=> (Item ?T ?Tlist) (Term ?T))
(= ?X (Cons ?R ?Tlist)))))