mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-05 19:00:33 -05:00
27 lines
426 B
OCaml
27 lines
426 B
OCaml
type t = Leq | Geq | Lt | Gt | Eq | Neq
|
|
|
|
let neg = function
|
|
| Leq -> Gt
|
|
| Lt -> Geq
|
|
| Eq -> Neq
|
|
| Neq -> Eq
|
|
| Geq -> Lt
|
|
| Gt -> Leq
|
|
|
|
let neg_sign = function
|
|
| Leq -> Geq
|
|
| Lt -> Gt
|
|
| Geq -> Leq
|
|
| Gt -> Lt
|
|
| Neq -> Neq
|
|
| Eq -> Eq
|
|
|
|
let to_string = function
|
|
| Leq -> "=<"
|
|
| Geq -> ">="
|
|
| Lt -> "<"
|
|
| Gt -> ">"
|
|
| Eq -> "="
|
|
| Neq -> "!="
|
|
|
|
let pp out (self : t) = Fmt.string out (to_string self)
|