25 lines
354 B
Text
25 lines
354 B
Text
prelude set_option pp.notation false
|
|
definition Prop := Sort 0
|
|
constant eq {A : Type} : A → A → Prop
|
|
infixl `=`:50 := eq
|
|
|
|
constant N : Type
|
|
constant z : N
|
|
constant o : N
|
|
constant b : N
|
|
|
|
notation 0 := z
|
|
notation 1 := o
|
|
|
|
#check 1
|
|
#check 0
|
|
|
|
constant G : Type
|
|
constant gz : G
|
|
constant a : G
|
|
|
|
notation 0 := gz
|
|
|
|
#check a = 0
|
|
#check (0:G) = a
|
|
#check b = 0
|