X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Frsx_length.ma;h=81021b2c89c51d342e5b88fed04ac26adddcc017;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hp=ae3d769155e83f54cbc15437953b4767b7796866;hpb=a454837a256907d2f83d42ced7be847e10361ea9;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rsx_length.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rsx_length.ma index ae3d76915..81021b2c8 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rsx_length.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rsx_length.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "static_2/static/rdeq_length.ma". +include "static_2/static/reqx_length.ma". include "basic_2/rt_transition/lpx_length.ma". include "basic_2/rt_computation/rsx.ma". @@ -21,20 +21,20 @@ include "basic_2/rt_computation/rsx.ma". (* Advanced properties ******************************************************) (* Basic_2A1: uses: lsx_sort *) -lemma rsx_sort (h) (G): ∀L,s. G ⊢ ⬈*[h,⋆s] 𝐒⦃L⦄. +lemma rsx_sort (h) (G): ∀L,s. G ⊢ ⬈*[h,⋆s] 𝐒❪L❫. #h #G #L1 #s @rsx_intro #L2 #H #Hs -elim Hs -Hs /3 width=3 by lpx_fwd_length, rdeq_sort_length/ +elim Hs -Hs /3 width=3 by lpx_fwd_length, reqx_sort_length/ qed. (* Basic_2A1: uses: lsx_gref *) -lemma rsx_gref (h) (G): ∀L,l. G ⊢ ⬈*[h,§l] 𝐒⦃L⦄. +lemma rsx_gref (h) (G): ∀L,l. G ⊢ ⬈*[h,§l] 𝐒❪L❫. #h #G #L1 #s @rsx_intro #L2 #H #Hs -elim Hs -Hs /3 width=3 by lpx_fwd_length, rdeq_gref_length/ +elim Hs -Hs /3 width=3 by lpx_fwd_length, reqx_gref_length/ qed. -lemma rsx_unit (h) (G): ∀I,L. G ⊢ ⬈*[h,#0] 𝐒⦃L.ⓤ{I}⦄. +lemma rsx_unit (h) (G): ∀I,L. G ⊢ ⬈*[h,#0] 𝐒❪L.ⓤ[I]❫. #h #G #I #L1 @rsx_intro #Y #HY #HnY elim HnY -HnY elim (lpx_inv_unit_sn … HY) -HY #L2 #HL12 #H destruct -/3 width=3 by lpx_fwd_length, rdeq_unit_length/ +/3 width=3 by lpx_fwd_length, reqx_unit_length/ qed.