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

use a section for local options

parent 2ac3a3b8
Pipeline #4642 passed with stages
in 5 minutes and 5 seconds
...@@ -18,11 +18,12 @@ Obligation Tactic := idtac. ...@@ -18,11 +18,12 @@ Obligation Tactic := idtac.
Add Search Blacklist "_obligation_". Add Search Blacklist "_obligation_".
(** Sealing off definitions *) (** Sealing off definitions *)
Set Primitive Projections. Section seal.
Record seal {A} (f : A) := { unseal : A; seal_eq : unseal = f }. Local Set Primitive Projections.
Arguments unseal {_ _} _ : assert. Record seal {A} (f : A) := { unseal : A; seal_eq : unseal = f }.
Arguments seal_eq {_ _} _ : assert. Arguments unseal {_ _} _ : assert.
Unset Primitive Projections. Arguments seal_eq {_ _} _ : assert.
End seal.
(** Typeclass opaque definitions *) (** Typeclass opaque definitions *)
(* The constant [tc_opaque] is used to make definitions opaque for just type (* 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