X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsubstitution%2Flift_prototerm_id.ma;h=401e2f2ce33425280df558fd061c15e2c6a40cb0;hb=7008128d354c6e998a87bc2febe9f86ea714869c;hp=95aecceb75421f2428db4d35f48c2fa77e85cc96;hpb=d06053844638d88936d711b66fddbcca2a9add1c;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 95aecceb7..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. + t ⇔ 🠡[𝐢]t. /3 width=2 by lift_term_id_dx, lift_term_id_sn, conj/ qed.