let elim_type term = apply_tactic (Ring.elim_type_tac ~term)
let ring () = apply_tactic Ring.ring_tac
let fourier () = apply_tactic FourierR.fourier_tac
-let rewrite term = apply_tactic (FourierR.rewrite_tac ~term)
+let rewrite_simpl term = apply_tactic (FourierR.rewrite_simpl_tac ~term)