fact: Definition rpo_eic (t1 t2 : M.term) := @Rpo.rpo_eval_is_complete P rpo_inf_nil (M.size t1 + M.size t2) t1 t2 (le_n _).
imports: Coq(Setoid List Relations Lia Arith) CoLoR(weaved_relation list_permut terminaison)