summaryrefslogtreecommitdiff
path: root/abstract/value_domain.ml
diff options
context:
space:
mode:
authorAlex AUVOLAT <alex.auvolat@ens.fr>2014-05-21 18:07:37 +0200
committerAlex AUVOLAT <alex.auvolat@ens.fr>2014-05-21 18:07:37 +0200
commit77df0b0f119fc70624e4b830320a2b3e1034f7b5 (patch)
treeebac7e6c6bd653359181af16cc71192138161f47 /abstract/value_domain.ml
parent4204d25a2d277af1c16f55ee488e42c7b79bba1f (diff)
downloadSemVerif-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.ml46
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