X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Ftr_pap.ma;h=9dfe0c18e4a8c58babe2773923d10b8116a05719;hb=73cc0c523c5264f2883c25f6735be325e5cfd1da;hp=670dbd8ca85cce480c69ae016636bba47d57eab3;hpb=345b9054da93e11139d3dfe07f83e444e3022fc1;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/tr_pap.ma b/matita/matita/contribs/lambdadelta/ground/relocation/tr_pap.ma
index 670dbd8ca..9dfe0c18e 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/tr_pap.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/tr_pap.ma
@@ -34,11 +34,11 @@ interpretation
 (* Basic constructions ******************************************************)
 
 (*** apply_O1 *)
-lemma tr_pap_unit (f):
+lemma tr_cons_pap_unit (f):
       ∀p. p = (p⨮f)＠⧣❨𝟏❩.
 // qed.
 
 (*** apply_S1 *)
-lemma tr_pap_succ (f):
+lemma tr_cons_pap_succ (f):
       ∀p,i. f＠⧣❨i❩+p = (p⨮f)＠⧣❨↑i❩.
 // qed.