-%% 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)".
theorem b:
\forall x:Prop.
(not x) \to x \to False.
-intro.
+intros.
apply H.
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".
\forall A:Set.
\forall x,y : A.
not (x=y) \to not (x=y).
-intro.
+intros.
apply H.
qed.