diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-21 17:57:06 +0200 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-21 17:57:06 +0200 |
| commit | 4204d25a2d277af1c16f55ee488e42c7b79bba1f (patch) | |
| tree | 81f62443a6466ca35719588836038c62f7ac3485 /abstract/environment_domain.ml | |
| parent | 4d59f3a805d0cca882caab353ac8ec0dd4c04f73 (diff) | |
| download | SemVerif-Projet-4204d25a2d277af1c16f55ee488e42c7b79bba1f.tar.gz SemVerif-Projet-4204d25a2d277af1c16f55ee488e42c7b79bba1f.zip | |
All tests pass except one !
Diffstat (limited to 'abstract/environment_domain.ml')
| -rw-r--r-- | abstract/environment_domain.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/abstract/environment_domain.ml b/abstract/environment_domain.ml index 05473aa..5c00fbd 100644 --- a/abstract/environment_domain.ml +++ b/abstract/environment_domain.ml @@ -15,7 +15,8 @@ module type ENVIRONMENT_DOMAIN = sig (* abstract operation *) val assign : t -> id -> expr ext -> t (* S[id <- expr] *) - val compare : t -> expr ext -> expr ext -> t (* S[expr <= expr ?] *) + val compare_leq : t -> expr ext -> expr ext -> t (* S[expr <= expr ?] *) + val compare_eq : t -> expr ext -> expr ext -> t (* S[expr = expr ?] *) (* set-theoretic operations *) val join : t -> t -> t (* union *) |