Logical.Unsafetype state = Logic_monad.Logical(P).Unsafe.state = {rstate : P.e; |
ustate : P.u; |
wstate : P.w; |
sstate : P.s; |
}val make : ('a, state, state, Exninfo.iexn) Logic_monad.BackState.t -> 'a tval repr : 'a t -> ('a, state, state, Exninfo.iexn) Logic_monad.BackState.t