X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FUnified-Sub%2Fdatatypes%2FTerm.ma;h=d1a98de5a03a70749e9c52df5eb41c1efd679ad9;hb=e92710b1d9774a6491122668c8463b8658114610;hp=ba37390d958709cd55e440f67dca7cba913ce802;hpb=2b95f946837707c6ad30d1b8317d73c55cda3dc8;p=helm.git

diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Unified-Sub/datatypes/Term.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Unified-Sub/datatypes/Term.ma
index ba37390d9..d1a98de5a 100644
--- a/helm/software/matita/contribs/LAMBDA-TYPES/Unified-Sub/datatypes/Term.ma
+++ b/helm/software/matita/contribs/LAMBDA-TYPES/Unified-Sub/datatypes/Term.ma
@@ -12,47 +12,40 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/LAMBDA-TYPES/Unified-Sub/datatypes/Term".
-
 (* POLARIZED TERMS
    - Naming policy:
      - natural numbers      : sorts h k, local references i j, lengths l o
      - boolean values       : p q
-     - generic leaf items   : m n
      - generic binding items: r s 
      - generic flat items   : r s
      - generic head items   : m n
      - terms                : t u
 *)
 
-include "preamble.ma".
-
-inductive Leaf: Set \def
-   | sort: Nat \to Leaf
-   | lref: Nat \to Leaf
-.
+include "Unified-Sub/preamble.ma".
 
-inductive Bind: Set \def
+inductive Bind: Type \def
    | abbr: Bind
    | abst: Bind
    | excl: Bind
 .
 
-inductive Flat: Set \def
+inductive Flat: Type \def
    | appl: Flat
    | cast: Flat
 .
 
-inductive IntB: Set \def
+inductive IntB: Type \def
    | bind: Bool \to Bind \to IntB
 .
 
-inductive IntF: Set \def
+inductive IntF: Type \def
    | flat: Bool \to Flat \to IntF
 .
 
-inductive Term: Set \def
-   | leaf: Leaf \to Term
+inductive Term: Type \def
+   | sort: Nat  \to Term
+   | lref: Nat  \to Term
    | intb: IntB \to Term \to Term \to Term
    | intf: IntF \to Term \to Term \to Term
 .