]> matita.cs.unibo.it Git - helm.git/blob - matita/matita/contribs/assembly/freescale/freescale_ocaml/matita_higher_order_defs_functions.ml
Stuff moved from old Matita.
[helm.git] / matita / matita / contribs / assembly / freescale / freescale_ocaml / matita_higher_order_defs_functions.ml
1 let compose =
2 (function f -> (function g -> (function x -> (f (g x)))))
3 ;;
4