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.minus [TNum 1,TCon arith1.divide [TCon arith1.plus [TCon arith1.times [TNum 4,TVar \"x\"],TNum 2],TNum 3]],TCon arith1.plus [TCon arith1.times [TCon arith1.divide [TNum 7,TNum 4],TVar \"x\"],TCon arith1.divide [TNum 1,TNum 4]]])" Focus "Just (TCon relation1.eq [TCon arith1.minus [TNum 1,TCon arith1.divide [TCon arith1.plus [TCon arith1.times [TNum 4,TVar \"x\"],TNum 2],TNum 3]],TCon arith1.plus [TCon arith1.times [TCon arith1.divide [TNum 7,TNum 4],TVar \"x\"],TCon arith1.divide [TNum 1,TNum 4]]])" Environment Rule algebra.equations.linear.balance.remove-div Location [] Term "Just (TCon relation1.eq [TCon arith1.plus [TNum 12,TCon arith1.times [TNum 4,TCon arith1.minus [TCon arith1.unary_minus [TCon arith1.times [TNum 4,TVar \"x\"]],TNum 2]]],TCon arith1.plus [TCon arith1.minus [TCon arith1.times [TNum 36,TVar \"x\"],TCon arith1.times [TNum 15,TVar \"x\"]],TNum 3]])" Focus "Just (TCon relation1.eq [TCon arith1.plus [TNum 12,TCon arith1.times [TNum 4,TCon arith1.minus [TCon arith1.unary_minus [TCon arith1.times [TNum 4,TVar \"x\"]],TNum 2]]],TCon arith1.plus [TCon arith1.minus [TCon arith1.times [TNum 36,TVar \"x\"],TCon arith1.times [TNum 15,TVar \"x\"]],TNum 3]])" Environment factor=12 Rule navigator.down Location [0] Term "Just (TCon relation1.eq [TCon arith1.minus [TNum 1,TCon arith1.divide [TCon arith1.plus [TCon arith1.times [TNum 4,TVar \"x\"],TNum 2],TNum 3]],TCon arith1.plus [TCon arith1.minus [TCon arith1.times [TNum 3,TVar \"x\"],TCon arith1.times [TCon arith1.divide [TNum 5,TNum 4],TVar \"x\"]],TCon arith1.divide [TNum 1,TNum 4]]])" Focus "Just (TCon arith1.minus [TNum 1,TCon arith1.divide [TCon arith1.plus [TCon arith1.times [TNum 4,TVar \"x\"],TNum 2],TNum 3]])" Environment