fact: Definition apply_triple_snd A B C D (f : B -> M D) (abc : A * B * C) : M (A * D * C)%type := f abc.1.2 >>= (fun d => Ret (abc.1.1, d, abc.2)).
imports: ssrmatching mathcomp(all_ssreflect) monae_lib HB(structures) hierarchy