let K be Field; :: thesis: for a, b being Element of K
for p being FinSequence of K st p is first-line-of-circulant holds
(a * (LCirc p)) + (b * (LCirc p)) = LCirc ((a + b) * p)
let a, b be Element of K; :: thesis: for p being FinSequence of K st p is first-line-of-circulant holds
(a * (LCirc p)) + (b * (LCirc p)) = LCirc ((a + b) * p)
let p be FinSequence of K; :: thesis: ( p is first-line-of-circulant implies (a * (LCirc p)) + (b * (LCirc p)) = LCirc ((a + b) * p) )
A1: len (b * p) = len p by MATRIXR1:16;
A2: p is Element of (len p) -tuples_on the carrier of K by FINSEQ_2:92;
assume A3: p is first-line-of-circulant ; :: thesis: (a * (LCirc p)) + (b * (LCirc p)) = LCirc ((a + b) * p)
then A4: ( a * p is first-line-of-circulant & b * p is first-line-of-circulant ) by Th41;
( a * (LCirc p) = LCirc (a * p) & b * (LCirc p) = LCirc (b * p) ) by A3, Th42;
then (a * (LCirc p)) + (b * (LCirc p)) = LCirc ((a * p) + (b * p)) by A4, A1, Th34, MATRIXR1:16;
hence (a * (LCirc p)) + (b * (LCirc p)) = LCirc ((a + b) * p) by A2, FVSUM_1:55; :: thesis: verum