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