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)) →