From 4204d25a2d277af1c16f55ee488e42c7b79bba1f Mon Sep 17 00:00:00 2001 From: Alex AUVOLAT Date: Wed, 21 May 2014 17:57:06 +0200 Subject: All tests pass except one ! --- abstract/environment_domain.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'abstract/environment_domain.ml') 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 *) -- cgit v1.2.3