use operator name in print_fold
This commit is contained in:
parent
6ac8be6984
commit
e0b2dfe566
3 changed files with 36 additions and 2 deletions
3
misc.mli
3
misc.mli
|
@ -8,6 +8,9 @@ type 'a monoid =
|
|||
op: 'a -> 'a -> 'a;
|
||||
op_name: string;
|
||||
pp: Format.formatter -> 'a -> unit}
|
||||
|
||||
val fold_list: 'a monoid -> 'a list -> 'a
|
||||
|
||||
val mult: int monoid
|
||||
val add: int monoid
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue