TOP_SWEEP_CONV : conv -> conv
# let tm =
let pairup x i t = mk_pair(mk_var(x^string_of_int i,aty),t) in
let mkpairs x = itlist (pairup x) (1--200) (mk_var(x,aty)) in
mk_eq(mkpairs "x",mkpairs "y");;
...
# time (TOP_DEPTH_CONV(REWR_CONV PAIR_EQ)); ();;
# time (TOP_SWEEP_CONV(REWR_CONV PAIR_EQ)); ();;