AC_CONV : (thm * thm) -> conv
ath = |- m _ (n _ p) = (m _ n) _ p cth = |- m _ n = n _ m
   - AC_CONV(ADD_ASSOC,ADD_SYM)
       (Term `x + (SUC t) + ((3 + y) + z) = 3 + (SUC t) + x + y + z`);
   > val it = 
     |- (x + ((SUC t) + ((3 + y) + z)) = 3 + ((SUC t) + (x + (y + z)))) = T