The new test exposes the problem. Before this commit, the common subexpressions at ``` def tst : tree → nat | (tree.leaf v) := v | (tree.node v l r) := match f v with | tt := tst l + tst l - tst l -- <<< HERE | ff := tst r end ``` were not converted into a let-exprs. |
||
|---|---|---|
| .. | ||
| lean | ||
| .gitignore | ||