From e87288450d4d9e49ac91d179714a73bd0147c0d7 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Sat, 19 May 2018 16:51:55 +0200
Subject: [api] Move `opacity_flag` to `Proof_global`.

`Proof_global` is the main consumer of the flag, which doesn't seem to
belong to the AST as plugins show.

This will allow the vernac AST to be placed in `vernac` indeed.
---
 proofs/proof_global.ml  | 4 +++-
 proofs/proof_global.mli | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

(limited to 'proofs')

diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml
index 97cfccb8de..d5cb5b09f9 100644
--- a/proofs/proof_global.ml
+++ b/proofs/proof_global.ml
@@ -78,9 +78,11 @@ type proof_object = {
   universes: UState.t;
 }
 
+type opacity_flag = Opaque | Transparent
+
 type proof_ending =
   | Admitted of Names.Id.t * Decl_kinds.goal_kind * Entries.parameter_entry * UState.t
-  | Proved of Vernacexpr.opacity_flag *
+  | Proved of opacity_flag *
               Misctypes.lident option *
               proof_object
 
diff --git a/proofs/proof_global.mli b/proofs/proof_global.mli
index bf35fd6599..de4cec488a 100644
--- a/proofs/proof_global.mli
+++ b/proofs/proof_global.mli
@@ -48,10 +48,12 @@ type proof_object = {
   universes: UState.t;
 }
 
+type opacity_flag = Opaque | Transparent
+
 type proof_ending =
   | Admitted of Names.Id.t * Decl_kinds.goal_kind * Entries.parameter_entry *
                 UState.t
-  | Proved of Vernacexpr.opacity_flag *
+  | Proved of opacity_flag *
               Misctypes.lident option *
               proof_object
 type proof_terminator
-- 
cgit v1.2.3