Skip to content
Snippets Groups Projects
Verified Commit 830e8148 authored by Paolo G. Giarrusso's avatar Paolo G. Giarrusso
Browse files

Prove missing fractional_big_sepL2

parent 12925885
No related branches found
No related tags found
No related merge requests found
......@@ -74,6 +74,7 @@ Coq 8.11 is no longer supported in this version of Iris.
only printed, not parsed): added a `,` before `ABORT`, for consistency with `COMM`.
* Add the lemmas `big_sepM_impl_strong` and `big_sepM_impl_dom_subseteq` that
generalize the existing `big_sepM_impl` lemma. (by Simon Friis Vindum)
* Add new instance `fractional_big_sepL2`. (by Paolo G. Giarrusso, BedRock Systems)
**Changes in `proofmode`:**
......
......@@ -82,6 +82,11 @@ Section fractional.
Fractional (PROP:=PROP) (λ q, [ list] kx l, Ψ k x q)%I.
Proof. intros ? q q'. rewrite -big_sepL_sep. by setoid_rewrite fractional. Qed.
Global Instance fractional_big_sepL2 {A B} (l1 : list A) (l2 : list B) Ψ :
( k x1 x2, Fractional (Ψ k x1 x2))
Fractional (PROP:=PROP) (λ q, [ list] kx1; x2 l1; l2, Ψ k x1 x2 q)%I.
Proof. intros ? q q'. rewrite -big_sepL2_sep. by setoid_rewrite fractional. Qed.
Global Instance fractional_big_sepM `{Countable K} {A} (m : gmap K A) Ψ :
( k (x : A), Fractional (Ψ k x))
Fractional (PROP:=PROP) (λ q, [ map] kx m, Ψ k x q)%I.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment