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.times [TNum 9,TCon arith1.minus [TNum 7,TCon arith1.times [TCon arith1.divide [TNum 2,TNum 3],TVar \"x\"]]],TCon arith1.plus [TNum 36,TCon arith1.times [TNum 2,TVar \"x\"]]])" Focus "Just (TCon relation1.eq [TCon arith1.times [TNum 9,TCon arith1.minus [TNum 7,TCon arith1.times [TCon arith1.divide [TNum 2,TNum 3],TVar \"x\"]]],TCon arith1.plus [TNum 36,TCon arith1.times [TNum 2,TVar \"x\"]]])" Environment factor=18 Rule algebra.equations.linear.balance.distribute Location [] Term "Just (TCon relation1.eq [TCon arith1.minus [TCon arith1.divide [TNum 7,TNum 2],TCon arith1.times [TCon arith1.divide [TNum 1,TNum 3],TVar \"x\"]],TCon arith1.plus [TNum 2,TCon arith1.times [TCon arith1.divide [TNum 1,TNum 9],TVar \"x\"]]])" Focus "Just (TCon relation1.eq [TCon arith1.minus [TCon arith1.divide [TNum 7,TNum 2],TCon arith1.times [TCon arith1.divide [TNum 1,TNum 3],TVar \"x\"]],TCon arith1.plus [TNum 2,TCon arith1.times [TCon arith1.divide [TNum 1,TNum 9],TVar \"x\"]]])" Environment