Exercise algebra.equations.linear.balance
Description
Solve a linear equation using only balance rules.
Firsts
Rule algebra.equations.linear.balance.con-left-minus Location [] Term "Just (TCon relation1.eq [TCon arith1.unary_minus [TNum 16],TCon arith1.unary_minus [TCon arith1.times [TNum 4,TVar \"x\"]]])" Focus "Just (TCon relation1.eq [TCon arith1.unary_minus [TNum 16],TCon arith1.unary_minus [TCon arith1.times [TNum 4,TVar \"x\"]]])" Environment term=14 Rule algebra.equations.linear.flip Location [] Term "Just (TCon relation1.eq [TCon arith1.plus [TCon arith1.unary_minus [TCon arith1.times [TNum 4,TVar \"x\"]],TNum 14],TCon arith1.unary_minus [TNum 2]])" Focus "Just (TCon relation1.eq [TCon arith1.plus [TCon arith1.unary_minus [TCon arith1.times [TNum 4,TVar \"x\"]],TNum 14],TCon arith1.unary_minus [TNum 2]])" Environment Rule algebra.equations.linear.balance.smart-div Location [] Term "Just (TCon relation1.eq [TCon arith1.unary_minus [TNum 1],TCon arith1.plus [TCon arith1.unary_minus [TCon arith1.times [TNum 2,TVar \"x\"]],TNum 7]])" Focus "Just (TCon relation1.eq [TCon arith1.unary_minus [TNum 1],TCon arith1.plus [TCon arith1.unary_minus [TCon arith1.times [TNum 2,TVar \"x\"]],TNum 7]])" Environment factor=2