X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsubstitution%2Flift.ma;h=0293e8666246edbb81fc0e9dc9e9c9f57eb7ab73;hb=cc178d85bc4fec05b6a9dd176f338b3275beb3d9;hp=f0d5ebd58e4c1eef44ee72b128b1eecfd95b5847;hpb=5489d0b66ed7bff17b9dedb89708f57f1d542adc;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift.ma b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift.ma
index f0d5ebd58..0293e8666 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift.ma
@@ -26,7 +26,7 @@ definition lift_continuation (A:Type[0]) ≝
 (* Note: inner numeric labels are not liftable, so they are removed *)
 rec definition lift_gen (A:Type[0]) (k:lift_continuation A) (p) (f) on p ≝
 match p with
-[ list_empty     ⇒ k 𝐞 f
+[ list_empty     ⇒ k (𝐞) f
 | list_lcons l q ⇒
   match l with
   [ label_node_d n ⇒
@@ -59,7 +59,7 @@ interpretation
 (* Basic constructions ******************************************************)
 
 lemma lift_empty (A) (k) (f):
-      k 𝐞 f = ↑{A}❨k, 𝐞, f❩.
+      k (𝐞) f = ↑{A}❨k, 𝐞, f❩.
 // qed.
 
 lemma lift_d_empty_sn (A) (k) (n) (f):
@@ -123,8 +123,8 @@ qed.
 (* Advanced eliminations with path ******************************************)
 
 lemma path_ind_lift (Q:predicate …):
-      Q 𝐞 →
-      (∀n. Q 𝐞 → Q (𝗱❨n❩◗𝐞)) →
+      Q (𝐞) →
+      (∀n. Q (𝐞) → Q (𝗱❨n❩◗𝐞)) →
       (∀n,l,p. Q (l◗p) → Q (𝗱❨n❩◗l◗p)) →
       (∀p. Q p → Q (𝗟◗p)) →
       (∀p. Q p → Q (𝗔◗p)) →