2014-09-12 19:13:29 +00:00
|
|
|
inductive func (A B : Type) :=
|
|
|
|
mk : (A → B) → func A B
|
|
|
|
|
|
|
|
section
|
2014-10-09 14:13:06 +00:00
|
|
|
variables {A B : Type}
|
2014-09-12 19:13:29 +00:00
|
|
|
definition to_function (F : func A B) : A → B :=
|
|
|
|
func.rec (λf, f) F
|
2015-01-25 04:23:21 +00:00
|
|
|
attribute to_function [coercion]
|
2014-09-12 19:13:29 +00:00
|
|
|
end
|