X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fcomputation%2Ffpbc_fpbs.ma;h=7d81c812d5214e0c0742461d0ab728b03dd7a83d;hb=f21cc1fc7f776761926a7f017fda55735d63442e;hp=28efb6e6b25ba915f852d79a8d90e1728d9f79d1;hpb=f6a6221dcb90a12b04378ca2de86192e0e39f9ab;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/computation/fpbc_fpbs.ma b/matita/matita/contribs/lambdadelta/basic_2/computation/fpbc_fpbs.ma index 28efb6e6b..7d81c812d 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/computation/fpbc_fpbs.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/computation/fpbc_fpbs.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/computation/fpbs_fpns.ma". +include "basic_2/computation/fpbs_fleq.ma". include "basic_2/computation/fpbs_fpbs.ma". include "basic_2/computation/fpbc.ma". @@ -23,5 +23,5 @@ include "basic_2/computation/fpbc.ma". lemma fpbc_fwd_fpbs: ∀h,g,G1,G2,L1,L2,T1,T2. ⦃G1, L1, T1⦄ ≻⋕[h, g] ⦃G2, L2, T2⦄ → ⦃G1, L1, T1⦄ ≥[h, g] ⦃G2, L2, T2⦄. #h #g #G1 #G2 #L1 #L2 #T1 #T2 * -/3 width=5 by fpbu_fwd_fpbs, fpbs_trans, fpns_fpbs/ +/3 width=5 by fpbu_fwd_fpbs, fpbs_trans, fleq_fpbs/ qed-.