(<=> (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)))))
(=> (Equation ?X) (Relsent ?X)) (=> (Inequality ?X) (Relsent ?X))
(<=> (Equation ?X)
(And (Relsent ?X)
(Exists (?T1 ?T2)
(And (Term ?T1)
(Term ?T2)
(= ?X (Listof '= ?T1 ?T2))))))
(<=> (Inequality ?X)
(And (Relsent ?X)
(Exists (?T1 ?T2)
(And (Term ?T1)
(Term ?T2)
(= ?X (Listof '/= ?T1 ?T2))))))