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=b66b63f46acc907bfaa19432af8bafc2743ca93e;hpb=4ac2becfaa45abb18acb2bdf3db5d2587cadb6d4;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 b66b63f46..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_bi/ +/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.