diff options
| author | Enrico Tassi | 2019-02-13 13:53:34 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2019-02-13 14:12:03 +0100 |
| commit | 737ae4816a9c84369bc1c0a0b359a9fd4f63dbe6 (patch) | |
| tree | ed34675a9b0c837c82ac0251e4dbf1f45bce02d9 /vernac | |
| parent | 1123165d3186124bd0b72b382d39383aefe347d8 (diff) | |
[ssr] move shorter Canonical to Coq proper
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/g_vernac.mlg | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/g_vernac.mlg b/vernac/g_vernac.mlg index c36a6fa9c6..42bee25da3 100644 --- a/vernac/g_vernac.mlg +++ b/vernac/g_vernac.mlg @@ -693,14 +693,14 @@ GRAMMAR EXTEND Gram LIST1 [ v=strategy_level; "["; q=LIST1 smart_global; "]" -> { (v,q) } ] -> { VernacSetStrategy l } (* Canonical structure *) - | IDENT "Canonical"; IDENT "Structure"; qid = global; ud = OPT [ u = OPT univ_decl; d = def_body -> { (u,d) } ] -> + | IDENT "Canonical"; OPT [ IDENT "Structure" -> {()} ]; qid = global; ud = OPT [ u = OPT univ_decl; d = def_body -> { (u,d) } ] -> { match ud with | None -> VernacCanonical CAst.(make ~loc @@ AN qid) | Some (u,d) -> let s = coerce_reference_to_id qid in VernacDefinition ((NoDischarge,CanonicalStructure),((CAst.make (Name s)),u),d) } - | IDENT "Canonical"; IDENT "Structure"; ntn = by_notation -> + | IDENT "Canonical"; OPT [ IDENT "Structure" -> {()} ]; ntn = by_notation -> { VernacCanonical CAst.(make ~loc @@ ByNotation ntn) } (* Coercions *) |