proposition: Lemma lt_eq_f' : forall s f g ts, g =F= f -> lt s (Fun f ts) -> lt s (Fun g ts).
proof: Proof. intros s f g ts f_eq H. eapply lt_eq_f; trivial. eexact H. trivial. Qed.
imports: CoLoR(VRPO_Type VTerm Preorder ListUtil RelUtil LogicUtil AccUtil) Coq(Peano_dec)