let attr_list_of_tr_id (doc_settings : t_doc_settings) (path : t_path) (id : tr_id) : (string*string) list = [("id", cdata_of_tr_id doc_settings path id)]