Skip to content
Snippets Groups Projects
Commit 39da88b3 authored by Ralf Jung's avatar Ralf Jung
Browse files

Merge branch 'robbert/big_andL_absorbing' into 'master'

Add `Absorbing` instances for `[∧ list]`.

See merge request iris/iris!805
parents 62e50f6b 23248949
No related branches found
No related tags found
No related merge requests found
......@@ -1014,6 +1014,13 @@ Section and_list.
Proper (Forall2 () ==> ()) (big_opL (@bi_and PROP) (λ _ P, P)).
Proof. by induction 1 as [|P Q Ps Qs HPQ ? IH]; rewrite /= ?HPQ ?IH. Qed.
Global Instance big_andL_nil_absorbing Φ :
Absorbing ([ list] kx [], Φ k x).
Proof. simpl; apply _. Qed.
Global Instance big_andL_absorbing Φ l :
( k x, Absorbing (Φ k x)) Absorbing ([ list] kx l, Φ k x).
Proof. revert Φ. induction l as [|x l IH]=> Φ ? /=; apply _. Qed.
Global Instance big_andL_nil_persistent Φ :
Persistent ([ list] kx [], Φ k x).
Proof. simpl; apply _. Qed.
......
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