X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fs_transition%2Ffquq_weight.ma;h=6a4fac6332e9a3b2712ef796c6e7e4d863bc70b0;hb=74223db3fc45caccb3cfac80971b29cb0613da28;hp=605a539055e572da22cdfca24088447f34278d50;hpb=bd53c4e895203eb049e75434f638f26b5a161a2b;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/s_transition/fquq_weight.ma b/matita/matita/contribs/lambdadelta/static_2/s_transition/fquq_weight.ma index 605a53905..6a4fac633 100644 --- a/matita/matita/contribs/lambdadelta/static_2/s_transition/fquq_weight.ma +++ b/matita/matita/contribs/lambdadelta/static_2/s_transition/fquq_weight.ma @@ -19,8 +19,8 @@ include "static_2/s_transition/fquq.ma". (* Forward lemmas with weight for closures **********************************) -lemma fquq_fwd_fw: ∀b,G1,G2,L1,L2,T1,T2. ❪G1,L1,T1❫ ⬂⸮[b] ❪G2,L2,T2❫ → +lemma fquq_fwd_fw: ∀b,G1,G2,L1,L2,T1,T2. ❨G1,L1,T1❩ ⬂⸮[b] ❨G2,L2,T2❩ → ♯❨G2,L2,T2❩ ≤ ♯❨G1,L1,T1❩. #b #G1 #G2 #L1 #L2 #T1 #T2 #H elim H -H [2: * ] -/3 width=2 by fqu_fwd_fw, lt_to_le/ +/3 width=2 by fqu_fwd_fw, nlt_des_le/ qed-.