X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Funfold%2Flstas_lift.ma;h=aea1d9f85709a35c8dfa4a45e91cb27fb9ac10a8;hb=d867d4f21d89308c02d06db83005b91241bc6171;hp=9239d34dfe24e9618682e9f10e09402563d6edd3;hpb=5117f4af452934db436f22326f35d90f757bdf8a;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/unfold/lstas_lift.ma b/matita/matita/contribs/lambdadelta/basic_2/unfold/lstas_lift.ma
index 9239d34df..aea1d9f85 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/unfold/lstas_lift.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/unfold/lstas_lift.ma
@@ -115,10 +115,6 @@ qed-.
 
 (* Advanced inversion lemmas ************************************************)
 
-lemma zero_eq_plus: ∀x,y. 0 = x + y → 0 = x ∧ 0 = y.
-* /2 width=1 by conj/ #x #y normalize #H destruct
-qed-.
-
 lemma lstas_split_aux: ∀h,G,L,T1,T2,l. ⦃G, L⦄ ⊢ T1 •*[h, l] T2 → ∀l1,l2. l = l1 + l2 →
                        ∃∃T. ⦃G, L⦄ ⊢ T1 •*[h, l1] T & ⦃G, L⦄ ⊢ T •*[h, l2] T2.
 #h #G #L #T1 #T2 #l #H elim H -G -L -T1 -T2 -l