From abebcd2bf6ea9a97a1ae8f11a1aeb5d500a1e75d Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Mon, 27 Jun 2005 10:45:18 +0000 Subject: [PATCH] more complex --- helm/matita/tests/rewrite.ma | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/helm/matita/tests/rewrite.ma b/helm/matita/tests/rewrite.ma index 1c7308836..72e80987d 100644 --- a/helm/matita/tests/rewrite.ma +++ b/helm/matita/tests/rewrite.ma @@ -3,23 +3,18 @@ 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 a + b = ((\lambda w.((\lambda x.x + b) a)) b). + a = b \to b + a + b + a= (\lambda j.((\lambda w.((\lambda x.x + b + w + j) a)) b)) a. intros. +rewrite right H in \vdash (? ? ? ((\lambda j.((\lambda w.%) ?)) ?)). -(* 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.%) ?)). +simplify in \vdash (? ? ? ((\lambda x.((\lambda y.%) ?)) ?)). -(* a + a = (\w.a + a) [[ b ]] *) -rewrite right H in \vdash (? ? ? (? %)). +rewrite right H in \vdash (? ? ? (% ?)). simplify. reflexivity. qed. -- 2.39.2