X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fetc%2Fsnv_preserve.etc;h=578937f4c84516861a887c849a8c5aa1365ea3b0;hb=5902d6da146ca78b0ed5d062e3968f52868147c5;hp=5185215c6ae66e02f8aac1af718b572f504c9a07;hpb=ddd6cb6f4514d9ca97f857cafa218c170222f5aa;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/etc/snv_preserve.etc b/matita/matita/contribs/lambdadelta/basic_2/etc/snv_preserve.etc
index 5185215c6..578937f4c 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/etc/snv_preserve.etc
+++ b/matita/matita/contribs/lambdadelta/basic_2/etc/snv_preserve.etc
@@ -1,9 +1,3 @@
-lemma snv_cprs_lpr: ∀h,g,G,L1,T1. ⦃G, L1⦄ ⊢ T1 ¡[h, g] →
-                    ∀T2. ⦃G, L1⦄ ⊢ T1 ➡* T2 → ∀L2. ⦃G, L1⦄ ⊢ ➡ L2 → ⦃G, L2⦄ ⊢ T2 ¡[h, g].
-#h #g #G #L1 #T1 #HT1 #T2 #H
-@(cprs_ind … H) -T2 /3 width=5 by snv_cpr_lpr/
-qed-.
-
 lemma da_cprs_lpr: ∀h,g,G,L1,T1. ⦃G, L1⦄ ⊢ T1 ¡[h, g] →
                    ∀l. ⦃G, L1⦄ ⊢ T1 ▪[h, g] l →
                    ∀T2. ⦃G, L1⦄ ⊢ T1 ➡* T2 → ∀L2. ⦃G, L1⦄ ⊢ ➡ L2 → ⦃G, L2⦄ ⊢ T2 ▪[h, g] l.