X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Ftests%2Fapply.ma;fp=helm%2Fmatita%2Ftests%2Fapply.ma;h=d1be8262fbf6c5540d0ea27b03f0aa6f79894de6;hb=46638981d5909c89b85fda70016748942366153f;hp=9e86635170f0c5e7e16dd0f23d5b0ff7de144d2f;hpb=c720c4687a4290cfb85f6c4d2a9f238450ef0d5a;p=helm.git diff --git a/helm/matita/tests/apply.ma b/helm/matita/tests/apply.ma index 9e8663517..d1be8262f 100644 --- a/helm/matita/tests/apply.ma +++ b/helm/matita/tests/apply.ma @@ -6,7 +6,7 @@ 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. @@ -19,6 +19,6 @@ theorem a: \forall A:Set. \forall x,y : A. not (x=y) \to not (x=y). -intro. +intros. apply H. qed.