17 lines
305 B
Text
17 lines
305 B
Text
class A (α : Type) where
|
||
one : α
|
||
zero : α
|
||
|
||
class B (α : Type) extends A α where
|
||
add : α → α → α
|
||
|
||
class C (α : Type) extends A α where
|
||
mul : α → α → α
|
||
|
||
set_option structureDiamondWarning false
|
||
|
||
def D.toC (x : Nat) := x
|
||
|
||
class D (α : Type) extends B α, C α
|
||
|
||
#check @D.toC_1
|