Exercise algebra.manipulation.rational.simplify
Description
simplify a rational expression (with a variable in a divisor)
Firsts
Rule algebra.equations.linear.merge Location [0] Term "Just (TCon arith1.divide [TCon arith1.minus [TCon arith1.unary_minus [TNum 9],TCon arith1.times [TNum 6,TVar \"x\"]],TCon arith1.times [TCon arith1.plus [TVar \"x\",TNum 2],TCon arith1.plus [TVar \"x\",TNum 1]]])" Focus "Just (TCon arith1.minus [TCon arith1.unary_minus [TNum 9],TCon arith1.times [TNum 6,TVar \"x\"]])" Environment Rule algebra.equations.linear.merge Location [0,0] Term "Just (TCon arith1.divide [TCon arith1.minus [TCon arith1.minus [TCon arith1.unary_minus [TNum 1],TCon arith1.times [TNum 6,TVar \"x\"]],TNum 8],TCon arith1.times [TCon arith1.plus [TVar \"x\",TNum 2],TCon arith1.plus [TVar \"x\",TNum 1]]])" Focus "Just (TCon arith1.minus [TCon arith1.unary_minus [TNum 1],TCon arith1.times [TNum 6,TVar \"x\"]])" Environment Rule algebra.equations.linear.merge Location [0,0,0] Term "Just (TCon arith1.divide [TCon arith1.minus [TCon arith1.minus [TCon arith1.unary_minus [TNum 1],TCon arith1.times [TNum 6,TVar \"x\"]],TNum 8],TCon arith1.times [TCon arith1.plus [TVar \"x\",TNum 2],TCon arith1.plus [TVar \"x\",TNum 1]]])" Focus "Just (TCon arith1.unary_minus [TNum 1])" Environment