diff options
author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-21 18:07:37 +0200 |
---|---|---|
committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-21 18:07:37 +0200 |
commit | 77df0b0f119fc70624e4b830320a2b3e1034f7b5 (patch) | |
tree | ebac7e6c6bd653359181af16cc71192138161f47 /abstract/value_domain.ml | |
parent | 4204d25a2d277af1c16f55ee488e42c7b79bba1f (diff) | |
download | SemVerif-Projet-77df0b0f119fc70624e4b830320a2b3e1034f7b5.tar.gz SemVerif-Projet-77df0b0f119fc70624e4b830320a2b3e1034f7b5.zip |
Just retab (many lines changed for nothing)
Diffstat (limited to 'abstract/value_domain.ml')
-rw-r--r-- | abstract/value_domain.ml | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/abstract/value_domain.ml b/abstract/value_domain.ml index 9cf6d76..da4f481 100644 --- a/abstract/value_domain.ml +++ b/abstract/value_domain.ml @@ -1,31 +1,31 @@ module type VALUE_DOMAIN = sig - type t + type t - (* constructors *) - val top : t - val bottom : t - val const : Z.t -> t - val rand : Z.t -> Z.t -> t + (* constructors *) + val top : t + val bottom : t + val const : Z.t -> t + val rand : Z.t -> Z.t -> t - (* order *) - val subset : t -> t -> bool + (* order *) + val subset : t -> t -> bool - (* set-theoretic operations *) - val join : t -> t -> t (* union *) - val meet : t -> t -> t (* intersection *) - val widen : t -> t -> t + (* set-theoretic operations *) + val join : t -> t -> t (* union *) + val meet : t -> t -> t (* intersection *) + val widen : t -> t -> t - (* arithmetic operations *) - val neg : t -> t - val add : t -> t -> t - val sub : t -> t -> t - val mul : t -> t -> t - val div : t -> t -> t - val rem : t -> t -> t + (* arithmetic operations *) + val neg : t -> t + val add : t -> t -> t + val sub : t -> t -> t + val mul : t -> t -> t + val div : t -> t -> t + val rem : t -> t -> t - (* boolean test *) - val leq : t -> t -> t * t (* For intervals : [a, b] -> [c, d] -> ([a, min b d], [max a c, d]) *) + (* boolean test *) + val leq : t -> t -> t * t (* For intervals : [a, b] -> [c, d] -> ([a, min b d], [max a c, d]) *) - (* pretty-printing *) - val to_string : t -> string + (* pretty-printing *) + val to_string : t -> string end |