helm/software/matita/contribs/LAMBDA-TYPES/Unified/P/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/P/defs".
  18
  19 (* POLARIZED TERMS
  20    - Naming policy:
  21      - natural numbers      : sorts h k, local references i j, lengths l
  22      - boolean values       : a b
  23      - generic binding items: x
  24      - generic flat items   : y
  25      - generic head items   : z
  26      - terms                : p q
  27 *)
  28
  29 include "../../RELATIONAL/Nat/defs.ma".
  30 include "../../RELATIONAL/Bool/defs.ma".
  31
  32 inductive Bind: Set \def
  33    | abbr: Bind
  34    | abst: Bind
  35    | excl: Bind
  36 .
  37
  38 inductive Flat: Set \def
  39    | appl: Flat
  40    | cast: Flat
  41 .
  42
  43 inductive Head: Set \def
  44    | bind: Bind \to Head
  45    | flat: Flat \to Head
  46 .
  47
  48 inductive P: Set \def
  49    | sort: Nat \to P
  50    | lref: Nat \to P
  51    | head: Bool \to Head \to P \to P \to P
  52 .