]> matita.cs.unibo.it Git - helm.git/blob - matita/contribs/assembly/freescale/freescale_ocaml/matita_nat_plus.ml
projects / helm.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
tagged 0.5.0-rc1
[helm.git] / matita / contribs / assembly / freescale / freescale_ocaml / matita_nat_plus.ml
1 let plus =
2 let rec plus = 
3 (function n -> (function m -> 
4 (match n with 
5    Matita_nat_nat.O -> m
6  | Matita_nat_nat.S(p) -> (Matita_nat_nat.S((plus p m))))
7 )) in plus
8 ;;
9
Unnamed repository; edit this file 'description' to name the repository.