From 7b25cca4e82d030e56fea0bebf5b7322f86e265a Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Sat, 1 Apr 2017 23:55:39 -0400 Subject: Rewrite in Op arguments before rewriting in Op This fixes the rewriter to actually simplify deeply nested expressions. --- src/Reflection/Rewriter.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3