package cps_toolbox

  1. Overview
  2. Docs
type t =
  1. | EQ
  2. | LT
  3. | GT
type 'a total = 'a -> 'a -> t
val int : int total
val string : string total