matita/contribs/LAMBDA-TYPES/Unified-Sub/datatypes/Term.ma

   1 (**************************************************************************)
   2 (*       ___                                                              *)
   3 (*      ||M||                                                             *)
   4 (*      ||A||       A project by Andrea Asperti                           *)
   5 (*      ||T||                                                             *)
   6 (*      ||I||       Developers:                                           *)
   7 (*      ||T||         The HELM team.                                      *)
   8 (*      ||A||         http://helm.cs.unibo.it                             *)
   9 (*      \   /                                                             *)
  10 (*       \ /        This file is distributed under the terms of the       *)
  11 (*        v         GNU General Public License Version 2                  *)
  12 (*                                                                        *)
  13 (**************************************************************************)
  14
  15
  16
  17 (* POLARIZED TERMS
  18    - Naming policy:
  19      - natural numbers      : sorts h k, local references i j, lengths l o
  20      - boolean values       : p q
  21      - generic binding items: r s
  22      - generic flat items   : r s
  23      - generic head items   : m n
  24      - terms                : t u
  25 *)
  26
  27 include "preamble4.ma".
  28
  29 inductive Bind: Type \def
  30    | abbr: Bind
  31    | abst: Bind
  32    | excl: Bind
  33 .
  34
  35 inductive Flat: Type \def
  36    | appl: Flat
  37    | cast: Flat
  38 .
  39
  40 inductive IntB: Type \def
  41    | bind: Bool \to Bind \to IntB
  42 .
  43
  44 inductive IntF: Type \def
  45    | flat: Bool \to Flat \to IntF
  46 .
  47
  48 inductive Term: Type \def
  49    | sort: Nat  \to Term
  50    | lref: Nat  \to Term
  51    | intb: IntB \to Term \to Term \to Term
  52    | intf: IntF \to Term \to Term \to Term
  53 .