proposition: Lemma well_founded_RA_of B (f : B -> A) (wf_A : well_founded RA) : well_founded (fun x y => RA (f x) (f y)).
proof: Proof. intro a. apply Acc_RA_of, wf_A. Defined.
imports: Coq.Setoids.Setoid Coq.Program.Program Coq.Program.Wf Coq.Arith.Wf_nat Coq.Classes.Morphisms Coq.Init.Wf Coq.Lists.SetoidList Coq.Arith.PeanoNat Fiat.Common.Coq__8_4__8_5__Compat