let doc_settings_of_tr_doc (doc : Doc_types.tr_doc) : t_doc_settings = match doc.fld_doc_preamble with |None -> doc_settings_default () |Some preamble -> doc_settings_of_ts_preamble (doc_settings_default ()) preamble