X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Frdsx_fqup.ma;h=2913cb998f792b9dc0b0b10fcaf6ddafdf9d8468;hb=d8f6494f48aa08bb32d9d1ac82fc16e9e41b76ac;hp=2748790e7e015f41e13b7b728d0e5113e2c5db0b;hpb=ec261374a2990bebeded039a64c0be0795ad9e93;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_fqup.ma index 2748790e7..2913cb998 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_fqup.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_fqup.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/lfdeq_fqup.ma". +include "static_2/static/rdeq_fqup.ma". include "basic_2/rt_computation/rdsx.ma". (* STRONGLY NORMALIZING REFERRED LOCAL ENV.S FOR UNBOUND RT-TRANSITION ******) @@ -39,7 +39,7 @@ lemma rdsx_fwd_bind_dx (h) (o) (G): @(rdsx_ind … H) -L #L1 #_ #IH @rdsx_intro #Y #H #HT elim (lpx_inv_unit_sn … H) -H #L2 #HL12 #H destruct -/4 width=4 by lfdeq_fwd_bind_dx_void/ +/4 width=4 by rdeq_fwd_bind_dx_void/ qed-. (* Advanced inversion lemmas ************************************************)