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 = ()