X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fjsx_lsubr.ma;h=4e048982b52f16ddfefdbb4ebb2c03701731e49f;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=6fc7232946e34db304d563adfae66b56c6786d7c;hpb=f76594123e375bd7852c9421fe260a7bec693a92;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx_lsubr.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx_lsubr.ma index 6fc723294..4e048982b 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx_lsubr.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx_lsubr.ma @@ -19,7 +19,8 @@ include "basic_2/rt_computation/jsx.ma". (* Forward lemmas with restricted refinement for local environments *********) -lemma jsx_fwd_lsubr (h) (G): ∀L1,L2. G ⊢ L1 ⊒[h] L2 → L1 ⫃ L2. +lemma jsx_fwd_lsubr (h) (G): + ∀L1,L2. G ⊢ L1 ⊒[h] L2 → L1 ⫃ L2. #h #G #L1 #L2 #H elim H -L1 -L2 /2 width=1 by lsubr_bind, lsubr_unit/ qed-.