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