fact: Fixpoint iterated_prod_relationA {n} : relation (iterated_prod n) := match n return relation (iterated_prod n) with | 0 => fun _ _ => False | S n' => prod_relationA eqA R (@iterated_prod_relationA n') 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