diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-06-01 11:40:43 +0200 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-06-01 11:40:43 +0200 |
| commit | c4a24372b70180f23b7a56a81533e86ebb8509e7 (patch) | |
| tree | d7a97ab4aa99d3d27331edb83f672398d030e41d /abstract/nonrelational.ml | |
| parent | 727354805f3c33d17bff18b74fc688b631e85f41 (diff) | |
| download | SemVerif-Projet-c4a24372b70180f23b7a56a81533e86ebb8509e7.tar.gz SemVerif-Projet-c4a24372b70180f23b7a56a81533e86ebb8509e7.zip | |
Diffstat (limited to 'abstract/nonrelational.ml')
| -rw-r--r-- | abstract/nonrelational.ml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/abstract/nonrelational.ml b/abstract/nonrelational.ml index 188c8bc..530b373 100644 --- a/abstract/nonrelational.ml +++ b/abstract/nonrelational.ml @@ -113,6 +113,16 @@ module NonRelational (V : VALUE_DOMAIN) : ENVIRONMENT_DOMAIN = struct (fun _ v -> v = V.top) (fun _ a b -> V.subset a b) m n + + let eq a b = match a, b with + | Bot, Bot -> true + | Env m, Env n -> + VarMap.for_all2o + (fun _ _ -> false) + (fun _ _ -> false) + (fun _ a b -> a = b) + m n + | _ -> false (* pretty-printing *) let var_str env vars = |