branch for universe

[helm.git] / matita / contribs / assembly / freescale / freescale_ocaml / matita_higher_order_defs_functions.ml

diff --git a/matita/contribs/assembly/freescale/freescale_ocaml/matita_higher_order_defs_functions.ml b/matita/contribs/assembly/freescale/freescale_ocaml/matita_higher_order_defs_functions.ml
new file mode 100644 (file)
index 0000000..8e662cb
--- /dev/null
+++ b/matita/contribs/assembly/freescale/freescale_ocaml/matita_higher_order_defs_functions.ml
@@ -0,0 +1,4 @@
+let compose =
+(function f -> (function g -> (function x -> (f (g x)))))
+;;
+