Commit f42a673b authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan

Inhabited instance for any Empty instance.

parent 340afd90
...@@ -504,8 +504,6 @@ Section ucmra. ...@@ -504,8 +504,6 @@ Section ucmra.
Context {A : ucmraT}. Context {A : ucmraT}.
Implicit Types x y z : A. Implicit Types x y z : A.
Global Instance ucmra_unit_inhabited : Inhabited A := populate .
Lemma ucmra_unit_validN n : {n} (:A). Lemma ucmra_unit_validN n : {n} (:A).
Proof. apply cmra_valid_validN, ucmra_unit_valid. Qed. Proof. apply cmra_valid_validN, ucmra_unit_valid. Qed.
Lemma ucmra_unit_leastN n x : {n} x. Lemma ucmra_unit_leastN n x : {n} x.
......
...@@ -567,6 +567,8 @@ intersection [(∩)], and difference [(∖)], the singleton [{[_]}], the subset ...@@ -567,6 +567,8 @@ intersection [(∩)], and difference [(∖)], the singleton [{[_]}], the subset
Class Empty A := empty: A. Class Empty A := empty: A.
Notation "∅" := empty : C_scope. Notation "∅" := empty : C_scope.
Instance empty_inhabited `(Empty A) : Inhabited A := populate .
Class Top A := top : A. Class Top A := top : A.
Notation "⊤" := top : C_scope. Notation "⊤" := top : C_scope.
......
...@@ -30,7 +30,7 @@ Proof. by rewrite /ElimVs pvs_frame_r wand_elim_r pvs_wp. Qed. ...@@ -30,7 +30,7 @@ Proof. by rewrite /ElimVs pvs_frame_r wand_elim_r pvs_wp. Qed.
(* lower precedence, if possible, it should always pick elim_vs_pvs_wp *) (* lower precedence, if possible, it should always pick elim_vs_pvs_wp *)
Global Instance elim_vs_pvs_wp_atomic E1 E2 e P Φ : Global Instance elim_vs_pvs_wp_atomic E1 E2 e P Φ :
atomic e atomic e
ElimVs (|={E1,E2}=> P) P ElimVs (|={E1,E2}=> P) P
(WP e @ E1 {{ Φ }}) (WP e @ E2 {{ v, |={E2,E1}=> Φ v }})%I | 100. (WP e @ E1 {{ Φ }}) (WP e @ E2 {{ v, |={E2,E1}=> Φ v }})%I | 100.
Proof. intros. by rewrite /ElimVs pvs_frame_r wand_elim_r wp_atomic. Qed. Proof. intros. by rewrite /ElimVs pvs_frame_r wand_elim_r wp_atomic. Qed.
End weakestpre. End weakestpre.
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