Exercise arithmetic.fractions
Description
simplify fractions
Firsts
Rule simplify.enter Location [0] Term "Just (TCon arith1.divide [TCon arith1.plus [TCon arith1.divide [TNum 14,TNum 21],TCon arith1.divide [TNum 2,TNum 7]],TCon arith1.minus [TCon arith1.divide [TNum 4,TNum 7],TCon arith1.divide [TNum 1,TNum 3]]])" Focus "Just (TCon arith1.plus [TCon arith1.divide [TNum 14,TNum 21],TCon arith1.divide [TNum 2,TNum 7]])" Environment