datatype_thm_to_string : thm -> string
- new_theory "example"; <<HOL message: Created theory "example">> > val it = () : unit - val _ = Hol_datatype `example = First | Second`; <<HOL message: Defined type: "example">> - EmitTeX.datatype_thm_to_string (theorem "datatype_example"); > val it = "example = First | Second" : string