X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Freducibility%2Fcfpr_aaa.ma;h=72802e499ba9149ae2400f2244b31d2123e4eaea;hb=08cb57944c0df08611d4f35d286e46c0d13e4813;hp=4c9b8ac9736415a277978dd25d0a15ef9b0acc33;hpb=9245402674a791dfdb943902f8288d742088c854;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/reducibility/cfpr_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/reducibility/cfpr_aaa.ma index 4c9b8ac97..72802e499 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/reducibility/cfpr_aaa.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/reducibility/cfpr_aaa.ma @@ -22,6 +22,6 @@ include "basic_2/reducibility/cfpr_cpr.ma". lemma aaa_fpr_conf: ∀L1,T1,A. L1 ⊢ T1 ⁝ A → ∀L2,T2. ⦃L1, T1⦄ ➡ ⦃L2, T2⦄ → L2 ⊢ T2 ⁝ A. #L1 #T1 #A #HT1 #L2 #T2 #H -elim (fpr_inv_all … H) -H +elim (fpr_inv_all … H) -H /4 width=5 by aaa_cpr_conf, aaa_ltpr_conf, aaa_ltpss_sn_conf/ qed.