two cases of cpx_lfxs_conf_fle closed

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / static / fle.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/fle.ma b/matita/matita/contribs/lambdadelta/basic_2/static/fle.ma
index 95d12b132fd0efe0ad5728b65c3242689890b788..921c37b8842e95e442f87c3bf172d961da1322ba 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/static/fle.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/static/fle.ma
@@ -33,22 +33,3 @@ lemma fle_sort: ∀L,s1,s2. ⦃L, ⋆s1⦄ ⊆ ⦃L, ⋆s2⦄.
 
 lemma fle_gref: ∀L,l1,l2. ⦃L, §l1⦄ ⊆ ⦃L, §l2⦄.
 /3 width=8 by frees_gref, sle_refl, ex4_4_intro/ qed.
-
-(* Basic inversion lemmas ***************************************************)
-(*
-fact fle_inv_voids_aux: ∀L1,L2,T1,T2. ⦃L1, T1⦄ ⊆ ⦃L2, T2⦄ →
-                        ∀K1,K2,n1,n2. |K1| = |K2| → L1 = ⓧ*[n1]K1 → L2 = ⓧ*[n2]K2 →
-                        ∃∃f1,f2. ⓧ*[n1]K1 ⊢ 𝐅*⦃T1⦄ ≡ f1 & ⓧ*[n2]K2 ⊢ 𝐅*⦃T2⦄ ≡ f2 & ⫱*[n1]f1 ⊆ ⫱*[n2]f2.
-#L1 #L2 #T1 #T2 * -L1 -L2
-#f1 #f2 #L1 #L2 #n1 #n2 #Hf1 #Hf2 #HL12 #Hf12 #Y1 #Y2 #x1 #x2 #HY12 #H1 #H2 destruct
->H1 in Hf1; >H2 in Hf2; #Hf2 #Hf1
-@(ex3_2_intro … Hf1 Hf2) -Hf1 -Hf2
-
-elim (voids_inj_length … H1) // -H -HL12 -HY #H1 #H2 destruct
-/2 width=5 by ex3_2_intro/
-qed-.
-
-lemma fle_inv_voids_sn: ∀L1,L2,T1,T2,n. ⦃ⓧ*[n]L1, T1⦄ ⊆ ⦃L2, T2⦄ → |L1| = |L2| →
-                        ∃∃f1,f2. ⓧ*[n]L1 ⊢ 𝐅*⦃T1⦄ ≡ f1 & L2 ⊢ 𝐅*⦃T2⦄ ≡ f2 & ⫱*[n]f1 ⊆ f2.
-/2 width=3 by fle_inv_voids_sn_aux/ qed-.
-*)
\ No newline at end of file