test(simplifier19): nested fusion

tests/lean/simplifier19.lean

@@ -0,0 +1,12 @@
+-- Nested fusion
+import algebra.simplifier
+open algebra
+
+universe l
+constants (T : Type.{l}) (s : algebra.comm_ring T)
+constants (x1 x2 x3 x4 : T) (f g : T → T)
+attribute s [instance]
+set_option simplify.max_steps 50000
+set_option simplify.fuse true
+
+#simplify eq simplifier.som 0 f (x1 * x2 * 3 * 4 - 4 * 3 * x1 * x2) + g (x1 * x2 * 3 * 4 - 4 * 3 * x1 * x2)

tests/lean/simplifier19.lean.expected.out

@@ -0,0 +1 @@
+g 0 + f 0