(* similar remark apply here… *)

Lemma BC_to_TRS_infos_subst_comp_first h rl tl st n s f:
f ∈ all_lhs_funcs (snd (BC_to_TRS h st)) →
get_info (snd ((BC_to_TRS h >>+ lm_to_ml (map BC_to_TRS rl) >>++
lm_to_ml (map BC_to_TRS tl) >>+ Mnew_fun >>== Mmc n s) st)) f =
get_info (snd (BC_to_TRS h st)) f.