Exercise algebra.equations.linear.balance
Description
Solve a linear equation using only balance rules.
Firsts
Rule algebra.equations.linear.balance.collect Location [] Term "Just (TCon relation1.eq [TCon arith1.plus [TCon arith1.times [TNum 60,TVar \"x\"],TCon arith1.times [TNum 6,TCon arith1.minus [TCon arith1.unary_minus [TCon arith1.times [TNum 2,TVar \"x\"]],TNum 2]]],TCon arith1.plus [TNum 355,TCon arith1.times [TNum 5,TVar \"x\"]]])" Focus "Just (TCon relation1.eq [TCon arith1.plus [TCon arith1.times [TNum 60,TVar \"x\"],TCon arith1.times [TNum 6,TCon arith1.minus [TCon arith1.unary_minus [TCon arith1.times [TNum 2,TVar \"x\"]],TNum 2]]],TCon arith1.plus [TNum 355,TCon arith1.times [TNum 5,TVar \"x\"]]])" Environment Rule algebra.equations.linear.balance.distribute Location [] Term "Just (TCon relation1.eq [TCon arith1.minus [TCon arith1.minus [TCon arith1.times [TNum 60,TVar \"x\"],TCon arith1.times [TNum 12,TVar \"x\"]],TNum 12],TCon arith1.minus [TCon arith1.plus [TNum 360,TCon arith1.times [TNum 5,TVar \"x\"]],TNum 5]])" Focus "Just (TCon relation1.eq [TCon arith1.minus [TCon arith1.minus [TCon arith1.times [TNum 60,TVar \"x\"],TCon arith1.times [TNum 12,TVar \"x\"]],TNum 12],TCon arith1.minus [TCon arith1.plus [TNum 360,TCon arith1.times [TNum 5,TVar \"x\"]],TNum 5]])" Environment