blob: 5dbd08fded2a86a462fdb21d2b13b948cecfa3c2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
open Ast
open Formula
module type ENVIRONMENT_DOMAIN = sig
type t
(* construction *)
val init : t
val bottom : t
val is_bot : t -> bool
(* variable management *)
val addvar : t -> id -> bool -> t (* integer or float variable ? *)
val forgetvar : t -> id -> t (* remove var from constraints *)
val rmvar : t -> id -> t
val vars : t -> (id * bool) list
val vbottom : t -> t (* bottom value with same environment *)
(* abstract operation *)
val apply_f : t -> bool_expr -> t
val apply_cl : t -> conslist -> t
val assign : t -> (id * num_expr) list -> t
(* set-theoretic operations *)
val join : t -> t -> t (* union *)
val meet : t -> t -> t (* intersection *)
val widen : t -> t -> t
(* order *)
val subset : t -> t -> bool
val eq : t -> t -> bool
(* pretty-printing *)
val print_vars : Format.formatter -> t -> id list -> unit
val print_all : Format.formatter -> t -> unit
end
|
