X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2A%2Fgrammar%2Ftsts.ma;h=df62456f6cca1e9b67ca3775b8a986b65646c541;hb=2f6f2b7c01d47d23f61dd48d767bcb37aecdcfea;hp=80311fe7685ac0a41df33602be85702d12a9f78d;hpb=d2545ffd201b1aa49887313791386add78fa8603;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2A/grammar/tsts.ma b/matita/matita/contribs/lambdadelta/basic_2A/grammar/tsts.ma
index 80311fe76..df62456f6 100644
--- a/matita/matita/contribs/lambdadelta/basic_2A/grammar/tsts.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2A/grammar/tsts.ma
@@ -12,6 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
+include "ground/xoa/ex_1_2.ma".
 include "basic_2A/notation/relations/topiso_2.ma".
 include "basic_2A/grammar/term_simple.ma".
 
@@ -31,7 +32,6 @@ fact tsts_inv_atom1_aux: ∀T1,T2. T1 ≂ T2 → ∀I. T1 = ⓪{I} → T2 = ⓪{
 #J #V1 #V2 #T1 #T2 #I #H destruct
 qed-.
 
-(* Basic_1: was: iso_gen_sort iso_gen_lref *)
 lemma tsts_inv_atom1: ∀I,T2. ⓪{I} ≂ T2 → T2 = ⓪{I}.
 /2 width=3 by tsts_inv_atom1_aux/ qed-.
 
@@ -43,7 +43,6 @@ fact tsts_inv_pair1_aux: ∀T1,T2. T1 ≂ T2 → ∀I,W1,U1. T1 = ②{I}W1.U1 
 ]
 qed-.
 
-(* Basic_1: was: iso_gen_head *)
 lemma tsts_inv_pair1: ∀I,W1,U1,T2. ②{I}W1.U1 ≂ T2 →
                       ∃∃W2,U2. T2 = ②{I}W2. U2.
 /2 width=5 by tsts_inv_pair1_aux/ qed-.
@@ -70,7 +69,6 @@ lemma tsts_inv_pair2: ∀I,T1,W2,U2. T1 ≂ ②{I}W2.U2 →
 
 (* Basic properties *********************************************************)
 
-(* Basic_1: was: iso_refl *)
 lemma tsts_refl: reflexive … tsts.
 #T elim T -T //
 qed.