fact: Fixpoint lap_convol_mul_add al₁ al₂ al₃ i len := match len with | O => [] | S len₁ => [Σ (j = 0, i), (List.nth j al₁ 0 * (List.nth (i - j) al₂ 0 + List.nth (i - j) al₃ 0))%K … lap_convol_mul_add al₁ al₂ al₃ (S i) len₁] end.
imports: Utf8 QArith NPeano Misc Field2 Fsummation