diff options
| -rw-r--r-- | parsing/g_vernac.ml4 | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index bea4c46aa5..f29f4407e0 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -178,6 +178,11 @@ GEXTEND Gram [ [ ">" -> "COERCION" | -> "" ] ] ; + of_type_with_opt_coercion: + [ [ ":>" -> "COERCION" + | ":"; ">" -> "COERCION" + | ":" -> "" ] ] + ; onescheme: [ [ id = identarg; ":="; dep = dep; indid = identarg; IDENT "Sort"; s = sortarg -> @@ -209,7 +214,7 @@ GEXTEND Gram | corec = onecorec -> [corec] ] ] ; field: - [ [ id = identarg; ":"; oc = opt_coercion; c = constrarg -> + [ [ id = identarg; oc = of_type_with_opt_coercion; c = constrarg -> <:ast< (VERNACARGLIST ($STR $oc) $id $c) >> (* | id = identarg; ":>"; c = constrarg -> <:ast< (VERNACARGLIST "COERCION" $id $c) >> *)] ] |