diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-05-19 16:51:55 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-05-23 13:23:26 +0200 |
| commit | e87288450d4d9e49ac91d179714a73bd0147c0d7 (patch) | |
| tree | d49a79f39f9d7be57cab28a21334e328c6804654 /proofs | |
| parent | 3bfa8730b2e5fa7f0155c6341b1a0fea9181434f (diff) | |
[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.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proof_global.ml | 4 | ||||
| -rw-r--r-- | proofs/proof_global.mli | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index 97cfccb8d..d5cb5b09f 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 bf35fd659..de4cec488 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 |