use a section for local options

2131d528 · Ralf Jung · 2ac3a3b8 · 2131d528
Commit 2131d528 authored Oct 10, 2017 by Ralf Jung
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 5 deletions

theories/base.v theories/base.v +6 -5

No files found.
--- a/theories/base.v
+++ b/theories/base.v
@@ -18,11 +18,12 @@ Obligation Tactic := idtac.
 Add Search Blacklist "_obligation_".

 (** Sealing off definitions *)
-Set Primitive Projections.
-Record seal {A} (f : A) := { unseal : A; seal_eq : unseal = f }.
-Arguments unseal {_ _} _ : assert.
-Arguments seal_eq {_ _} _ : assert.
-Unset Primitive Projections.
+Section seal.
+  Local Set Primitive Projections.
+  Record seal {A} (f : A) := { unseal : A; seal_eq : unseal = f }.
+  Arguments unseal {_ _} _ : assert.
+  Arguments seal_eq {_ _} _ : assert.
+End seal.

 (** Typeclass opaque definitions *)
 (* The constant [tc_opaque] is used to make definitions opaque for just type