-%% test _with_ the WHD on the apply argument
+(* test _with_ the WHD on the apply argument *)
+set "baseuri" "cic:/matita/tests/apply/".
alias id "not" = "cic:/Coq/Init/Logic/not.con".
alias id "False" = "cic:/Coq/Init/Logic/False.ind#xpointer(1/1)".
assumption.
qed.
-%% test _without_ the WHD on the apply argument
+(* test _without_ the WHD on the apply argument *)
alias symbol "eq" (instance 0) = "leibnitz's equality".
theorem a:
\forall A:Set.
- \forall x,y : A.
- not (x=y) \to not (x=y).
+ \forall x: A.
+ not (x=x) \to not (x=x).
intros.
apply H.
qed.