Commit 79bddd1a authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

`IntoForall` and `FromForall` instances for `except_0`.

parent 170c76a3
...@@ -772,6 +772,9 @@ Proof. rewrite /IntoForall=> HP. by rewrite HP persistently_forall. Qed. ...@@ -772,6 +772,9 @@ Proof. rewrite /IntoForall=> HP. by rewrite HP persistently_forall. Qed.
Global Instance into_forall_later {A} P (Φ : A uPred M) : Global Instance into_forall_later {A} P (Φ : A uPred M) :
IntoForall P Φ IntoForall ( P) (λ a, (Φ a))%I. IntoForall P Φ IntoForall ( P) (λ a, (Φ a))%I.
Proof. rewrite /IntoForall=> HP. by rewrite HP later_forall. Qed. Proof. rewrite /IntoForall=> HP. by rewrite HP later_forall. Qed.
Global Instance into_forall_except_0 {A} P (Φ : A uPred M) :
IntoForall P Φ IntoForall ( P) (λ a, (Φ a))%I.
Proof. rewrite /IntoForall=> HP. by rewrite HP except_0_forall. Qed.
(* FromForall *) (* FromForall *)
Global Instance from_forall_forall {A} (Φ : A uPred M) : Global Instance from_forall_forall {A} (Φ : A uPred M) :
...@@ -801,6 +804,9 @@ Proof. rewrite /FromForall=> <-. by rewrite persistently_forall. Qed. ...@@ -801,6 +804,9 @@ Proof. rewrite /FromForall=> <-. by rewrite persistently_forall. Qed.
Global Instance from_forall_later {A} P (Φ : A uPred M) : Global Instance from_forall_later {A} P (Φ : A uPred M) :
FromForall P Φ FromForall ( P) (λ a, (Φ a))%I. FromForall P Φ FromForall ( P) (λ a, (Φ a))%I.
Proof. rewrite /FromForall=> <-. by rewrite later_forall. Qed. Proof. rewrite /FromForall=> <-. by rewrite later_forall. Qed.
Global Instance from_forall_except_0 {A} P (Φ : A uPred M) :
FromForall P Φ FromForall ( P) (λ a, (Φ a))%I.
Proof. rewrite /FromForall=> <-. by rewrite except_0_forall. Qed.
(* FromModal *) (* FromModal *)
Global Instance from_modal_later P : FromModal ( P) P. Global Instance from_modal_later P : FromModal ( P) P.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment