X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Ffpbg_cpxs.ma;h=484500f647891155c48d4b687958510fbe17c2ac;hp=570c4490faa8a35cb009c3c4d3452685a044fafc;hb=e23331eef5817eaa6c5e1c442d1d6bbb18650573;hpb=b118146b97959e6a6dde18fdd014b8e1e676a2d1 diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbg_cpxs.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbg_cpxs.ma index 570c4490f..484500f64 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbg_cpxs.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbg_cpxs.ma @@ -12,8 +12,10 @@ (* *) (**************************************************************************) +include "basic_2/rt_transition/fpbc_fqup.ma". include "basic_2/rt_computation/cpxs_teqg.ma". include "basic_2/rt_computation/fpbs_cpxs.ma". +include "basic_2/rt_computation/fpbg_fqup.ma". include "basic_2/rt_computation/fpbg_fpbs.ma". (* PROPER PARALLEL RST-COMPUTATION FOR CLOSURES *****************************) @@ -26,7 +28,7 @@ lemma cpxs_tneqx_fpbg: (T1 ≅ T2 → ⊥) → ❪G,L,T1❫ > ❪G,L,T2❫. #G #L #T1 #T2 #H #H0 elim (cpxs_tneqg_fwd_step_sn … H … H0) -H -H0 -/4 width=5 by cpxs_teqx_fpbs, fpb_cpx, ex2_3_intro/ +/4 width=5 by fpbc_fpbs_fpbg, cpxs_fpbs, cpx_fpbc, sfull_dec/ qed. lemma cpxs_fpbg_trans: