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