include Core.Invariant.S1 with type 'a t := 'a t
val invariant : 'a Base__.Invariant_intf.inv -> 'a t Base__.Invariant_intf.invval create : (old_value:'a -> new_value:'a -> bool) -> 'a tval of_compare : ('a -> 'a -> int) -> 'a tval of_equal : ('a -> 'a -> bool) -> 'a tval should_cutoff : 'a t -> old_value:'a -> new_value:'a -> boolval equal : 'a t -> 'a t -> bool