let node_of_tu_par (doc_settings : t_doc_settings) (auto_nr : int) (p : tu_par) : t_node = match p with |Cu_par_rpt (Cs_par_rpt (id : tr_id)) -> PAR_NODE (PAR_AUTO auto_nr) |Cu_par_std (par : tr_par_std) -> node_of_tr_par_std doc_settings auto_nr par