fact: Definition read_impl A `{Inhab B} (M:map A B) (k:A) := match M k with | None => arbitrary | Some v => v end.
imports: TLC(LibTactics LibLogic LibReflect LibOption LibRelation LibLogic LibOperation LibEpsilon LibMonoid LibSet LibContainer LibMap)