Remark Acc_lemma : forall y:B, Acc R y -> forall x:A, y = f x -> Acc Rof x.

Lemma wf_simulation (Q : A -> A -> Prop) : well_founded R -> (forall a1 a2, Q a2 a1 -> exists b2, F a2 b2) -> (forall a1 a2 b1, Q a2 a1 -> F a1 b1 -> exists b2, F a2 b2 /\ R b2 b1) -> well_founded Q.