Commit 2131d528 authored by Ralf Jung's avatar Ralf Jung

use a section for local options

parent 2ac3a3b8
......@@ -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
......
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