X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda-delta%2FBasic-2%2Fgrammar%2Fitem.ma;h=ead47b5460bbaf8ce2add52ed54862dc94979010;hb=95fe49b9bd546ee4f0d27dce7267d7285eb81b01;hp=3db6ebf533ca78f72644a687fa1782d8a42ffbe7;hpb=fd991956035d0f1b663aab48325097e53ed9e00e;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 3db6ebf53..ead47b546 100644
--- a/matita/matita/contribs/lambda-delta/Basic-2/grammar/item.ma
+++ b/matita/matita/contribs/lambda-delta/Basic-2/grammar/item.ma
@@ -12,35 +12,50 @@
 (*                                                                        *)
 (**************************************************************************)
 
-(* THE FORMAL SYSTEM λδ - MATITA SOURCE SCRIPTS 
+(* 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/ground.ma".
+include "Ground-2/list.ma".
+include "Ground-2/star.ma".
 include "Basic-2/notation.ma".
 
-(* BINARY ITEMS *************************************************************)
+(* ITEMS ********************************************************************)
+
+(* atomic items *)
+inductive item0: Type[0] ≝
+   | Sort: nat → item0 (* sort: starting at 0 *)
+   | LRef: nat → item0 (* reference by index: starting at 0 *)
+.
 
 (* binary binding items *)
 inductive bind2: Type[0] ≝
-| Abbr: bind2 (* abbreviation *)
-| Abst: bind2 (* abstraction *)
+  | Abbr: bind2 (* abbreviation *)
+  | Abst: bind2 (* abstraction *)
 .
 
 (* binary non-binding items *)
 inductive flat2: Type[0] ≝
-| Appl: flat2 (* application *)
-| Cast: flat2 (* explicit type annotation *)
+  | Appl: flat2 (* application *)
+  | Cast: flat2 (* explicit type annotation *)
 .
 
 (* binary items *)
 inductive item2: Type[0] ≝
-| Bind: bind2 → item2 (* binding item *)
-| Flat: flat2 → item2 (* non-binding item *)
+  | Bind: bind2 → item2 (* binding item *)
+  | Flat: flat2 → item2 (* non-binding item *)
 .
 
 coercion item2_of_bind2: ∀I:bind2.item2 ≝ Bind on _I:bind2 to item2.
 
 coercion item2_of_flat2: ∀I:flat2.item2 ≝ Flat on _I:flat2 to item2.
+
+(* Basic-1: removed theorems 19:
+            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
+*)