diff options
| author |  Jason Gross <jgross@mit.edu> | 2016-11-01 16:42:08 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2016-11-01 16:42:08 -0400 |
| commit | 80a24b1d6215e8d240cc355bd4989f4aa6dcb33f (patch) | |
| tree | ce9bbbbc574815ee302bfbd1c3ede890a07c521d | |
| parent | cca0eb7decb313fc22865881c6923d7e48258c69 (diff) | |
Work around bug #5175 in 8.6
| -rw-r--r-- | src/Reflection/Application.v | 4 | ||||
| -rw-r--r-- | src/Reflection/Named/Syntax.v | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/src/Reflection/Application.v b/src/Reflection/Application.v index 0d0be71c3..49204eabe 100644 --- a/src/Reflection/Application.v +++ b/src/Reflection/Application.v @@ -82,5 +82,7 @@ Arguments all_binders_for {_} !_ _ / . Arguments count_binders {_} !_ / . Arguments binders_for {_} !_ !_ _ / . Arguments remove_binders {_} !_ !_ / . -Arguments Apply {_ _ _ !_ _ _} !_ !_ / , {_ _ _} !_ {_ _} !_ !_ / . +(* Work around bug #5175 *) +Arguments Apply {_ _ _ _ _ _} _ _ , {_ _ _} _ {_ _} _ _. +Arguments Apply _ _ _ !_ _ _ !_ !_ / . Arguments ApplyInterped {_ _ !_ !_} _ _ / . diff --git a/src/Reflection/Named/Syntax.v b/src/Reflection/Named/Syntax.v index 0ea950325..e77947693 100644 --- a/src/Reflection/Named/Syntax.v +++ b/src/Reflection/Named/Syntax.v @@ -183,7 +183,7 @@ Global Arguments Var {_ _ _ _ _} _. Global Arguments SmartVar {_ _ _ _ _} _. Global Arguments SmartConst {_ _ _ _ _} _. Global Arguments Op {_ _ _ _ _ _} _ _. -Global Arguments LetIn {_ _ _ _} _ {_} _ {_} _. +Global Arguments LetIn {_ _ _ _} _ _ _ {_} _. Global Arguments Pair {_ _ _ _ _} _ {_} _. Global Arguments Return {_ _ _ _ _} _. Global Arguments Abs {_ _ _ _ _ _} _ _. |