diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-05-17 21:04:18 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-05-23 01:37:52 +0200 |
| commit | c1e9a27d383688e44ba34ada24fe08151cb5846e (patch) | |
| tree | 59d85961c10043a5d49c690158ecbd7950f09968 /parsing | |
| parent | 3c0d8d08bda81b9fbd7210e4e352a08bbe8219e8 (diff) | |
[vernac] Remove `Save thm id.` command.
We'd like to cleanup the `proof_end` type so we can have a smaller
path in proof save. Note that the construction:
```
Goal Type.
⋮
Save id.
```
has to be handled by the STM in the same path as Defined (but with an
opaque flag), as `Save id` will alter the environment and cannot be
processed in parallel.
We thus try to simply such paths a bit, as complexity of `lemmas.ml`
seems like an issue these days. The form `Save Theorem id` doesn't
really seem used, and moreover we should really add a type of "Goal",
and unify syntax.
It is often the case that beginners try `Goal addnC n : n + 0 = n."
etc...
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_proofs.ml4 | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/parsing/g_proofs.ml4 b/parsing/g_proofs.ml4 index 53637439a..2def22290 100644 --- a/parsing/g_proofs.ml4 +++ b/parsing/g_proofs.ml4 @@ -48,13 +48,11 @@ GEXTEND Gram | IDENT "Qed" -> VernacEndProof (Proved (Opaque None,None)) | IDENT "Qed"; IDENT "exporting"; l = LIST0 identref SEP "," -> VernacEndProof (Proved (Opaque (Some l),None)) - | IDENT "Save"; tok = thm_token; id = identref -> - VernacEndProof (Proved (Opaque None,Some (id,Some tok))) | IDENT "Save"; id = identref -> - VernacEndProof (Proved (Opaque None,Some (id,None))) + VernacEndProof (Proved (Opaque None, Some id)) | IDENT "Defined" -> VernacEndProof (Proved (Transparent,None)) | IDENT "Defined"; id=identref -> - VernacEndProof (Proved (Transparent,Some (id,None))) + VernacEndProof (Proved (Transparent,Some id)) | IDENT "Restart" -> VernacRestart | IDENT "Undo" -> VernacUndo 1 | IDENT "Undo"; n = natural -> VernacUndo n |