diff options
| author | Hugo Herbelin | 2020-04-15 15:55:15 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-11-05 19:09:07 +0100 |
| commit | c893dc56fa579c8d1f6ea3a1859681bb316d9979 (patch) | |
| tree | 1985fd6284f70466b5640d38c97bef3465ceddc3 /pretyping | |
| parent | 4b8a87bcebe23797c4a179dd6a1d55c058d2736f (diff) | |
Accept section variables in notations with mixed terms and binders.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/glob_ops.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pretyping/glob_ops.ml b/pretyping/glob_ops.ml index bdf3495479..f42c754ef5 100644 --- a/pretyping/glob_ops.ml +++ b/pretyping/glob_ops.ml @@ -523,6 +523,7 @@ let rec cases_pattern_of_glob_constr env na c = | Anonymous -> PatVar (Name id) end | GHole (_,_,_) -> PatVar na + | GRef (GlobRef.VarRef id,_) -> PatVar (Name id) | GRef (GlobRef.ConstructRef cstr,_) -> PatCstr (cstr,[],na) | GApp (c, l) -> begin match DAst.get c with |