fact: Definition bassert_size {M : failMonad} (A B : UU0) (f : seq B -> M (A * seq B)%type) := @bassert_hylo M _ _ f predT (fun _ _ x y => size x < size y).
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib Equations(Equations)