add_rewrites : rewrites -> thm list -> rewrites
- load "pairTheory"; open pairTheory;
add_rewrites empty_rewrites (PAIR_MAP_THM::pair_rws);
> val it =
|- (f ## g) (x,y) = (f x,g y);
|- (FST x,SND x) = x;
|- FST (x,y) = x;
|- SND (x,y) = y
Number of rewrite rules = 4
: rewrites