string_of_thm : thm -> string
# string_of_thm ADD_CLAUSES;;
val it : string =
"|- (!n. 0 + n = n) /\\\n (!m. m + 0 = m) /\\\n (!m n. SUC m + n = SUC (m
+ n)) /\\\n (!m n. m + SUC n = SUC (m + n))"
# print_string it;;
|- (!n. 0 + n = n) /\
(!m. m + 0 = m) /\
(!m n. SUC m + n = SUC (m + n)) /\
(!m n. m + SUC n = SUC (m + n))
val it : unit = ()