]> matita.cs.unibo.it Git - helm.git/blob - matita/matita/contribs/lambdadelta/apps_2/etc/MLTT1/syntax.etc
- basic_2: induction for preservation results now uses supclosure
[helm.git] / matita / matita / contribs / lambdadelta / apps_2 / etc / MLTT1 / syntax.etc
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 (* MARTIN-LÖF TYPE THEORY WITH ONE UNIVERSE (MLTT1): MATITA SOURCE FILES
16  * Specification started: 2011 December 12
17  * - Patience on me to gain peace and perfection! -
18  *)
19
20 include "basic_2/grammar/lenv.ma".
21 include "apps_2/MLTT1_1/notation.ma".
22
23 (* EXTENDED NOTATION ********************************************************)
24
25 definition sort ≝ 0.
26
27 interpretation
28   "global definition"
29   'LAbbr L T = (LPair L Abbr T).
30
31 interpretation
32   "global declaration"
33   'LAbst L T = (LPair L Abst T).
34
35 interpretation
36   "atom (arity)"
37   'Box = (TAtom (Sort sort)).
38
39 interpretation
40   "function (arity)"
41   'TImp T1 T2 = (TPair Abst T1 T2).
42
43 interpretation
44   "function (term)"
45   'TAbst T = (TPair Abst (TAtom (Sort sort)) T).