(* similar remark apply here… *)

(*****************************************************************************)
(*                                                                           *)
(*                     Translation is well-formed                            *)
(*                                                                           *)
(*****************************************************************************)
Theorem BC_to_TRS_wf bc n s st:
let trs := snd (BC_to_TRS bc st) in
arities bc = ok_arities n s →
wf_prog trs.(maxar) trs.(rules).