Parameter MapMake.W

type w
val pp : Format.formatter -> w -> unit
val init : w
val is_better : w -> w -> bool

is better w1 w2 returns true if w1 is strictly better than w2

val is_equal : w -> w -> bool

is better w1 w2 returns true if w1=w2

val update : current:w -> w -> w
val up : w -> 'a -> w
val down : w -> 'a -> w
val right : w -> 'a -> w
module WMap : Map.S with type key = w
val optimum : 'a WMap.t -> (w * 'a) option