include Core.Invariant.S1 with type 'a t := 'a t
Sourceval invariant : 'a Base__Invariant_intf.inv -> 'a t Base__Invariant_intf.inv Sourceval create : (old_value:'a -> new_value:'a -> bool) -> 'a t Sourceval of_compare : ('a -> 'a -> int) -> 'a t Sourceval of_equal : ('a -> 'a -> bool) -> 'a t Sourceval should_cutoff : 'a t -> old_value:'a -> new_value:'a -> bool