4 lines
236 B
Text
4 lines
236 B
Text
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)
|