fact: Fixpoint loop2 (n p : nat) (a b : T) (s : seq T) {struct n} : seq T := match n with | 0 => s | m.+1 => let c := F a b p in loop2 m p.+1 b c (c :: s) end.
imports: Coq(ZArith Rfunctions NaryFunctions Lia) mathcomp.ssreflect(ssreflect ssrbool ssrfun eqtype ssrnat seq fintype bigop tuple) MathComp