Section setoid_fix.
Variables (A : Type) (R : A -> A -> Prop) (Rwf : well_founded R).
Variables (P : A -> Type)
(F : forall x : A, (forall y : A, R y x -> P y) -> P x).
Variable r : forall x : A, P x -> P x -> Prop.
Hypothesis Hstep : forall (x : A) (f g : forall y : A, R y x -> P y),
(forall (y : A) (p : R y x), r (f y p) (g y p)) ->
r (@F x f) (@F x g).

Lemma Fix_F_equiv_inv
: forall (x : A) (r' s' : Acc R x),
r (Fix_F _ F r') (Fix_F _ F s').