datatype_theorems : string -> (string * thm) list
- new_theory "example";
<<HOL message: Created theory "example">>
> val it = () : unit
- val _ = Hol_datatype `example = First | Second`;
<<HOL message: Defined type: "example">>
- EmitTeX.datatype_theorems "example";
> val it = [("example", |- DATATYPE (example First Second))] :
(string * thm) list