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