Logic_monad.Logicalval zero : Exninfo.iexn -> 'a tval plus : 'a t -> (Exninfo.iexn -> 'a t) -> 'a tval split : 'a t -> ('a, 'a t, Exninfo.iexn) list_view tval break : (Exninfo.iexn -> Exninfo.iexn option) -> 'a t -> 'a tval lift : 'a NonLogical.t -> 'a ttype 'a reified = ('a, Exninfo.iexn) BackState.reifiedtype 'a reified_ = ('a, Exninfo.iexn) BackState.reified_val repr : 'a reified -> ('a, 'a reified_, Exninfo.iexn) list_view_ NonLogical.tmodule Unsafe : sig ... end