Set Implicit Arguments.
Require Coq.Program.Wf.
Require List.
Section measure_wf.
(* Measure relations are well-founded if the underlying relation is well-founded. *)
Variables T M: Set.
Variable R: M -> M -> Prop.
Hypothesis wf: well_founded R.
Variable m: T -> M.
Definition MR (x y: T): Prop := R (m x) (m y).

Lemma measure_wf: well_founded MR.
Proof with auto.