diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2016-05-09 21:21:56 +0200 |
---|---|---|
committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2016-06-27 23:46:32 +0200 |
commit | 6863389c13e85d2728c4d3c3ac40b20172e9e98b (patch) | |
tree | 8e831c3b8f65e167166c6768e0b0f035c6f03927 /interp | |
parent | b4069d5c9933ab645700b511fe8c101e1e16ff48 (diff) |
Univs: allowing notations to take univ instances
They can apply to the head reference under a notation.
Diffstat (limited to 'interp')
-rw-r--r-- | interp/constrintern.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index b6fce6178..f30d3cefa 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -777,9 +777,12 @@ let intern_qualid loc qid intern env lvar us args = let c = match us, c with | None, _ -> c | Some _, GRef (loc, ref, None) -> GRef (loc, ref, us) + | Some _, GApp (loc, GRef (loc', ref, None), arg) -> + GApp (loc, GRef (loc', ref, us), arg) | Some _, _ -> user_err_loc (loc, "", str "Notation " ++ pr_qualid qid ++ - str " cannot have a universe instance") + str " cannot have a universe instance, its expanded head + does not start with a reference") in c, projapp, args2 |