X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsyntax%2Fprototerm_proper_constructors.ma;h=c5a27617ab02de792f623bf197962e0a60df4a11;hb=797a607af83f82102033270087722a7e59ddcd17;hp=309eb00246b0a93089a18aead73907caf3dab2c4;hpb=3bf7a0b4185dbffe5b822c907956acdbe2d1c559;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/syntax/prototerm_proper_constructors.ma b/matita/matita/contribs/lambdadelta/delayed_updating/syntax/prototerm_proper_constructors.ma
index 309eb0024..c5a27617a 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/syntax/prototerm_proper_constructors.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/syntax/prototerm_proper_constructors.ma
@@ -19,7 +19,12 @@ include "delayed_updating/syntax/prototerm_constructors.ma".
 
 (* Constructions with prototerm constructors ********************************)
 
-lemma ppc_iref (t) (n):
-      (𝛕n.t) ϵ 𝐏.
-#t #n #p * #q #Hq #H0 destruct //
+lemma ppc_iref (t) (k):
+      (𝛕k.t) ϵ 𝐏.
+#t #k #p * #q #Hq #H0 destruct //
+qed.
+
+lemma ppc_iref2 (t) (k) (d):
+      (𝛕❨k,d❩.t) ϵ 𝐏.
+#t #k #d #p * #q #Hq #H0 destruct //
 qed.