2015-12-05 01:57:03 +00:00
|
|
|
import algebra.ring
|
|
|
|
open algebra
|
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-12-05 01:57:03 +00:00
|
|
|
open simplifier.unit simplifier.ac simplifier.neg simplifier.distrib
|
|
|
|
|
|
|
|
#simplify eq env 0 x2 + (1 * g x1 + 0 + (f x3 * 3 * 1 * (x2 + 0 + g x1 * 7) * x2 * 1)) + 5 * (x4 + f x1)
|