X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Fcomputation%2Flsubc_ldrop.ma;h=7d23f9e0341beb8124a1aeb242ca12bbf323a792;hb=636c25914e83819c2f529edc891a7eb899499a97;hp=03ea7b6289922c57c645eee94c05369545162883;hpb=eb918fc784eacd2094e3986ba321ef47690d9983;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/computation/lsubc_ldrop.ma b/matita/matita/contribs/lambda_delta/basic_2/computation/lsubc_ldrop.ma index 03ea7b628..7d23f9e03 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/computation/lsubc_ldrop.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/computation/lsubc_ldrop.ma @@ -12,16 +12,16 @@ (* *) (**************************************************************************) -include "Basic_2/static/aaa_lift.ma". -include "Basic_2/computation/acp_cr.ma". -include "Basic_2/computation/lsubc.ma". +include "basic_2/static/aaa_lift.ma". +include "basic_2/computation/acp_cr.ma". +include "basic_2/computation/lsubc.ma". (* LOCAL ENVIRONMENT REFINEMENT FOR ABSTRACT CANDIDATES OF REDUCIBILITY *****) (* Properties concerning basic local environment slicing ********************) (* Basic_1: was: csubc_drop_conf_O *) -(* Note: the constant (0) can not be generalized *) +(* Note: the constant 0 can not be generalized *) lemma lsubc_ldrop_O1_trans: ∀RP,L1,L2. L1 [RP] ⊑ L2 → ∀K2,e. ⇩[0, e] L2 ≡ K2 → ∃∃K1. ⇩[0, e] L1 ≡ K1 & K1 [RP] ⊑ K2. #RP #L1 #L2 #H elim H -L1 -L2