fact: Fixpoint insert (a : A) (s : seq A) : M (seq A) := if s isn't h :: t then Ret [:: a] else Ret (a :: h :: t) [~] fmap (cons h) (insert a t).
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib Equations(Equations)