sig
  type 'a t = ('Env.t, 'Expr0.Apron.t) Env.value
  val of_expr0 : 'Env.t -> 'Expr0.Apron.t -> 'Expr1.Apron.t
  val get_env : 'Expr1.Apron.t -> 'Env.t
  val to_expr0 : 'Expr1.Apron.t -> 'Expr0.Apron.t
  val of_expr : 'Expr1.expr -> 'Expr1.Apron.t
  val to_expr : 'Expr1.Apron.t -> 'Expr1.expr
  val extend_environment : 'Expr1.Apron.t -> 'Env.t -> 'Expr1.Apron.t
  val var : 'Env.t -> 'Cond.t -> '-> 'Expr1.Apron.t
  val cst : 'Env.t -> 'Cond.t -> Apron.Coeff.t -> 'Expr1.Apron.t
  val add :
    'Cond.t ->
    ?typ:Apron.Texpr1.typ ->
    ?round:Apron.Texpr1.round ->
    'Expr1.Apron.t -> 'Expr1.Apron.t -> 'Expr1.Apron.t
  val mul :
    'Cond.t ->
    ?typ:Apron.Texpr1.typ ->
    ?round:Apron.Texpr1.round ->
    'Expr1.Apron.t -> 'Expr1.Apron.t -> 'Expr1.Apron.t
  val sub :
    'Cond.t ->
    ?typ:Apron.Texpr1.typ ->
    ?round:Apron.Texpr1.round ->
    'Expr1.Apron.t -> 'Expr1.Apron.t -> 'Expr1.Apron.t
  val div :
    'Cond.t ->
    ?typ:Apron.Texpr1.typ ->
    ?round:Apron.Texpr1.round ->
    'Expr1.Apron.t -> 'Expr1.Apron.t -> 'Expr1.Apron.t
  val gmod :
    'Cond.t ->
    ?typ:Apron.Texpr1.typ ->
    ?round:Apron.Texpr1.round ->
    'Expr1.Apron.t -> 'Expr1.Apron.t -> 'Expr1.Apron.t
  val negate : 'Cond.t -> 'Expr1.Apron.t -> 'Expr1.Apron.t
  val sqrt :
    'Cond.t ->
    ?typ:Apron.Texpr1.typ ->
    ?round:Apron.Texpr1.round -> 'Expr1.Apron.t -> 'Expr1.Apron.t
  val cast :
    'Cond.t ->
    ?typ:Apron.Texpr1.typ ->
    ?round:Apron.Texpr1.round -> 'Expr1.Apron.t -> 'Expr1.Apron.t
  val ite :
    'Cond.t ->
    'Expr1.Bool.t ->
    'Expr1.Apron.t -> 'Expr1.Apron.t -> 'Expr1.Apron.t
  val condition :
    'Cond.t -> Apron.Tcons1.typ -> 'Expr1.Apron.t -> 'Expr1.Bool.t
  val supeq : 'Cond.t -> 'Expr1.Apron.t -> 'Expr1.Bool.t
  val sup : 'Cond.t -> 'Expr1.Apron.t -> 'Expr1.Bool.t
  val eq : 'Cond.t -> 'Expr1.Apron.t -> 'Expr1.Bool.t
  val cofactor : 'Expr1.Apron.t -> 'Expr1.Bool.t -> 'Expr1.Apron.t
  val restrict : 'Expr1.Apron.t -> 'Expr1.Bool.t -> 'Expr1.Apron.t
  val tdrestrict : 'Expr1.Apron.t -> 'Expr1.Bool.t -> 'Expr1.Apron.t
  val substitute_by_var :
    'Cond.t -> 'Expr1.Apron.t -> ('a * 'a) list -> 'Expr1.Apron.t
  val substitute :
    'Cond.t ->
    'Expr1.Apron.t -> ('a * 'Expr1.expr) list -> 'Expr1.Apron.t
  val print : 'Cond.t -> Format.formatter -> 'Expr1.Apron.t -> unit
end