Module Logical.Unsafe

type 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 t
val repr : 'a t -> ('a, state, state, Exninfo.iexn) Logic_monad.BackState.t