Module MaximumSharing.Sharer

type t
val create : unit -> t
val normalize_value : t -> 'a -> 'a