X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Freducibility%2Fltpr_ltpss_sn.ma;h=79ffb7c9ed4ce6e1039cdade4339329b197c2a32;hb=08cb57944c0df08611d4f35d286e46c0d13e4813;hp=8237623567098f502f634b00e0839a4aa52b34fa;hpb=9245402674a791dfdb943902f8288d742088c854;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/reducibility/ltpr_ltpss_sn.ma b/matita/matita/contribs/lambdadelta/basic_2/reducibility/ltpr_ltpss_sn.ma index 823762356..79ffb7c9e 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/reducibility/ltpr_ltpss_sn.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/reducibility/ltpr_ltpss_sn.ma @@ -19,7 +19,7 @@ include "basic_2/reducibility/ltpr_ltpss_dx.ma". (* Properties on sn parallel unfold on local environments *******************) -(* Note: this can also be proved like ltpr_ltpss_dx_conf *) +(* Note: this can also be proved like ltpr_ltpss_dx_conf *) lemma ltpr_ltpss_sn_conf: ∀L1,K1,d,e. L1 ⊢ ▶* [d, e] K1 → ∀L2. L1 ➡ L2 → ∃∃K2. L2 ⊢ ▶* [d, e] K2 & K1 ➡ K2. #L1 #K1 #d #e #H