Finish proof of from distributivity

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2024-02-26 00:00:18 -08:00
parent b083561629
commit 8715d6d89c
2 changed files with 41 additions and 2 deletions
--- a/Lattice/Map.agda
+++ b/Lattice/Map.agda
@@ -534,6 +534,9 @@ open ImplInsert _⊔₂_ using
    ; union-preserves-∉
    )

+⊔-combines : ∀ {k : A} {v₁ v₂ : B} {m₁ m₂ : Map} → (k , v₁) ∈ m₁ → (k , v₂) ∈ m₂ → (k , v₁ ⊔₂ v₂) ∈ (m₁ ⊔ m₂)
+⊔-combines {k} {v₁} {v₂} {kvs₁ , u₁} {kvs₂ , u₂} k,v₁∈m₁ k,v₂∈m₂ = union-combines u₁ u₂ k,v₁∈m₁ k,v₂∈m₂
+
 open ImplInsert _⊓₂_ using
    ( restrict-needs-both
    ; updates