e4a3b434d7
@Kha The transition has begun :) I found and fixed a few bugs, but it is going well so far.
13 lines
263 B
Text
13 lines
263 B
Text
new_frontend
|
|
|
|
universe u
|
|
|
|
structure Group :=
|
|
(carrier : Type u) (mul : carrier → carrier → carrier) (one : carrier)
|
|
|
|
instance GroupToType : CoeSort Group (Type u) :=
|
|
CoeSort.mk (fun g => g.carrier)
|
|
|
|
variable (g : Group.{1})
|
|
|
|
#check fun (a b : g) => g.mul a b
|