fact: Fixpoint no_wf_cycle_helper {A} {R : relation A} x y (H0 : R x y) (H1 : R y x) (wf : Acc R x) : False := match wf with | Acc_intro f => @no_wf_cycle_helper A R y x H1 H0 (f _ H1) 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