6 lines
445 B
Text
6 lines
445 B
Text
Foo1.mk : {α : Type} → Bar (α → α) → (β : Type) → (α → β) → Foo1 α
|
||
Foo2.mk : {α : Type} → Bar (α → α) → (β : Type) → (α → β) → α → α → Foo2 α
|
||
def Foo2.toBar : {α : Type} → Foo2 α → Bar (α → α) :=
|
||
fun α self => self.1
|
||
def Foo2.toBoo2 : {α : Type} → Foo2 α → Boo2 α :=
|
||
fun α self => { toBoo1 := { toBaz := { a := self.toBar.a, β := _, b := self.b }, x1 := self.x1 }, x2 := self.x2 }
|