fact: Fixpoint list_iter (M : monad) A (f : A -> M unit) (s : seq A) : M unit := if s is h :: t then f h >> list_iter f t else Ret tt.
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib itrace_lib imonad_transformer