From: Claudio Sacerdoti Coen Date: Tue, 14 Jun 2005 08:20:37 +0000 (+0000) Subject: incomplete proof completed X-Git-Tag: PRE_STORAGE~35 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;ds=sidebyside;h=7fb4b063ed9488bbffa34d1cd193fca6c288a425;p=helm.git incomplete proof completed --- diff --git a/helm/matita/tests/rewrite.ma b/helm/matita/tests/rewrite.ma index e99d75e83..82f245185 100644 --- a/helm/matita/tests/rewrite.ma +++ b/helm/matita/tests/rewrite.ma @@ -6,4 +6,6 @@ theorem a: \forall a,b:nat. a = b \to b + 0 = a. intros. -rewrite left H. \ No newline at end of file +rewrite left H. +auto. +qed. \ No newline at end of file diff --git a/helm/matita/tests/simpl.ma b/helm/matita/tests/simpl.ma index c455b7692..8b0f1a6a0 100644 --- a/helm/matita/tests/simpl.ma +++ b/helm/matita/tests/simpl.ma @@ -4,5 +4,9 @@ theorem a : \forall A:Set. \forall x,y : A. not (x = y) \to not(y = x). -intro. +intros. simplify. +intro. apply H. +symmetry. +exact H1. +qed. \ No newline at end of file diff --git a/helm/matita/tests/test2.ma b/helm/matita/tests/test2.ma index 29c694d5f..c3f3c36b8 100644 --- a/helm/matita/tests/test2.ma +++ b/helm/matita/tests/test2.ma @@ -4,4 +4,6 @@ alias symbol "eq" (instance 0) = "leibnitz's equality". theorem a:\forall x:nat.x=x\land x=x. intro. split. -goal 6. \ No newline at end of file +reflexivity. +reflexivity. +qed. \ No newline at end of file