diff options
| author | Maxime Dénès | 2017-05-05 15:36:58 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-05-05 15:36:58 +0200 |
| commit | 1b4b828c3045263aee55ac19e7b9ba45a4743af2 (patch) | |
| tree | 73f7c9ed6210bc0449e0974d9dd20c79199718a1 /parsing | |
| parent | 773d95f915996b581b7ea82d9193197649c951a0 (diff) | |
| parent | 4361c1ed9ac5646055f9f0eecc4a003d720c1994 (diff) | |
Merge PR#544: Anonymous universes
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_constr.ml4 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/parsing/g_constr.ml4 b/parsing/g_constr.ml4 index 0f2ed88fea..15f100c3b0 100644 --- a/parsing/g_constr.ml4 +++ b/parsing/g_constr.ml4 @@ -146,12 +146,12 @@ GEXTEND Gram [ [ "Set" -> GSet | "Prop" -> GProp | "Type" -> GType [] - | "Type"; "@{"; u = universe; "}" -> GType (List.map (fun (loc,x) -> (loc, Id.to_string x)) u) + | "Type"; "@{"; u = universe; "}" -> GType u ] ] ; universe: - [ [ IDENT "max"; "("; ids = LIST1 identref SEP ","; ")" -> ids - | id = identref -> [id] + [ [ IDENT "max"; "("; ids = LIST1 name SEP ","; ")" -> ids + | id = name -> [id] ] ] ; lconstr: @@ -298,7 +298,7 @@ GEXTEND Gram [ [ "Set" -> GSet | "Prop" -> GProp | "Type" -> GType None - | id = identref -> GType (Some (fst id, Id.to_string (snd id))) + | id = name -> GType (Some id) ] ] ; fix_constr: |