- the PARTIAL COMMIT continues, we issue the "reduction" component

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / unfold / lstas_lift.ma

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 9239d34dfe24e9618682e9f10e09402563d6edd3..aea1d9f85709a35c8dfa4a45e91cb27fb9ac10a8 100644 (file)
--- 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