GSYM : thm -> thm
A |- ..(s1 = s2)...(t1 = t2).. -------------------------------- GSYM A |- ..(s2 = s1)...(t2 = t1)..
- arithmeticTheory.ADD; > val it = |- (!n. 0 + n = n) /\ (!m n. (SUC m) + n = SUC(m + n)) : thm - GSYM arithmeticTheory.ADD; > val it = |- (!n. n = 0 + n) /\ (!m n. SUC(m + n) = (SUC m) + n) : thm