Skip to content
Snippets Groups Projects
Commit 23248949 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

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

parent 50cb1b9d
No related branches found
No related tags found
No related merge requests found
...@@ -1014,6 +1014,13 @@ Section and_list. ...@@ -1014,6 +1014,13 @@ Section and_list.
Proper (Forall2 () ==> ()) (big_opL (@bi_and PROP) (λ _ P, P)). Proper (Forall2 () ==> ()) (big_opL (@bi_and PROP) (λ _ P, P)).
Proof. by induction 1 as [|P Q Ps Qs HPQ ? IH]; rewrite /= ?HPQ ?IH. Qed. 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 Φ : Global Instance big_andL_nil_persistent Φ :
Persistent ([ list] kx [], Φ k x). Persistent ([ list] kx [], Φ k x).
Proof. simpl; apply _. Qed. 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