diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-14 17:23:57 +0200 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-14 17:23:57 +0200 |
| commit | 9714afeb275360110161c870b50627128fda75a0 (patch) | |
| tree | ed9e8b8ff1d3881ec1e16943d07c87b1dd739670 /abstract/environment_domain.ml | |
| parent | d4ab85a1a6503cdbcb98c183c3357926d78da8a7 (diff) | |
| download | SemVerif-Projet-9714afeb275360110161c870b50627128fda75a0.tar.gz SemVerif-Projet-9714afeb275360110161c870b50627128fda75a0.zip | |
Many things work!
Diffstat (limited to 'abstract/environment_domain.ml')
| -rw-r--r-- | abstract/environment_domain.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/abstract/environment_domain.ml b/abstract/environment_domain.ml index 254f755..05473aa 100644 --- a/abstract/environment_domain.ml +++ b/abstract/environment_domain.ml @@ -11,6 +11,7 @@ module type ENVIRONMENT_DOMAIN = sig (* variable management *) val addvar : t -> id -> t val rmvar : t -> id -> t + val vars : t -> id list (* abstract operation *) val assign : t -> id -> expr ext -> t (* S[id <- expr] *) @@ -25,8 +26,7 @@ module type ENVIRONMENT_DOMAIN = sig val subset : t -> t -> bool (* pretty-printing *) - val var_str : t -> id list -> string - val all_vars_str : t -> string + val var_str : t -> id list -> string end |