test-suite/misc/quotation_token/src/quotation.mlg


1
2
3
4
5
6
7
8
9
10
11
12

{
open Pcoq.Constr
}
GRAMMAR EXTEND Gram
  GLOBAL: term;

  term: LEVEL "0"
    [ [ s = QUOTATION "foobar:" ->
        {
          CAst.make ~loc Constrexpr.(CSort Glob_term.(UNamed [GProp,0])) } ] ]
  ;
END