Module GobApron.Texpr1

type t = Apron.Texpr1.t = {
  1. mutable texpr0 : Apron.Texpr0.t;
  2. mutable env : Apron.Environment.t;
}
type unop = Apron.Texpr0.unop =
  1. | Neg
  2. | Cast
  3. | Sqrt
type binop = Apron.Texpr0.binop =
  1. | Add
  2. | Sub
  3. | Mul
  4. | Div
  5. | Mod
  6. | Pow
type typ = Apron.Texpr0.typ =
  1. | Real
  2. | Int
  3. | Single
  4. | Double
  5. | Extended
  6. | Quad
type round = Apron.Texpr0.round =
  1. | Near
  2. | Zero
  3. | Up
  4. | Down
  5. | Rnd
type expr = Apron.Texpr1.expr =
  1. | Cst of Apron.Coeff.t
  2. | Var of Apron.Var.t
  3. | Unop of unop * expr * typ * round
  4. | Binop of binop * expr * expr * typ * round
val of_expr : Apron.Environment.t -> expr -> t
val copy : t -> t
val of_linexpr : Apron.Linexpr1.t -> t
val to_expr : t -> expr
val cst : Apron.Environment.t -> Apron.Coeff.t -> t
val var : Apron.Environment.t -> Apron.Var.t -> t
val unop : Apron.Texpr0.unop -> t -> Apron.Texpr0.typ -> Apron.Texpr0.round -> t
val binop : Apron.Texpr0.binop -> t -> t -> Apron.Texpr0.typ -> Apron.Texpr0.round -> t
val is_interval_cst : t -> bool
val is_interval_linear : t -> bool
val is_interval_polynomial : t -> bool
val is_interval_polyfrac : t -> bool
val is_scalar : t -> bool
val extend_environment : t -> Apron.Environment.t -> t
val extend_environment_with : t -> Apron.Environment.t -> unit
val get_texpr0 : t -> Apron.Texpr0.t
val get_env : t -> Apron.Environment.t
val string_of_unop : unop -> string
val string_of_binop : binop -> string
val string_of_typ : typ -> string
val string_of_round : round -> string
val print_unop : Stdlib.Format.formatter -> unop -> unit
val print_binop : Stdlib.Format.formatter -> binop -> unit
val print_typ : Stdlib.Format.formatter -> typ -> unit
val print_round : Stdlib.Format.formatter -> round -> unit
val print_expr : Stdlib.Format.formatter -> expr -> unit
val print : Stdlib.Format.formatter -> t -> unit
val pp : Stdlib.Format.formatter -> t -> unit
include sig ... end
val show : t -> string
val pretty : unit -> t -> Printable.Pretty.doc
val printXml : 'a BatInnerIO.output -> t -> unit
val to_yojson : t -> [> `String of string ]
module Expr : sig ... end