sig
type t = {
mutable lincons0 : Apron.Lincons0.t;
mutable env : Apron.Environment.t;
}
and earray = {
mutable lincons0_array : Apron.Lincons0.t array;
mutable array_env : Apron.Environment.t;
}
type typ =
Apron.Lincons0.typ =
EQ
| SUPEQ
| SUP
| DISEQ
| EQMOD of Apron.Scalar.t
val make : Apron.Linexpr1.t -> Apron.Lincons1.typ -> Apron.Lincons1.t
val copy : Apron.Lincons1.t -> Apron.Lincons1.t
val string_of_typ : Apron.Lincons1.typ -> string
val print : Format.formatter -> Apron.Lincons1.t -> unit
val get_typ : Apron.Lincons1.t -> Apron.Lincons1.typ
val iter :
(Apron.Coeff.t -> Apron.Var.t -> unit) -> Apron.Lincons1.t -> unit
val get_cst : Apron.Lincons1.t -> Apron.Coeff.t
val set_typ : Apron.Lincons1.t -> Apron.Lincons1.typ -> unit
val set_list :
Apron.Lincons1.t ->
(Apron.Coeff.t * Apron.Var.t) list -> Apron.Coeff.t option -> unit
val set_array :
Apron.Lincons1.t ->
(Apron.Coeff.t * Apron.Var.t) array -> Apron.Coeff.t option -> unit
val set_cst : Apron.Lincons1.t -> Apron.Coeff.t -> unit
external get_coeff : Apron.Lincons1.t -> Apron.Var.t -> Apron.Coeff.t
= "camlidl_lincons1_ap_lincons1_get_coeff"
external set_coeff :
Apron.Lincons1.t -> Apron.Var.t -> Apron.Coeff.t -> unit
= "camlidl_lincons1_ap_lincons1_set_coeff"
external make_unsat : Apron.Environment.t -> Apron.Lincons1.t
= "camlidl_lincons1_ap_lincons1_make_unsat"
external is_unsat : Apron.Lincons1.t -> bool
= "camlidl_lincons1_ap_lincons1_is_unsat"
external extend_environment :
Apron.Lincons1.t -> Apron.Environment.t -> Apron.Lincons1.t
= "camlidl_lincons1_ap_lincons1_extend_environment"
external extend_environment_with :
Apron.Lincons1.t -> Apron.Environment.t -> unit
= "camlidl_lincons1_ap_lincons1_extend_environment_with"
val get_env : Apron.Lincons1.t -> Apron.Environment.t
val get_linexpr1 : Apron.Lincons1.t -> Apron.Linexpr1.t
val get_lincons0 : Apron.Lincons1.t -> Apron.Lincons0.t
val array_make : Apron.Environment.t -> int -> Apron.Lincons1.earray
val array_print :
?first:(unit, Format.formatter, unit) Pervasives.format ->
?sep:(unit, Format.formatter, unit) Pervasives.format ->
?last:(unit, Format.formatter, unit) Pervasives.format ->
Format.formatter -> Apron.Lincons1.earray -> unit
val array_length : Apron.Lincons1.earray -> int
val array_get_env : Apron.Lincons1.earray -> Apron.Environment.t
val array_get : Apron.Lincons1.earray -> int -> Apron.Lincons1.t
val array_set : Apron.Lincons1.earray -> int -> Apron.Lincons1.t -> unit
external array_extend_environment :
Apron.Lincons1.earray -> Apron.Environment.t -> Apron.Lincons1.earray
= "camlidl_lincons1_ap_lincons1_array_extend_environment"
external array_extend_environment_with :
Apron.Lincons1.earray -> Apron.Environment.t -> unit
= "camlidl_lincons1_ap_lincons1_array_extend_environment_with"
end