fact: Fixpoint adjustWithKey `{EqDec k} (f : k → v → v) (i : k) (m : Map) : Map := match m with | Empty => Empty | Add i' x' m => if eq_dec i i' then Add i' (f i' x') m else Add i' x' (adjustWithKey f i m) end.
imports: Coq.Lists.List Coq.micromega.Lia Equations(Equations) Category.Lib