simplify an inG proof

a9c5bc54 · Ralf Jung · c4d8c28a · a9c5bc54
Commit a9c5bc54 authored Jan 06, 2017 by Ralf Jung
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

theories/heap_lang/lib/spin_lock.v theories/heap_lang/lib/spin_lock.v +1 -1

No files found.
--- a/theories/heap_lang/lib/spin_lock.v
+++ b/theories/heap_lang/lib/spin_lock.v
@@ -18,7 +18,7 @@ Class lockG Σ := LockG { lock_tokG :> inG Σ (exclR unitC) }.
 Definition lockΣ : gFunctors := #[GFunctor (constRF (exclR unitC))].

 Instance subG_lockΣ {Σ} : subG lockΣ Σ → lockG Σ.
-Proof. intros [?%subG_inG _]%subG_inv. split; apply _. Qed.
+Proof. intros ?%subG_inG. split; apply _. Qed.

 Section proof.
  Context `{!heapG Σ, !lockG Σ} (N : namespace).