module Condition:sig..end
type typ =
| |
EQ |
| |
SUPEQ |
| |
SUP |
| |
NEQ |
typet =typ * Arith.expr
val make : < typ_of_var : Var.t -> [> `Int | `Real ]; .. > ->
typ ->
Arith.expr -> [ `Arith of t | `Bool of bool ]val negate : < typ_of_var : Var.t -> [> `Int | `Real ]; .. > ->
t -> tval support : t -> Var.Set.tval print : Format.formatter -> t -> unitval compare : t -> t -> int