NUM_SUC_CONV : term -> thm
|- SUC n = s
# NUM_SUC_CONV `SUC 0`;; val it : thm = |- SUC 0 = 1 # NUM_SUC_CONV `SUC 12345`;; val it : thm = |- SUC 12345 = 12346