X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsyntax%2Fpath_reverse.ma;h=046404f0375e4b32f626794cb2c0e81b243000e4;hb=ad6182251b8192ee7d25c53156afbce35e3715b6;hp=43d9d85e8cc87de808c7b1f26ae1e57430146c38;hpb=97ff918432e878ab8314c72fe2b948a253b26e21;p=helm.git

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 43d9d85e8..046404f03 100644
--- 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_revrse (p):
+        p = pá´¿á´¿.
+#p elim p -p //
+#l #p #IH
+<reverse_lcons <reverse_rcons //
+qed.