Commit 391e52d7 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Fix previous commit.

parent ff61f8a8
...@@ -35,7 +35,7 @@ Section namespace. ...@@ -35,7 +35,7 @@ Section namespace.
Global Instance ndot_inj : Inj2 (=) (=) (=) (@ndot A _ _). Global Instance ndot_inj : Inj2 (=) (=) (=) (@ndot A _ _).
Proof. intros N1 x1 N2 x2; rewrite !ndot_eq=> ?; by simplify_eq. Qed. Proof. intros N1 x1 N2 x2; rewrite !ndot_eq=> ?; by simplify_eq. Qed.
Lemma nclose_nroot : nroot = . Lemma nclose_nroot : nroot = (⊤:coPset).
Proof. rewrite nclose_eq. by apply (sig_eq_pi _). Qed. Proof. rewrite nclose_eq. by apply (sig_eq_pi _). Qed.
Lemma encode_nclose N : encode N (N:coPset). Lemma encode_nclose N : encode N (N:coPset).
Proof. Proof.
......
...@@ -77,7 +77,7 @@ Proof. ...@@ -77,7 +77,7 @@ Proof.
- destruct p; set_solver. - destruct p; set_solver.
- apply elem_of_equiv=> /= -[j|]; last set_solver. - apply elem_of_equiv=> /= -[j|]; last set_solver.
set_unfold; rewrite !(inj_iff Change). set_unfold; rewrite !(inj_iff Change).
assert (Change j match p with Low => | High => {[Send]} end False) assert (Change j match p with Low => : set token | High => {[Send]} end False)
as -> by (destruct p; set_solver). as -> by (destruct p; set_solver).
destruct (decide (i1 = j)) as [->|]; first naive_solver. destruct (decide (i1 = j)) as [->|]; first naive_solver.
destruct (decide (i2 = j)) as [->|]; first naive_solver. destruct (decide (i2 = j)) as [->|]; first naive_solver.
......
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