2014-11-30 21:16:01 -08:00
|
|
|
prelude set_option pp.notation false
|
2014-09-26 14:54:39 -07:00
|
|
|
definition Prop := Type.{0}
|
2014-10-02 16:20:52 -07:00
|
|
|
constant eq {A : Type} : A → A → Prop
|
2014-09-26 14:54:39 -07:00
|
|
|
infixl `=`:50 := eq
|
|
|
|
|
2014-10-02 16:20:52 -07:00
|
|
|
constant N : Type.{1}
|
|
|
|
constant z : N
|
|
|
|
constant o : N
|
|
|
|
constant b : N
|
2014-09-26 14:54:39 -07:00
|
|
|
|
|
|
|
notation 0 := z
|
|
|
|
notation 1 := o
|
|
|
|
|
|
|
|
check 1
|
|
|
|
check 0
|
|
|
|
|
2014-10-02 16:20:52 -07:00
|
|
|
constant G : Type.{1}
|
|
|
|
constant gz : G
|
|
|
|
constant a : G
|
2014-09-26 14:54:39 -07:00
|
|
|
|
|
|
|
notation 0 := gz
|
|
|
|
|
|
|
|
check 0 = a
|
|
|
|
check b = 0
|