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