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.unary_minus [TCon arith1.times [TCon arith1.divide [TNum 32,TNum 5],TVar \"x\"]],TNum 2],TCon arith1.unary_minus [TNum 14]])" Focus "Just (TCon relation1.eq [TCon arith1.plus [TCon arith1.unary_minus [TCon arith1.times [TCon arith1.divide [TNum 32,TNum 5],TVar \"x\"]],TNum 2],TCon arith1.unary_minus [TNum 14]])" Environment Rule algebra.equations.linear.balance.remove-div Location [] Term "Just (TCon relation1.eq [TCon arith1.minus [TCon arith1.plus [TCon arith1.times [TNum 3,TVar \"x\"],TNum 10],TCon arith1.times [TNum 35,TVar \"x\"]],TCon arith1.unary_minus [TNum 70]])" Focus "Just (TCon relation1.eq [TCon arith1.minus [TCon arith1.plus [TCon arith1.times [TNum 3,TVar \"x\"],TNum 10],TCon arith1.times [TNum 35,TVar \"x\"]],TCon arith1.unary_minus [TNum 70]])" Environment factor=5