diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-04-01 23:55:39 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-04-01 23:55:39 -0400 |
| commit | 7b25cca4e82d030e56fea0bebf5b7322f86e265a (patch) | |
| tree | 50bc3dc285d2ca05629e17822da4b1f4a3ae2608 /src | |
| parent | 8e61e4d9db1f3c133309970625e61415c13e680d (diff) | |
Rewrite in Op arguments before rewriting in Op
This fixes the rewriter to actually simplify deeply nested expressions.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Reflection/Rewriter.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Reflection/Rewriter.v b/src/Reflection/Rewriter.v index 88ffdbcc7..b53d0903d 100644 --- a/src/Reflection/Rewriter.v +++ b/src/Reflection/Rewriter.v @@ -22,7 +22,7 @@ Section language. | TT => TT | Pair tx ex ty ey => Pair (@rewrite_opf tx ex) (@rewrite_opf ty ey) - | Op t1 tR opc args => rewrite_op_expr _ _ opc args + | Op t1 tR opc args => rewrite_op_expr _ _ opc (@rewrite_opf t1 args) end. Definition rewrite_op {t} (e : @expr var t) : @expr var t |