From 343d12bf023859c1f2f377eb90e4458f35e3b3ac Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Fri, 24 Jun 2005 17:16:27 +0000 Subject: [PATCH] fix --- helm/matita/tests/rewrite.ma | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/helm/matita/tests/rewrite.ma b/helm/matita/tests/rewrite.ma index e597e66ef..1c7308836 100644 --- a/helm/matita/tests/rewrite.ma +++ b/helm/matita/tests/rewrite.ma @@ -2,10 +2,24 @@ alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)". alias num (instance 0) = "natural number". alias symbol "eq" (instance 0) = "leibnitz's equality". alias symbol "plus" (instance 0) = "natural plus". + +(* with the unary [[ - ]] we point the term that the path refers to *) theorem a: \forall a,b:nat. - a = b \to b + a = a + a. + a = b \to a + b = ((\lambda w.((\lambda x.x + b) a)) b). intros. + +(* a + b = (\w.(\x. [[ x + b ]] ) a) b *) +rewrite right H in \vdash (? ? ? ((\lambda x.%) ?)). + +(* [[ a + b ]] = (\w.(\x.x + a) a) b *) rewrite right H in \vdash (? ? % ?). + +(* a + a = (\w. [[ (\x.x + a) a ]] b *) +simplify in \vdash (? ? ? ((\lambda x.%) ?)). + +(* a + a = (\w.a + a) [[ b ]] *) +rewrite right H in \vdash (? ? ? (? %)). +simplify. reflexivity. -qed. \ No newline at end of file +qed. -- 2.39.2