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