def D.toB : {α : Type} → [self : D α] → B α :=
fun (α : Type) [self : D α] => self.1
def D.toC : {α : Type} → [self : D α] → C α :=
fun (α : Type) (self : D α) => @C.mk α (@B.toA α (@D.toB α self)) (@D.mul α self)