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