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