diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2013-11-26 11:53:09 +0100 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2013-12-04 14:14:32 +0100 |
| commit | db65876404c7c3a1343623cc9b4d6c2a7164dd95 (patch) | |
| tree | 2f73652c1014775aa0fc171f9a64a8807ede7ac5 /parsing | |
| parent | eef907ed0a200e912ab2eddc0fcea41b5f61c145 (diff) | |
Vernac classification: allow for commands which start proofs but must be synchrone.
The previous heuristic is to check whether the proof ends with Qed or not. This modification allows for commands which start proof but may produce transparent term even when the function ends with Qed.
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_obligations.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_obligations.ml4 b/parsing/g_obligations.ml4 index a0d4771f1..fe024d409 100644 --- a/parsing/g_obligations.ml4 +++ b/parsing/g_obligations.ml4 @@ -60,7 +60,7 @@ let wit_withtac : Tacexpr.raw_tactic_expr option Genarg.uniform_genarg_type = open Obligations -let classify_obbl _ = Vernacexpr.VtStartProof ("Classic",[]), Vernacexpr.VtLater +let classify_obbl _ = Vernacexpr.(VtStartProof ("Classic",GuaranteesOpacity,[]), VtLater) VERNAC COMMAND EXTEND Obligations CLASSIFIED BY classify_obbl | [ "Obligation" integer(num) "of" ident(name) ":" lconstr(t) withtac(tac) ] -> |