1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
(datatype Math (Num i64) (Var String) (Add Math Math) (Div Math Math) (Mul Math Math)) (let $z (Var "z")) (Add (Var "x") (Var "y")) (rewrite (Add a $z) a) (run 2) (fail (check (= (Var "x") (Add (Var "x") (Var "y")))))