| | Some definitions of interest. |
|
| hselect | Def select ==  p:'a   . @ x:'a. (p(x)) |
| | | Thm*  'a:S. select  (('a hbool) 'a) |
|
| bchoose | Def @x:'a. p(x) == @x:'a.  p(x) |
| | | Thm* 'a:S, p:('a). (@x:'a. p(x)) 'a |
|
| hexists | Def exists == p:'a.  x:'a. (p(x)) |
| | | Thm* 'a:S. exists (('a hbool) hbool) |
|
| bexists | Def x:T. P(x) ==  (x:T. P(x)) |
| | | Thm* T:Type, P:(T). (x:T. P(x)) |
|
| hall | Def all == p:'a. x:'a. (p(x)) |
| | | Thm* 'a:S. all (('a hbool) hbool) |
|
| assert | Def b == if b True else False fi |
| | | Thm* b:. b Prop |
|
| hequal | Def equal == x:'a. y:'a. x = y |
| | | Thm* 'a:S. equal ('a 'a hbool) |
|
| hrep_prod | Def rep_prod == p:'a 'b. mk_pair(1of(p),2of(p)) |
| | | Thm* 'a,'b:S. rep_prod (hprod('a; 'b) 'a 'b hbool) |
|
| hmk_pair | Def mk_pair == x:'a. y:'b. a:'a. b:'b. (a = x)  (b = y) |
| | | Thm* 'a,'b:S. mk_pair ('a 'b 'a 'b hbool) |
|
| bequal | Def x = y == (x = y T) |
| | | Thm* T:Type, x,y:T. (x = y) |
|
| hbool | Def hbool == |
| | | Thm* hbool S |
|
| hfun | Def 'a 'b == 'a'b |
| | | Thm* 'a,'b:S. ('a 'b) S |
|
| hprod | Def hprod('a; 'b) == 'a'b |
| | | Thm* 'a,'b:S. hprod('a; 'b) S |
|
| hsnd | Def snd == p:'a'b. 2of(p) |
| | | Thm* 'a,'b:S. snd (hprod('a; 'b) 'b) |
|
| pi2 | Def 2of(t) == t.2 |
| | | Thm* A:Type, B:(AType), p:(a:AB(a)). 2of(p) B(1of(p)) |
|
| stype | Def S == {T:Type| x:T. True } |
| | | Thm* S Type{2} |
|
| tlambda | Def (x:T. b(x))(x) == b(x) |
