Exercise algebra.equations.linear.balance
Description
Solve a linear equation using only balance rules.
Firsts
Rule algebra.equations.linear.balance.remove-div Location [] Term "Just (TCon relation1.eq [TCon arith1.plus [TNum 360,TCon arith1.times [TNum 5,TCon arith1.minus [TVar \"x\",TNum 1]]],TCon arith1.minus [TCon arith1.times [TNum 60,TVar \"x\"],TCon arith1.times [TNum 6,TCon arith1.plus [TCon arith1.times [TNum 2,TVar \"x\"],TNum 2]]]])" Focus "Just (TCon relation1.eq [TCon arith1.plus [TNum 360,TCon arith1.times [TNum 5,TCon arith1.minus [TVar \"x\",TNum 1]]],TCon arith1.minus [TCon arith1.times [TNum 60,TVar \"x\"],TCon arith1.times [TNum 6,TCon arith1.plus [TCon arith1.times [TNum 2,TVar \"x\"],TNum 2]]]])" Environment factor=30 Rule algebra.equations.linear.balance.distribute Location [] Term "Just (TCon relation1.eq [TCon arith1.plus [TNum 12,TCon arith1.divide [TCon arith1.minus [TVar \"x\",TNum 1],TNum 6]],TCon arith1.minus [TCon arith1.minus [TCon arith1.times [TNum 2,TVar \"x\"],TCon arith1.times [TCon arith1.divide [TNum 2,TNum 5],TVar \"x\"]],TCon arith1.divide [TNum 2,TNum 5]]])" Focus "Just (TCon relation1.eq [TCon arith1.plus [TNum 12,TCon arith1.divide [TCon arith1.minus [TVar \"x\",TNum 1],TNum 6]],TCon arith1.minus [TCon arith1.minus [TCon arith1.times [TNum 2,TVar \"x\"],TCon arith1.times [TCon arith1.divide [TNum 2,TNum 5],TVar \"x\"]],TCon arith1.divide [TNum 2,TNum 5]]])" Environment Rule algebra.equations.linear.balance.div-to-fraction Location [0,1] Term "Just (TCon relation1.eq [TCon arith1.plus [TNum 12,TCon arith1.times [TCon arith1.divide [TNum 1,TNum 6],TCon arith1.minus [TVar \"x\",TNum 1]]],TCon arith1.minus [TCon arith1.times [TNum 2,TVar \"x\"],TCon arith1.times [TCon arith1.divide [TNum 1,TNum 5],TCon arith1.plus [TCon arith1.times [TNum 2,TVar \"x\"],TNum 2]]]])" Focus "Just (TCon arith1.times [TCon arith1.divide [TNum 1,TNum 6],TCon arith1.minus [TVar \"x\",TNum 1]])" Environment