fact: Definition well_founded_prod_relationA_helper_step a b (wf_A : Acc RA a) (wf_B : well_founded RB) (wf_B_rec : forall (fa : forall y : A, RA y a -> Acc RA y) b' (wf_B' : Acc RB b'), Acc prod_relationA (a, b')) : Acc prod_relationA (a, b) := match wf_A with | Acc_intro fa => @wf_B_rec fa b (wf_B b) 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