X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2A%2Fstatic%2Flsuba.ma;h=dacbc25e8aca937a45fd736d267a94e4f6814d09;hb=68b4f2490c12139c03760b39895619e63b0f38c9;hp=c22a725d1aed36c20fb2afc6e4fd0a58f450a52b;hpb=d2545ffd201b1aa49887313791386add78fa8603;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2A/static/lsuba.ma b/matita/matita/contribs/lambdadelta/basic_2A/static/lsuba.ma
index c22a725d1..dacbc25e8 100644
--- a/matita/matita/contribs/lambdadelta/basic_2A/static/lsuba.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2A/static/lsuba.ma
@@ -12,6 +12,8 @@
 (*                                                                        *)
 (**************************************************************************)
 
+include "ground/xoa/ex_5_3.ma".
+include "ground/xoa/ex_6_4.ma".
 include "basic_2A/notation/relations/lrsubeqa_3.ma".
 include "basic_2A/static/lsubr.ma".
 include "basic_2A/static/aaa.ma".
@@ -67,7 +69,7 @@ fact lsuba_inv_atom2_aux: ∀G,L1,L2. G ⊢ L1 ⫃⁝ L2 → L2 = ⋆ → L1 = 
 ]
 qed-.
 
-lemma lsubc_inv_atom2: ∀G,L1. G ⊢ L1 ⫃⁝ ⋆ → L1 = ⋆.
+lemma lsuba_inv_atom2: ∀G,L1. G ⊢ L1 ⫃⁝ ⋆ → L1 = ⋆.
 /2 width=4 by lsuba_inv_atom2_aux/ qed-.
 
 fact lsuba_inv_pair2_aux: ∀G,L1,L2. G ⊢ L1 ⫃⁝ L2 → ∀I,K2,W. L2 = K2.ⓑ{I}W →