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

diff --git a/matita/matita/contribs/lambdadelta/basic_2A/grammar/item.ma b/matita/matita/contribs/lambdadelta/basic_2A/grammar/item.ma
index e8c942e2c..2bc776177 100644
--- a/matita/matita/contribs/lambdadelta/basic_2A/grammar/item.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2A/grammar/item.ma
@@ -56,19 +56,16 @@ elim (eq_nat_dec i1 i2) /2 width=1 by or_introl/
 #Hni12 @or_intror #H destruct /2 width=1 by/ 
 qed-.
 
-(* Basic_1: was: bind_dec *)
 lemma eq_bind2_dec: ∀I1,I2:bind2. Decidable (I1 = I2).
 * * /2 width=1 by or_introl/
 @or_intror #H destruct
 qed-.
 
-(* Basic_1: was: flat_dec *)
 lemma eq_flat2_dec: ∀I1,I2:flat2. Decidable (I1 = I2).
 * * /2 width=1 by or_introl/
 @or_intror #H destruct
 qed-.
 
-(* Basic_1: was: kind_dec *)
 lemma eq_item2_dec: ∀I1,I2:item2. Decidable (I1 = I2).
 * [ #a1 ] #I1 * [1,3: #a2 ] #I2
 [2,3: @or_intror #H destruct
@@ -79,10 +76,3 @@ lemma eq_item2_dec: ∀I1,I2:item2. Decidable (I1 = I2).
   @or_intror #H destruct /2 width=1 by/
 ]
 qed-.
-
-(* Basic_1: removed theorems 21:
-            s_S s_plus s_plus_sym s_minus minus_s_s s_le s_lt s_inj s_inc
-            s_arith0 s_arith1
-            r_S r_plus r_plus_sym r_minus r_dis s_r r_arith0 r_arith1
-            not_abbr_abst bind_dec_not
-*)