diff options
| -rw-r--r-- | parsing/g_constr.ml4 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/g_constr.ml4 b/parsing/g_constr.ml4 index 55aa143376..dffdbd6c1c 100644 --- a/parsing/g_constr.ml4 +++ b/parsing/g_constr.ml4 @@ -98,6 +98,8 @@ GEXTEND Gram let n = Coqast.Str (loc,n) in <:ast< (NUMERAL $n) >> | "-"; n = INT -> let n = Coqast.Str (loc,n) in <:ast< (NEGNUMERAL $n) >> + | "!"; f = global -> + <:ast< (APPLISTEXPL $f) >> ] ] ; constr1: @@ -194,7 +196,7 @@ GEXTEND Gram <:ast<(IMPLICITBINDINGS $c1 ($LIST $bl))>> ] ] ; constr10: - [ [ "!"; f = global; args = LIST0 constr9 -> + [ [ "!"; f = global; args = LIST1 constr9 -> <:ast< (APPLISTEXPL $f ($LIST $args)) >> | "!"; f = global; "with"; b = binding_list -> <:ast< (APPLISTWITH $f $b) >> |