X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FBasic_2%2Fgrammar%2Fitem.ma;h=89f1a94e4d2eef0997f041f93bf099c4539d6920;hb=b5db76fe31ab35bae0257cb6684c511bcc531e45;hp=8851da3cb465d24afddb3acad79626ccc0034353;hpb=aec661d51ffa04b4248cdfece772b58780737e3f;p=helm.git

diff --git a/matita/matita/contribs/lambda_delta/Basic_2/grammar/item.ma b/matita/matita/contribs/lambda_delta/Basic_2/grammar/item.ma
index 8851da3cb..89f1a94e4 100644
--- a/matita/matita/contribs/lambda_delta/Basic_2/grammar/item.ma
+++ b/matita/matita/contribs/lambda_delta/Basic_2/grammar/item.ma
@@ -12,15 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
-(* THE FORMAL SYSTEM λδ - MATITA SOURCE FILES
- * Specification started: 2011 April 17
- * Confluence of context-sensitive parallel reduction closed: 2011 September 21
- * Confluence of context-free parallel reduction closed: 2011 September 6
- * - Patience on me so that I gain peace and perfection! -
- * [ suggested invocation to start formal specifications with ]
- *)
-
-include "Ground_2/list.ma".
+include "Ground_2/arith.ma".
 include "Basic_2/notation.ma".
 
 (* ITEMS ********************************************************************)
@@ -46,13 +38,13 @@ inductive flat2: Type[0] ≝
 
 (* binary items *)
 inductive item2: Type[0] ≝
-  | Bind: bind2 → item2 (* binding item *)
-  | Flat: flat2 → item2 (* non-binding item *)
+  | Bind2: bind2 → item2 (* binding item *)
+  | Flat2: flat2 → item2 (* non-binding item *)
 .
 
-coercion item2_of_bind2: ∀I:bind2.item2 ≝ Bind on _I:bind2 to item2.
+coercion item2_of_bind2: ∀I:bind2.item2 ≝ Bind2 on _I:bind2 to item2.
 
-coercion item2_of_flat2: ∀I:flat2.item2 ≝ Flat on _I:flat2 to item2.
+coercion item2_of_flat2: ∀I:flat2.item2 ≝ Flat2 on _I:flat2 to item2.
 
 (* Basic properties *********************************************************)
 
@@ -67,8 +59,9 @@ axiom flat2_eq_dec: ∀I1,I2:flat2. Decidable (I1 = I2).
 (* Basic_1: was: kind_dec *)
 axiom item2_eq_dec: ∀I1,I2:item2. Decidable (I1 = I2).
 
-(* Basic_1: removed theorems 19:
+(* 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
 *)