proposition: Lemma insert_same2 i a : insert i (a i) a = a.
proof: Proof. by apply boolp.funext => j; rewrite /insert; case: ifPn => // /eqP ->. Qed.
imports: JMeq mathcomp(all_ssreflect) mathcomp(finmap) mathcomp(classical_sets) monae_lib HB(structures) hierarchy monad_lib fail_lib state_lib trace_lib monad_transformer