2015-11-13 04:30:10 +00:00
|
|
|
import algebra.simplifier
|
2015-11-16 16:54:21 +00:00
|
|
|
open algebra simplifier.som
|
2015-11-07 20:54:01 +00:00
|
|
|
|
|
|
|
|
set_option simplify.max_steps 1000
|
|
|
|
|
universe l
|
|
|
|
|
constants (T : Type.{l}) (s : algebra.comm_ring T)
|
|
|
|
|
constants (x1 x2 x3 x4 : T) (f g : T → T)
|
|
|
|
|
attribute s [instance]
|
|
|
|
|
|
2015-11-08 01:12:34 +00:00
|
|
|
#simplify eq 0 x2 + (1 * g x1 + 0 + (f x3 * 3 * 1 * (x2 + 0 + g x1 * 7) * x2 * 1)) + 5 * (x4 + f x1)
|
