fact: Definition list_find (M : contMonad) (A : UU0) (p : pred A) (s : seq A) : M _ := callcc (fun k => list_iter (fun x => if p x then k (Some x) else Ret tt) s >> Ret None).
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib itrace_lib imonad_transformer