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

diff --git a/matita/matita/contribs/lambdadelta/basic_2A/grammar/tsts.ma b/matita/matita/contribs/lambdadelta/basic_2A/grammar/tsts.ma
index 333f2744d..df62456f6 100644
--- a/matita/matita/contribs/lambdadelta/basic_2A/grammar/tsts.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2A/grammar/tsts.ma
@@ -32,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-.
 
@@ -44,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-.
@@ -71,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.