X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fcomputation%2Fygt_lift.ma;h=1c75c8e3d208184506bf1efa497cd375324312ae;hb=f5cd5870668ed096f6d93b005e2acd3bd555f3b0;hp=6b713bc91874339a6e356b3f81faf5c929c1a8d5;hpb=f5c6d4c41cbbdabdf998be0c4a8242849a790f1b;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/computation/ygt_lift.ma b/matita/matita/contribs/lambdadelta/basic_2/computation/ygt_lift.ma index 6b713bc91..1c75c8e3d 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/computation/ygt_lift.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/computation/ygt_lift.ma @@ -31,7 +31,7 @@ lemma lsstas_ygt: ∀h,g,G,L,T1,T2,l2. ⦃G, L⦄ ⊢ T1 •*[h, g, l2] T2 → ( elim (le_inv_plus_l … Hl21) -Hl21 #Hl12 #Hl21 lapply (lsstas_da_conf … HT1 … Hl1) -HT1 >(plus_minus_m_m … Hl12) -Hl12 - /4 width=5 by ypr_ssta, ygt_strap1/ + /4 width=5 by fpb_ssta, ygt_strap1/ ] ] qed.