]> matita.cs.unibo.it Git - helm.git/blob - helm/software/matita/dama/constructive_connectives.ma
makefile reworked to make debian package possible
[helm.git] / helm / software / matita / dama / constructive_connectives.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 set "baseuri" "cic:/matita/constructive_connectives/".
16
17 inductive or (A,B:Type) : Type \def
18    Left : A → or A B
19  | Right : B → or A B.
20
21 interpretation "constructive or" 'or x y =
22   (cic:/matita/constructive_connectives/or.ind#xpointer(1/1) x y).
23
24 inductive ex (A:Type) (P:A→Prop) : Type \def
25   ex_intro: ∀w:A. P w → ex A P.
26
27 notation < "hvbox(Σ ident i opt (: ty) break . p)"
28   right associative with precedence 20
29 for @{ 'sigma ${default
30   @{\lambda ${ident i} : $ty. $p)}
31   @{\lambda ${ident i} . $p}}}.
32
33 interpretation "constructive exists" 'sigma \eta.x =
34   (cic:/matita/constructive_connectives/ex.ind#xpointer(1/1) _ x).