diff --git a/CHANGELOG.md b/CHANGELOG.md index aca01da625fc54001b60af04d8071fb8d348215d..81d013d3d8aa4ee496a8c14e88cee5b753dc386d 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,6 +1,11 @@ This file lists "large-ish" changes to the std++ Coq library, but not every API-breaking change is listed. +## std++ master + +- Rename `dom_map filter` → `dom_filter`, `dom_map_filter_L` → `dom_filter_L`, + and `dom_map_filter_subseteq` → `dom_filter_subseteq` for consistency's sake. + ## std++ 1.4.0 (released 2020-07-15) Coq 8.12 is newly supported by this release, and Coq 8.7 is no longer supported. diff --git a/theories/fin_map_dom.v b/theories/fin_map_dom.v index ed3c554e38b2d71962b07052849772b8841da78f..886daae1785cc1af43d0e17f449558b58905a8c2 100644 --- a/theories/fin_map_dom.v +++ b/theories/fin_map_dom.v @@ -21,14 +21,14 @@ Lemma lookup_lookup_total_dom `{!Inhabited A} (m : M A) i : i ∈ dom D m → m !! i = Some (m !!! i). Proof. rewrite elem_of_dom. apply lookup_lookup_total. Qed. -Lemma dom_map_filter {A} (P : K * A → Prop) `{!∀ x, Decision (P x)} (m : M A) X : +Lemma dom_filter {A} (P : K * A → Prop) `{!∀ x, Decision (P x)} (m : M A) X : (∀ i, i ∈ X ↔ ∃ x, m !! i = Some x ∧ P (i, x)) → dom D (filter P m) ≡ X. Proof. intros HX i. rewrite elem_of_dom, HX. unfold is_Some. by setoid_rewrite map_filter_lookup_Some. Qed. -Lemma dom_map_filter_subseteq {A} (P : K * A → Prop) `{!∀ x, Decision (P x)} (m : M A): +Lemma dom_filter_subseteq {A} (P : K * A → Prop) `{!∀ x, Decision (P x)} (m : M A): dom D (filter P m) ⊆ dom D m. Proof. intros ?. rewrite 2!elem_of_dom. @@ -156,10 +156,10 @@ Proof. intros ???. unfold_leibniz. by apply dom_proper. Qed. Section leibniz. Context `{!LeibnizEquiv D}. - Lemma dom_map_filter_L {A} (P : K * A → Prop) `{!∀ x, Decision (P x)} (m : M A) X : + Lemma dom_filter_L {A} (P : K * A → Prop) `{!∀ x, Decision (P x)} (m : M A) X : (∀ i, i ∈ X ↔ ∃ x, m !! i = Some x ∧ P (i, x)) → dom D (filter P m) = X. - Proof. unfold_leibniz. apply dom_map_filter. Qed. + Proof. unfold_leibniz. apply dom_filter. Qed. Lemma dom_empty_L {A} : dom D (@empty (M A) _) = ∅. Proof. unfold_leibniz; apply dom_empty. Qed. Lemma dom_empty_inv_L {A} (m : M A) : dom D m = ∅ → m = ∅.