X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fcontribs%2Fassembly%2Ffreescale%2Ffreescale_ocaml%2Fmatita_nat_factorial.ml;fp=matita%2Fcontribs%2Fassembly%2Ffreescale%2Ffreescale_ocaml%2Fmatita_nat_factorial.ml;h=ccba60502f8ebb019556070abac6c6f84ba119c7;hp=0000000000000000000000000000000000000000;hb=f61af501fb4608cc4fb062a0864c774e677f0d76;hpb=58ae1809c352e71e7b5530dc41e2bfc834e1aef1

diff --git a/matita/contribs/assembly/freescale/freescale_ocaml/matita_nat_factorial.ml b/matita/contribs/assembly/freescale/freescale_ocaml/matita_nat_factorial.ml
new file mode 100644
index 000000000..ccba60502
--- /dev/null
+++ b/matita/contribs/assembly/freescale/freescale_ocaml/matita_nat_factorial.ml
@@ -0,0 +1,9 @@
+let fact =
+let rec fact = 
+(function n -> 
+(match n with 
+   Matita_nat_nat.O -> (Matita_nat_nat.S(Matita_nat_nat.O))
+ | Matita_nat_nat.S(m) -> (Matita_nat_times.times (Matita_nat_nat.S(m)) (fact m)))
+) in fact
+;;
+