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