12 lines
321 B
Text
12 lines
321 B
Text
universe variables u
|
|
structure Group :=
|
|
(carrier : Type u) (mul : carrier → carrier → carrier) (one : carrier)
|
|
|
|
attribute [instance]
|
|
definition Group_to_Type : has_coe_to_sort Group :=
|
|
{ S := Type u, coe := λ g, g~>carrier }
|
|
|
|
constant g : Group.{1}
|
|
set_option pp.binder_types true
|
|
|
|
check λ a b : g, Group.mul g a b
|