fix: add missig module Value

src/smt/Value.ml

@@ -0,0 +1,21 @@
+
+(** {1 Value} *)
+
+open Solver_types
+
+type t = value
+
+let true_ = V_bool true
+let false_ = V_bool false
+let bool v = V_bool v
+
+let mk_elt id ty : t = V_element {id; ty}
+
+let is_bool = function V_bool _ -> true | _ -> false
+let is_true = function V_bool true -> true | _ -> false
+let is_false = function V_bool false -> true | _ -> false
+
+let equal = eq_value
+let hash = hash_value
+let pp = pp_value
+

src/smt/Value.mli

@@ -0,0 +1,22 @@
+
+(** {1 Value}
+
+    Semantic value *)
+
+type t = Solver_types.value
+
+val true_ : t
+val false_ : t
+val bool : bool -> t
+
+val mk_elt : ID.t -> Ty.t -> t
+
+val is_bool : t -> bool
+val is_true : t -> bool
+val is_false : t -> bool
+
+include Intf.EQ with type t := t
+include Intf.HASH with type t := t
+include Intf.PRINT with type t := t
+
+