blob: 9272cf86ba3f5434cd1ab58d2ce3354ab82b71ff [file] [edit]
Foo1.mk {α : Type} (toBar : Bar (α → α)) (β : Type) (b : α → β) : Foo1 α
Foo2.mk {α : Type} (toBar : Bar (α → α)) (β : Type) (b : α → β) (x1 x2 : α) : Foo2 α
@[reducible] def Foo2.toBar : {α : Type} → Foo2 α → Bar (α → α) :=
fun α self => self.1
@[reducible] def Foo2.toBoo2 : {α : Type} → Foo2 α → Boo2 α :=
fun α self => { a := self.a, β := self.β, b := self.b, x1 := self.x1, x2 := self.x2 }