From 9cce83f0364d04a98cc5e9dfc80ce47ce3c68686 Mon Sep 17 00:00:00 2001
From: Ferruccio Guidi <ferruccio.guidi@unibo.it>
Date: Fri, 9 Aug 2013 17:27:58 +0000
Subject: [PATCH] - the example is smaller and really self-contained ... - two
 keywords added for highlighting

---
 .../lambdadelta/basic_2/grammar/test.ma       | 82 ++++---------------
 matita/matita/matita.lang                     |  4 +-
 2 files changed, 19 insertions(+), 67 deletions(-)

diff --git a/matita/matita/contribs/lambdadelta/basic_2/grammar/test.ma b/matita/matita/contribs/lambdadelta/basic_2/grammar/test.ma
index 1a5d4844c..aac04467b 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/grammar/test.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/grammar/test.ma
@@ -12,90 +12,40 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "arithmetics/nat.ma".
+universe constraint Type[0] < Type[1].
 
 (* notations ****************************************************************)
 
-include "basic_2/notation/constructors/snbind2_4.ma".
-include "basic_2/notation/constructors/dxbind2_3.ma".
-include "basic_2/notation/functions/weight_1.ma".
-include "basic_2/notation/functions/weight_3.ma".
+notation "hvbox(a break \to b)"
+  right associative with precedence 20
+for @{ \forall $_:$a.$b }.
 
-(* definitions **************************************************************)
-
-inductive list2 (A1,A2:Type[0]) : Type[0] :=
-  | nil2 : list2 A1 A2
-  | cons2: A1 → A2 → list2 A1 A2 → list2 A1 A2.
-
-
-inductive item0: Type[0] ≝
-   | Sort: nat → item0
-   | LRef: nat → item0
-   | GRef: nat → item0
-.
-
-inductive bind2: Type[0] ≝
-  | Abbr: bind2
-  | Abst: bind2 
-.
-
-inductive flat2: Type[0] ≝
-  | Appl: flat2
-  | Cast: flat2
-.
-
-inductive item2: Type[0] ≝
-  | Bind2: bool → bind2 → item2
-  | Flat2: flat2 → item2
-.
+notation "hvbox( T . break ⓑ { term 46 I } break term 48 T1 )"
+ non associative with precedence 47
+ for @{ 'DxBind2 $T $I $T1 }.
 
-inductive term: Type[0] ≝
-  | TAtom: item0 → term
-  | TPair: item2 → term → term → term 
-.
-
-let rec tw T ≝ match T with
-[ TAtom _     ⇒ 1
-| TPair _ V T ⇒ tw V + tw T + 1
-].
+(* definitions **************************************************************)
 
 inductive lenv: Type[0] ≝
 | LAtom: lenv
-| LPair: lenv → bind2 → term → lenv
+| LPair: lenv → lenv → lenv → lenv
 .
 
-let rec lw L ≝ match L with
-[ LAtom       ⇒ 0
-| LPair L _ V ⇒ lw L + tw V
-].
-
-definition genv ≝ list2 bind2 term.
+inductive genv: Type[0] ≝
+| GAtom: genv
+| GPair: genv → genv → genv → genv
+.
 
-definition fw: genv → lenv → term → ? ≝ λG,L,T. (lw L) + (tw T).
+axiom fw: genv → lenv → Prop.
 
 (* interpretations **********************************************************)
 
-interpretation "term binding construction (binary)"
-   'SnBind2 a I T1 T2 = (TPair (Bind2 a I) T1 T2).
-
-interpretation "weight (term)" 'Weight T = (tw T).
-
-interpretation "weight (local environment)" 'Weight L = (lw L).
-
-interpretation "weight (closure)" 'Weight G L T = (fw G L T).
-
-(* first set *)
-
 interpretation "environment binding construction (binary)"
    'DxBind2 L I T = (LPair L I T).
 
-(* second set *)
-
 interpretation "environment binding construction (binary)"
-   'DxBind2 L I T = (cons2 bind2 term I T L).
+   'DxBind2 G I T = (GPair G I T).
 
 (* statements ***************************************************************)
 
-lemma fw_shift: ∀a,I,G,K,V,T. ♯{G, K.ⓑ{I}V, T} < ♯{G, K, ⓑ{a,I}V.T}.
-normalize //
-qed.
+axiom fw_shift: ∀I,G,K,V. fw G (K.ⓑ{I}V).
diff --git a/matita/matita/matita.lang b/matita/matita/matita.lang
index 29831639b..964ddeb1d 100644
--- a/matita/matita/matita.lang
+++ b/matita/matita/matita.lang
@@ -113,6 +113,7 @@
           <keyword>prefer</keyword>
           <keyword>nocomposites</keyword>
           <keyword>coinductive</keyword>
+          <keyword>constraint</keyword>          
           <keyword>corec</keyword>
           <keyword>default</keyword>
           <keyword>discriminator</keyword>
@@ -134,7 +135,8 @@
           <keyword>return</keyword>
           <keyword>source</keyword>    
           <keyword>to</keyword>
-          <keyword>using</keyword>
+          <keyword>universe</keyword>          
+	  <keyword>using</keyword>
           <keyword>with</keyword>
          
          
-- 
2.39.2