diff options
| author | Théo Zimmermann | 2020-11-10 15:57:02 +0100 |
|---|---|---|
| committer | Théo Zimmermann | 2020-11-12 16:09:20 +0100 |
| commit | 3fa2430e8c66408fa3a8fe95af54e53d20e5951b (patch) | |
| tree | 265cfe6ae9f7ee28d353f3e1ed3de4e426897abb | |
| parent | 176faf135778471e70a8d47387f9e7d05815609e (diff) | |
Add support for Proof using in -noinit mode.
"Proof with" is Ltac-specific but there is no reason why it should be
the same for "Proof using".
| -rw-r--r-- | plugins/ltac/g_ltac.mlg | 4 | ||||
| -rw-r--r-- | vernac/g_proofs.mlg | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/plugins/ltac/g_ltac.mlg b/plugins/ltac/g_ltac.mlg index c54f8ffa78..bd46e24a1c 100644 --- a/plugins/ltac/g_ltac.mlg +++ b/plugins/ltac/g_ltac.mlg @@ -332,8 +332,8 @@ GRAMMAR EXTEND Gram l = OPT [ "using"; l = G_vernac.section_subset_expr -> { l } ] -> { Vernacexpr.VernacProof (Some (in_tac ta), l) } | IDENT "Proof"; "using"; l = G_vernac.section_subset_expr; - ta = OPT [ "with"; ta = Pltac.tactic -> { in_tac ta } ] -> - { Vernacexpr.VernacProof (ta,Some l) } ] ] + "with"; ta = Pltac.tactic -> + { Vernacexpr.VernacProof (Some (in_tac ta),Some l) } ] ] ; hint: [ [ IDENT "Extern"; n = natural; c = OPT Constr.constr_pattern ; "=>"; diff --git a/vernac/g_proofs.mlg b/vernac/g_proofs.mlg index ebec720ce2..60ff9896bf 100644 --- a/vernac/g_proofs.mlg +++ b/vernac/g_proofs.mlg @@ -56,6 +56,8 @@ GRAMMAR EXTEND Gram [ [ IDENT "Goal"; c = lconstr -> { VernacDefinition (Decls.(NoDischarge, Definition), ((CAst.make ~loc Names.Anonymous), None), ProveBody ([], c)) } | IDENT "Proof" -> { VernacProof (None,None) } + | IDENT "Proof"; "using"; l = G_vernac.section_subset_expr -> + { VernacProof (None,Some l) } | IDENT "Proof" ; IDENT "Mode" ; mn = string -> { VernacProofMode mn } | IDENT "Proof"; c = lconstr -> { VernacExactProof c } | IDENT "Abort" -> { VernacAbort None } |