11 lines
266 B
Text
11 lines
266 B
Text
universe variables u v
|
|
|
|
structure Func :=
|
|
(A : Type u) (B : A → Type v) (fn : Π a, B a → B a)
|
|
|
|
instance F_to_fn : has_coe_to_fun Func :=
|
|
{ F := λ f, Π a, f^.B a → f^.B a,
|
|
coe := λ f, f^.fn }
|
|
|
|
variables (f : Func) (a : f^.A) (b : f^.B a)
|
|
#check (f a b)
|