Commits

Anonymous committed f29b634

.

Comments (0)

Files changed (1)

     value map_mono f (a, b) = (f a, f b);
 
 
+    value map2
+     : ! 'a 'b 'z . ('b -> 'z) -> (t 'a 'b -> t 'a 'z)
+     = fun f ->
+         fun (a, b) -> (a, f b)
+    ;
+
 
     open Cdt
     ;