let nte_table_of_tr_doc (doc_settings : t_doc_settings) (cref_table : t_cref_table) (doc : tr_doc) : t_nte_table = let _ : unit = IO.quiet.contents <- true in match acc_of_tr_doc doc_settings cref_table ([] : t_nte_table) ([] : t_path) (NTE_TABLE []) doc with | NTE_TABLE table -> table | _ -> raise (Error "accumulator output type not identical to accumulator input type")