fact: Definition promote_assert (M : failMonad) (A : UU0) (p : pred (seq A)) (q : pred (seq A * seq A)) := (bassert p) \o (fmap ucat) \o mpair = (fmap ucat) \o (bassert q) \o mpair \o (bassert p)^`2 :> (_ -> M _).
imports: mathcomp(all_ssreflect) monae_lib HB(structures) hierarchy monad_lib fail_lib