X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Ftr_compose_pap.ma;h=5114c745b99757450aa38bfe5fef681e484b0d44;hb=73cc0c523c5264f2883c25f6735be325e5cfd1da;hp=7854b2a69a6323058937fdf2fa9b1908c5b83ccc;hpb=345b9054da93e11139d3dfe07f83e444e3022fc1;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/tr_compose_pap.ma b/matita/matita/contribs/lambdadelta/ground/relocation/tr_compose_pap.ma
index 7854b2a69..5114c745b 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/tr_compose_pap.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/tr_compose_pap.ma
@@ -24,8 +24,8 @@ lemma tr_compose_pap (i) (f1) (f2):
       f2＠⧣❨f1＠⧣❨i❩❩ = (f2∘f1)＠⧣❨i❩.
 #i elim i -i
 [ * #p1 #f1 #f2
-  <tr_compose_unfold <tr_pap_unit <tr_pap_unit //
+  <tr_compose_unfold <tr_cons_pap_unit <tr_cons_pap_unit //
 | #i #IH * #p1 #f1 #f2
-  <tr_compose_unfold <tr_pap_succ <tr_pap_succ //
+  <tr_compose_unfold <tr_cons_pap_succ <tr_cons_pap_succ //
 ]
 qed.