diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2015-03-19 11:33:10 +0100 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2015-03-31 11:28:18 +0200 |
| commit | e52303164660041690f6e05a110ff633007a1dd5 (patch) | |
| tree | bc85f0fbc8046ca38aa919aeedb401402f4443c0 | |
| parent | 65d701a752d9edc2d48256413b6176fa4687554d (diff) | |
Declarative mode: fix proof modes.
`end proof` changes the proof mode to `"Classic"`.
| -rw-r--r-- | plugins/decl_mode/decl_proof_instr.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plugins/decl_mode/decl_proof_instr.ml b/plugins/decl_mode/decl_proof_instr.ml index ab5282e79..9d0b7f346 100644 --- a/plugins/decl_mode/decl_proof_instr.ml +++ b/plugins/decl_mode/decl_proof_instr.ml @@ -1446,6 +1446,7 @@ let rec postprocess pts instr = anomaly (Pp.str "\"end induction\" generated an ill-formed fixpoint") end | Pend (B_elim ET_Case_analysis) -> goto_current_focus () + | Pend B_proof -> Proof_global.set_proof_mode "Classic" | Pend _ -> () let do_instr raw_instr pts = |