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