fact: Fixpoint finprod' A (T : A -> Type) (xs : seq A) (fs : forall x, T x) : FinProd' T xs := if xs is x :: xs' then (fs x, finprod' xs' fs) else tt.
imports: Coq(ssreflect ssrbool ssrfun Eqdep) mathcomp(ssrnat seq eqtype choice fintype) pcm(options axioms) Coq(Classes.Morphisms Program.Basics Program.Tactics) Coq(Relations)