From 7fb4b063ed9488bbffa34d1cd193fca6c288a425 Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Tue, 14 Jun 2005 08:20:37 +0000 Subject: [PATCH] incomplete proof completed --- helm/matita/tests/rewrite.ma | 4 +++- helm/matita/tests/simpl.ma | 6 +++++- helm/matita/tests/test2.ma | 4 +++- 3 files changed, 11 insertions(+), 3 deletions(-) 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 -- 2.39.2