diff options
| author |  Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-01-25 16:52:00 +0000 |
|---|---|---|
| committer | Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-02-01 16:20:16 +0000 |
| commit | 5b8b60508d74bfe5e436ce182889ad8ee6ca3983 (patch) | |
| tree | 3a9bdfb906444e1f041af3e09df0cc49f911839b /parsing | |
| parent | e42f575b22ff2d2a69951227e8c2dd67fd0ab3ee (diff) | |
[vernac] Mutual theorems (VernacStartTheoremProof) always have names
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_vernac.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index 316b26f20..3244b0ff2 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -149,8 +149,8 @@ GEXTEND Gram [ [ thm = thm_token; id = ident_decl; bl = binders; ":"; c = lconstr; l = LIST0 [ "with"; id = ident_decl; bl = binders; ":"; c = lconstr -> - (Some id,(bl,c)) ] -> - VernacStartTheoremProof (thm, (Some id,(bl,c))::l) + (id,(bl,c)) ] -> + VernacStartTheoremProof (thm, (id,(bl,c))::l) | stre = assumption_token; nl = inline; bl = assum_list -> VernacAssumption (stre, nl, bl) | (kwd,stre) = assumptions_token; nl = inline; bl = assum_list -> |