Fix previous commit.

theories/base_logic/lib/namespaces.v

@@ -35,7 +35,7 @@ Section namespace.
   Global Instance ndot_inj : Inj2 (=) (=) (=) (@ndot A _ _).
   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.
   Lemma encode_nclose N : encode N ∈ (↑N:coPset).
   Proof.

theories/heap_lang/lib/barrier/protocol.v

@@ -77,7 +77,7 @@ Proof.
   - destruct p; set_solver.
   - apply elem_of_equiv=> /= -[j|]; last set_solver.
     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).
     destruct (decide (i1 = j)) as [->|]; first naive_solver.
     destruct (decide (i2 = j)) as [->|]; first naive_solver.