sig
  type ('a, 'b) man
  type 'a t0
  type ('a, 'b) t = ('a Env.t, 'b Domainlevel1.Level1.t0) Env.value
  val get_env : ('a, 'b) Domainlevel1.Level1.t -> 'a Env.t
  val to_level0 : ('a, 'b) Domainlevel1.Level1.t -> 'b Domainlevel1.Level1.t0
  val size :
    ('a, 'b) Domainlevel1.Level1.man -> ('a, 'b) Domainlevel1.Level1.t -> int
  val print :
    ?print_apron:((int -> string) ->
                  Format.formatter -> 'a Apron.Abstract0.t -> unit) ->
    Format.formatter -> ('b, 'a) Domainlevel1.Level1.t -> unit
  val bottom :
    ('a, 'b) Domainlevel1.Level1.man ->
    'a Env.t -> ('a, 'b) Domainlevel1.Level1.t
  val top :
    ('a, 'b) Domainlevel1.Level1.man ->
    'a Env.t -> ('a, 'b) Domainlevel1.Level1.t
  val of_apron :
    ('a, 'b) Domainlevel1.Level1.man ->
    'a Env.t -> 'b Apron.Abstract1.t -> ('a, 'b) Domainlevel1.Level1.t
  val is_bottom :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t -> bool
  val is_top :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t -> bool
  val is_leq :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t -> ('a, 'b) Domainlevel1.Level1.t -> bool
  val is_eq :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t -> ('a, 'b) Domainlevel1.Level1.t -> bool
  val to_bddapron :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t ->
    ('a Expr1.Bool.t * 'b Apron.Abstract1.t) list
  val meet :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t ->
    ('a, 'b) Domainlevel1.Level1.t -> ('a, 'b) Domainlevel1.Level1.t
  val join :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t ->
    ('a, 'b) Domainlevel1.Level1.t -> ('a, 'b) Domainlevel1.Level1.t
  val meet_condition :
    ('a, 'b) Domainlevel1.Level1.man ->
    'a Cond.t ->
    ('a, 'b) Domainlevel1.Level1.t ->
    'a Expr1.Bool.t -> ('a, 'b) Domainlevel1.Level1.t
  val meet_condition2 :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t ->
    'a Expr2.Bool.t -> ('a, 'b) Domainlevel1.Level1.t
  val assign_lexpr :
    ?relational:bool ->
    ?nodependency:bool ->
    ('a, 'b) Domainlevel1.Level1.man ->
    'a Cond.t ->
    ('a, 'b) Domainlevel1.Level1.t ->
    'a list ->
    'a Expr1.t list ->
    ('a, 'b) Domainlevel1.Level1.t option -> ('a, 'b) Domainlevel1.Level1.t
  val assign_listexpr2 :
    ?relational:bool ->
    ?nodependency:bool ->
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t ->
    'a list ->
    'a Expr2.List.t ->
    ('a, 'b) Domainlevel1.Level1.t option -> ('a, 'b) Domainlevel1.Level1.t
  val substitute_lexpr :
    ('a, 'b) Domainlevel1.Level1.man ->
    'a Cond.t ->
    ('a, 'b) Domainlevel1.Level1.t ->
    'a list ->
    'a Expr1.t list ->
    ('a, 'b) Domainlevel1.Level1.t option -> ('a, 'b) Domainlevel1.Level1.t
  val substitute_listexpr2 :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t ->
    'a list ->
    'a Expr2.List.t ->
    ('a, 'b) Domainlevel1.Level1.t option -> ('a, 'b) Domainlevel1.Level1.t
  val forget_list :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t ->
    'a list -> ('a, 'b) Domainlevel1.Level1.t
  val widening :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t ->
    ('a, 'b) Domainlevel1.Level1.t -> ('a, 'b) Domainlevel1.Level1.t
  val change_environment :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t ->
    'a Env.t -> ('a, 'b) Domainlevel1.Level1.t
  val rename :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t ->
    ('a * 'a) list -> ('a, 'b) Domainlevel1.Level1.t
  val unify :
    ('a, 'b) Domainlevel1.Level1.man ->
    ('a, 'b) Domainlevel1.Level1.t ->
    ('a, 'b) Domainlevel1.Level1.t -> ('a, 'b) Domainlevel1.Level1.t
end