Skip to content

S
stdpp
Commit 2131d528 authored by Ralf Jung's avatar Ralf Jung
Browse files
Options

use a section for local options

parent 2ac3a3b8
Pipeline #4642 passed with stages
      in 5 minutes and 5 seconds
      Hide whitespace changes
      Inline Side-by-side
      Showing with 6 additions and 5 deletions
      theories/base.v
      View file @ 2131d528
      ......@@ -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