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 /vernac/obligations.ml | |
| 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 'vernac/obligations.ml')
| -rw-r--r-- | vernac/obligations.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/vernac/obligations.ml b/vernac/obligations.ml index 1e7721f8f..3bf0ca0a8 100644 --- a/vernac/obligations.ml +++ b/vernac/obligations.ml @@ -849,12 +849,12 @@ let obligation_terminator name num guard hook auto pf = let obl = obls.(num) in let status = match obl.obl_status, opq with - | (_, Evar_kinds.Expand), Vernacexpr.Opaque -> err_not_transp () - | (true, _), Vernacexpr.Opaque -> err_not_transp () - | (false, _), Vernacexpr.Opaque -> Evar_kinds.Define true - | (_, Evar_kinds.Define true), Vernacexpr.Transparent -> + | (_, Evar_kinds.Expand), Opaque -> err_not_transp () + | (true, _), Opaque -> err_not_transp () + | (false, _), Opaque -> Evar_kinds.Define true + | (_, Evar_kinds.Define true), Transparent -> Evar_kinds.Define false - | (_, status), Vernacexpr.Transparent -> status + | (_, status), Transparent -> status in let obl = { obl with obl_status = false, status } in let ctx = |