Format

src/ast/ast.mli

@@ -19,7 +19,10 @@
 type t =
   | Assert of Expr.t
   | Check_sat of Expr.t list
-  | Declare_const of { id : Symbol.t; sort : Symbol.t }
+  | Declare_const of
+      { id : Symbol.t
+      ; sort : Symbol.t
+      }
   | Echo of string
   | Exit
   | Get_assertions

src/mappings.nop.ml

@@ -370,7 +370,7 @@ module Nop = struct
     end
 
     module Smtlib = struct
-      let pp ?name:_ ?logic:_ ?status:_  _fmt _ = die ()
+      let pp ?name:_ ?logic:_ ?status:_ _fmt _ = die ()
     end
   end
 

src/solvers/solver_intf.ml

@@ -37,10 +37,10 @@ module type S = sig
       [?params] is of type {!type:Params.t} and is used to modify/set parameters
       inside the solver.
 
-      [?logic] is of type {!type:Ty.logic} and is used to set the
-      theory of the assertions used. When knowing what the underlying theory is
-      going to be, setting this parameter can help the SMT solver be more
-      performant. The default logic is {e unknown_theory}. *)
+      [?logic] is of type {!type:Ty.logic} and is used to set the theory of the
+      assertions used. When knowing what the underlying theory is going to be,
+      setting this parameter can help the SMT solver be more performant. The
+      default logic is {e unknown_theory}. *)
   val create : ?params:Params.t -> ?logic:Ty.logic -> unit -> t
 
   (** Interrupt solver. *)