X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsubstitution%2Flift_prototerm_proper.ma;h=7e7236dbd3b6131778a21a8faf6bbdec20a9b11a;hb=7008128d354c6e998a87bc2febe9f86ea714869c;hp=a9b16219f04c4988c46b2af043c604e5905fba26;hpb=f5fa6554c93bec72a5bb098c0a2991fe294883b6;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_prototerm_proper.ma b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_prototerm_proper.ma
index a9b16219f..7e7236dbd 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_prototerm_proper.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_prototerm_proper.ma
@@ -21,7 +21,7 @@ include "delayed_updating/syntax/prototerm_proper.ma".
 (* Constructions with proper condition for path *****************************)
 
 lemma lift_term_proper (f) (t):
-      t ϵ 𝐏 → ↑[f]t ϵ 𝐏.
+      t ϵ 𝐏 → 🠡[f]t ϵ 𝐏.
 #f #t #Ht #p * #q #Hq #H0 destruct
 @lift_path_proper @Ht -Ht // (**) (* auto fails *)
 qed.
@@ -29,8 +29,8 @@ qed.
 (* Inversions with proper condition for path ********************************)
 
 lemma lift_term_inv_proper (f) (t):
-      ↑[f]t ϵ 𝐏 → t ϵ 𝐏.
+      🠡[f]t ϵ 𝐏 → t ϵ 𝐏.
 #f #t #Ht #p #Hp
 @(lift_path_inv_proper f)
-@Ht -Ht @in_comp_lift_bi // (**) (* auto fails *)
+@Ht -Ht @in_comp_lift_path_term // (**) (* auto fails *)
 qed-.