ground_2 released and permanently renamed as ground

[helm.git] / matita / matita / contribs / lambdadelta / basic_2A / static / lsuba.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2A/static/lsuba.ma b/matita/matita/contribs/lambdadelta/basic_2A/static/lsuba.ma
index c22a725d1aed36c20fb2afc6e4fd0a58f450a52b..dacbc25e8aca937a45fd736d267a94e4f6814d09 100644 (file)
--- 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 →