let
p_neq e1 e2 =
if
eq_terms e1 e2
then
Pfalse
else
p_app
"neq"
[e1; e2]