module type Validate = Comparable_intf.Validatetype t
val validate_lbound : min:t Comparable_intf.bound ->
t Validate.checkval validate_ubound : max:t Comparable_intf.bound ->
t Validate.checkval validate_bound : min:t Comparable_intf.bound ->
max:t Comparable_intf.bound ->
t Validate.check