Looking up into a gmap is a homomorphism.

7227cf28 · Robbert Krebbers · b2ba69ee · 7227cf28
Commit 7227cf28 authored Sep 30, 2016 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

algebra/gmap.v algebra/gmap.v +4 -0

No files found.
--- a/algebra/gmap.v
+++ b/algebra/gmap.v
@@ -195,6 +195,10 @@ Implicit Types m : gmap K A.
 Implicit Types i : K.
 Implicit Types x y : A.

+Global Instance lookup_cmra_homomorphism :
+  UCMRAHomomorphism (lookup i : gmap K A → option A).
+Proof. split. split. apply _. intros m1 m2; by rewrite lookup_op. done. Qed.
+
 Lemma lookup_opM m1 mm2 i : (m1 ⋅? mm2) !! i = m1 !! i ⋅ (mm2 ≫= (!! i)).
 Proof. destruct mm2; by rewrite /= ?lookup_op ?right_id_L. Qed.