(defstep sqrt-rew ()
    (auto-rewrite "sqrt_0" "sqrt_1" "sqrt_eq_0" "sqrt_def" "sqrt_square" 
                  "sqrt_sq" "sqrt_sq_neg" "sqrt_sq_abs")
"Turns on auto-rewrites for square root properties."
"~%Square root properties added as auto-rewrites")


(defstep sqrt-rew-off ()
    (stop-rewrite "sqrt_0" "sqrt_1" "sqrt_eq_0" "sqrt_def" "sqrt_square" 
                  "sqrt_sq" "sqrt_sq_neg" "sqrt_sq_abs")
"Turns off auto-rewrites for square root properties."
"~%Square root properties turned off")