X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsubstitution%2Flift_prototerm_id.ma;h=401e2f2ce33425280df558fd061c15e2c6a40cb0;hb=7008128d354c6e998a87bc2febe9f86ea714869c;hp=11e39983bf1afdabcea20f02795ee45e49842034;hpb=a4cacf8e269910184348a037106551dbc8a46fd4;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_prototerm_id.ma b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_prototerm_id.ma index 11e39983b..401e2f2ce 100644 --- a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_prototerm_id.ma +++ b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_prototerm_id.ma @@ -20,18 +20,18 @@ include "delayed_updating/substitution/lift_path_id.ma". (* Constructions with tr_id *************************************************) lemma lift_term_id_sn (t): - t ⊆ ↑[𝐢]t. + t ⊆ 🠡[𝐢]t. #t #p #Hp >(lift_path_id p) /2 width=1 by in_comp_lift_path_term/ qed-. lemma lift_term_id_dx (t): - ↑[𝐢]t ⊆ t. + 🠡[𝐢]t ⊆ t. #t #p * #q #Hq #H destruct // qed-. lemma lift_term_id (t): - t ⇔ ↑[𝐢]t. -/3 width=2 by lift_term_id_dx, lift_term_id_sn, conj/ + t ⇔ 🠡[𝐢]t. +/3 width=2 by lift_term_id_dx, lift_term_id_sn, conj/ qed.