feat: reexport type state

This commit is contained in:
Simon Cruanes 2021-03-17 14:43:46 -04:00
parent 0aa13ca808
commit fd8b598650
2 changed files with 2 additions and 0 deletions

View file

@ -659,6 +659,7 @@ module type SOLVER = sig
val stats : t -> Stat.t val stats : t -> Stat.t
val tst : t -> T.Term.state val tst : t -> T.Term.state
val ty_st : t -> T.Ty.state
val create : val create :
?stat:Stat.t -> ?stat:Stat.t ->

View file

@ -498,6 +498,7 @@ module Make(A : ARG)
let[@inline] cc self = Solver_internal.cc self.si let[@inline] cc self = Solver_internal.cc self.si
let[@inline] stats self = self.stat let[@inline] stats self = self.stat
let[@inline] tst self = Solver_internal.tst self.si let[@inline] tst self = Solver_internal.tst self.si
let[@inline] ty_st self = Solver_internal.ty_st self.si
let[@inline] mk_atom_lit_ self lit : Atom.t = Sat_solver.make_atom self.solver lit let[@inline] mk_atom_lit_ self lit : Atom.t = Sat_solver.make_atom self.solver lit