X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Ftr_pap_tls.ma;h=da8ea1519527fc2299f606b796ea0a4ae5b1496c;hb=8f1a123e61ff079b1f9ad63cc915470ec7e6abf3;hp=978d360f6f20dcb038b5c9217c6558c97d35e02c;hpb=01b17de504f0049c15eadcdad651a19adaa954f7;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/tr_pap_tls.ma b/matita/matita/contribs/lambdadelta/ground/relocation/tr_pap_tls.ma
index 978d360f6..da8ea1519 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/tr_pap_tls.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/tr_pap_tls.ma
@@ -19,9 +19,9 @@ include "ground/lib/stream_tls.ma".
 
 (* Constructions with stream_tls ********************************************)
 
-lemma tr_pap_plus (i1) (i2) (f):
-      (⇂*[ninj i2]f)@❨i1❩+f@❨i2❩ = f@❨i1+i2❩.
-#i1 #i2 elim i2 -i2
+lemma tr_pap_plus (p1) (p2) (f):
+      (⇂*[ninj p2]f)＠⧣❨p1❩+f＠⧣❨p2❩ = f＠⧣❨p1+p2❩.
+#p1 #p2 elim p2 -p2
 [ * #p #f //
 | #i #IH * #p #f
   <pplus_succ_dx <tr_pap_succ <tr_pap_succ