fact: Definition flush_outputT (X : UU0) (t : outputT R M X) (h : Z -> outputT R M X) : outputT R M X := let: (p, w) := t in (p, [::]).
imports: mathcomp(all_ssreflect) HB(structures) imonae_lib ihierarchy imonad_lib imonad_transformer imonad_model