1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
(* SPDX-License-Identifier: MIT *)
(* Copyright (C) 2023-2024 formalsec *)
(* Written by the Smtml programmers *)
include Mappings_intf
module type S = sig
type t
val create : unit -> t
val push : t -> unit
val pop : t -> unit
val add : t -> Expr.t list -> unit
val protect : t -> (unit -> 'a) -> 'a
val check : t -> [ `Sat | `Unsat | `Unknown ]
val model : t -> Model.t option
val maximize : t -> Expr.t -> Value.t option
val minimize : t -> Expr.t -> Value.t option
val get_statistics : t -> Statistics.t
end
module type Intf = sig
module type S = S
module Make (_ : Mappings_intf.S) : S
module Z3 : S
end