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