Merge branch 'master' of ssh://matita.cs.unibo.it:/srv/git/helm

[helm.git] / matita / matita / contribs / lambdadelta / delayed_updating / syntax / path_reverse.ma

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/syntax/path_reverse.ma b/matita/matita/contribs/lambdadelta/delayed_updating/syntax/path_reverse.ma
index 43d9d85e8cc87de808c7b1f26ae1e57430146c38..7fa03a41e2f15abbd568575254b9b400b77a780a 100644 (file)
--- a/matita/matita/contribs/lambdadelta/delayed_updating/syntax/path_reverse.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/syntax/path_reverse.ma
@@ -51,3 +51,12 @@ lemma reverse_rcons (p) (l):
 #p #l
 <reverse_append //
 qed.
+
+(* Main constructions *******************************************************)
+
+theorem reverse_reverse (p):
+        p = pᴿᴿ.
+#p elim p -p //
+#l #p #IH
+<reverse_lcons <reverse_rcons //
+qed.