X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Frsx_fqup.ma;h=bd56111e13cfa38bbffcd707aacbe1591216233c;hb=adb9ba187619cea977d1d22971eba27eb437cd6a;hp=b41e150feb62b90220434212ee30883aa7c8d0e7;hpb=f677b4ef7fa20f1ab36c5ee59598865d5c1b719b;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rsx_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rsx_fqup.ma index b41e150fe..bd56111e1 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rsx_fqup.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rsx_fqup.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "static_2/static/rdeq_fqup.ma". +include "static_2/static/reqx_fqup.ma". include "basic_2/rt_computation/rsx.ma". (* STRONGLY NORMALIZING REFERRED LOCAL ENV.S FOR UNBOUND RT-TRANSITION ******) @@ -38,7 +38,7 @@ lemma rsx_fwd_bind_dx_void (h) (G): @(rsx_ind … H) -L #L1 #_ #IH @rsx_intro #Y #H #HT elim (lpx_inv_unit_sn … H) -H #L2 #HL12 #H destruct -/4 width=4 by rdeq_fwd_bind_dx_void/ +/4 width=4 by reqx_fwd_bind_dx_void/ qed-. (* Advanced inversion lemmas ************************************************)