helm/software/matita/contribs/LAMBDA-TYPES/Unified/SUB/T/defs.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 (* Project started Tue Aug 22, 2006 ***************************************)
  16
  17 set "baseuri" "cic:/matita/LAMBDA-TYPES/Unified/SUB/Term/defs".
  18
  19 (* POLARIZED TERMS
  20    - Naming policy:
  21      - natural numbers      : sorts h k, local references i j, lengths l o
  22      - boolean values       : p q
  23      - generic leaf items   : m n
  24      - generic binding items: r s
  25      - generic flat items   : r s
  26      - generic head items   : m n
  27      - terms                : t u
  28 *)
  29
  30 include "../../RELATIONAL/Nat/defs.ma".
  31 include "../../RELATIONAL/Bool/defs.ma".
  32
  33 inductive Leaf: Set \def
  34    | sort: Nat \to Leaf
  35    | lref: Nat \to Leaf
  36 .
  37
  38 inductive Bind: Set \def
  39    | abbr: Bind
  40    | abst: Bind
  41    | excl: Bind
  42 .
  43
  44 inductive Flat: Set \def
  45    | appl: Flat
  46    | cast: Flat
  47 .
  48
  49 inductive Head: Set \def
  50    | bind: Bool \to Bind \to Head
  51    | flat: Bool \to Flat \to Head
  52 .
  53
  54 inductive Term: Set \def
  55    | leaf: Leaf \to Term
  56    | head: Head \to Term \to Term \to Term
  57 .