Bring back Expr.Bool.v

Author: filipeom

lib/expr.ml

@@ -519,6 +519,8 @@ module Bool = struct
 
   let to_val b = if b then true_ else false_
 
+  let v b = to_val b [@@inline]
+
   let not_ (b : t) =
     let bexpr = view b in
     match of_val bexpr with

lib/expr.mli

@@ -135,6 +135,8 @@ module Bool : sig
 
   val false_ : t
 
+  val v : bool -> t
+
   val not_ : t -> t
 
   val equal : t -> t -> t