proposition: Lemma insert_same i a s : insert i s a i = s.
proof: Proof. by rewrite /insert eqxx. Qed.
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib itrace_lib imonad_transformer