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 α
