fact: Definition well_founded_acc_relation_of B (f : B -> A) (fA : forall b, Acc RA (f b)) : relation B := fun b0 b1 => match fA b1 with | Acc_intro fAb1 => exists pf, fAb1 (f b0) pf = fA b0 end.
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