X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fcomputation%2Ffpbs_aaa.ma;h=372b571b67ba22130fc7d503212789d5c23f836b;hb=9afdb35b870c15760f482a1b4a0ad7b4dcd5172b;hp=dbefe3bcea9f01aa273e23297adc8c83cb94630a;hpb=6f1f9e20aa2775d41bba64289fc903e6612baaf3;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/computation/fpbs_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/computation/fpbs_aaa.ma index dbefe3bce..372b571b6 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/computation/fpbs_aaa.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/computation/fpbs_aaa.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/reduction/fpb_aaa.ma". +include "basic_2/reduction/fpbq_aaa.ma". include "basic_2/computation/fpbs.ma". (* "QRST" PARALLEL COMPUTATION FOR CLOSURES *********************************) @@ -23,5 +23,5 @@ lemma fpbs_aaa_conf: ∀h,g,G1,G2,L1,L2,T1,T2. ⦃G1, L1, T1⦄ ≥[h, g] ⦃G2, ∀A1. ⦃G1, L1⦄ ⊢ T1 ⁝ A1 → ∃A2. ⦃G2, L2⦄ ⊢ T2 ⁝ A2. #h #g #G1 #G2 #L1 #L2 #T1 #T2 #H @(fpbs_ind … H) -G2 -L2 -T2 /2 width=2 by ex_intro/ #G #G2 #L #L2 #T #T2 #_ #H2 #IH1 #A #HA elim (IH1 … HA) -IH1 -A -/2 width=8 by fpb_aaa_conf/ +/2 width=8 by fpbq_aaa_conf/ qed-.