2014-09-16 20:08:34 +00:00
|
|
|
import data.nat
|
|
|
|
|
inductive foo (A B : Type) : Type :=
|
|
|
|
|
mk : (Π {C : Type}, A → C → B) → foo A B
|
|
|
|
|
|
|
|
|
|
definition to_fun [coercion] {A B : Type} (f : foo A B) : Π {C : Type}, A → C → B :=
|
|
|
|
|
foo.rec (λf, f) f
|
|
|
|
|
|
2014-10-02 23:20:52 +00:00
|
|
|
constant f : foo nat nat
|
|
|
|
|
constant a : nat
|
2014-09-16 20:08:34 +00:00
|
|
|
check f a true
|
