(<=> (Quoterm ?Expr) (And (Term ?Expr) (List ?Expr) (= (First ?Expr) (Quote Quote)) (Expression (First (First ?Expr)))))
(Expression (First (First ?Expr))) (= (First ?Expr) (Quote Quote)) (List ?Expr) (Term ?Expr)
(Exhaustive-Subclass-Partition Term (Setof Variable Constant Listterm Setterm Quoterm Logterm Quanterm)) (<=> (Quoterm ?Expr) (And (Term ?Expr) (List ?Expr) (= (First ?Expr) (Quote Quote)) (Expression (First (First ?Expr)))))