proposition: Lemma read_update_same : forall A `{Inhab B} (m:map A B) (i:A) (v:B), (m[i:=v])[i] = v.
proof: Proof. Proof using. intros. rewrite read_update. case_if~. Qed.
imports: TLC(LibTactics LibLogic LibReflect LibOption LibRelation LibLogic LibOperation LibEpsilon LibMonoid LibSet)