simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 03:05:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat(theory): add name accessor

Browse source
This commit is contained in:
Simon Cruanes 2022-08-16 21:29:58 -04:00
parent 310d2183c4
commit 5b87ff3e46
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/smt/theory.ml
View file

@ -31,6 +31,11 @@ type 'a p = (module S with type t = 'a)
(** A theory that can be used for this particular solver, with state (** A theory that can be used for this particular solver, with state
of type ['a]. *) of type ['a]. *)
(** Name of the theory *)
let name (th : t) =
let (module T) = th in
T.name
let make (type st) ~name ~create_and_setup ?(push_level = fun _ -> ()) let make (type st) ~name ~create_and_setup ?(push_level = fun _ -> ())
?(pop_levels = fun _ _ -> ()) () : t = ?(pop_levels = fun _ _ -> ()) () : t =
let module Th = struct let module Th = struct