10 lines
196 B
Text
10 lines
196 B
Text
|
inductive func (A B : Type) :=
|
||
|
|
mk : (A → B) → func A B
|
||
|
|
|
||
|
|
section
|
||
|
|
parameters {A B : Type}
|
||
|
|
definition to_function (F : func A B) : A → B :=
|
||
|
|
func.rec (λf, f) F
|
||
|
|
coercion to_function
|
||
|
|
end
|