X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fcomputation%2Flsx_csx.ma;h=61dca7f92bca95facaf4073c462ed0e41ed0e75b;hb=f7994db705d6c1200cc3e9f1827b7d9f6d0ad001;hp=13e753a6cf350dd45bfc9683e3db1e26af1a06b4;hpb=e500cfb0c28718d44972a119f55f152018d18e62;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/computation/lsx_csx.ma b/matita/matita/contribs/lambdadelta/basic_2/computation/lsx_csx.ma
index 13e753a6c..61dca7f92 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/computation/lsx_csx.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/computation/lsx_csx.ma
@@ -58,25 +58,3 @@ theorem csx_lsx: ∀h,g,G,L,T. ⦃G, L⦄ ⊢ ⬊*[h, g] T → ∀d. G ⊢ ⋕
   elim (csx_fwd_flat … H) -H /3 width=1 by lsx_flat/
 ]
 qed.
-
-(* Advanced eliminators *****************************************************)
-
-fact csx_ind_lsx_aux: ∀h,g,G,T,d. ∀R:predicate lenv.
-                      (∀L1. ⦃G, L1⦄ ⊢ ⬊*[h, g] T →
-                            (∀L2. ⦃G, L1⦄ ⊢ ➡*[h, g] L2 → (L1 ⋕[T, d] L2 → ⊥) → R L2) →
-                            R L1
-                      ) →
-                      ∀L. G ⊢ ⋕⬊*[h, g, T, d] L → ⦃G, L⦄ ⊢ ⬊*[h, g] T → R L.
-#h #g #G #T #d #R #IH #L #H @(lsx_ind … H) -L
-#L1 #_ #IHL1 #HL1 @IH -IH //
-#L2 #HL12 #HnT @IHL1 -IHL1 /2 width=3 by csx_lpxs_conf/
-qed-.
-
-lemma csx_ind_lsx: ∀h,g,G,T,d. ∀R:predicate lenv.
-                   (∀L1. ⦃G, L1⦄ ⊢ ⬊*[h, g] T →
-                         (∀L2. ⦃G, L1⦄ ⊢ ➡*[h, g] L2 → (L1 ⋕[T, d] L2 → ⊥) → R L2) →
-                         R L1
-                   ) →
-                   ∀L. ⦃G, L⦄ ⊢ ⬊*[h, g] T → R L.
-#h #g #G #T #d #R #IH #L #HL @(csx_ind_lsx_aux … d … HL) /4 width=1 by csx_lsx/
-qed-.