let K be Field; :: thesis: for a, b being Element of K
for p being FinSequence of K st p is first-col-of-circulant holds
(a * (CCirc p)) + (b * (CCirc p)) = CCirc ((a + b) * p)
let a, b be Element of K; :: thesis: for p being FinSequence of K st p is first-col-of-circulant holds
(a * (CCirc p)) + (b * (CCirc p)) = CCirc ((a + b) * p)
let p be FinSequence of K; :: thesis: ( p is first-col-of-circulant implies (a * (CCirc p)) + (b * (CCirc p)) = CCirc ((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-col-of-circulant ; :: thesis: (a * (CCirc p)) + (b * (CCirc p)) = CCirc ((a + b) * p)
then A4: ( a * p is first-col-of-circulant & b * p is first-col-of-circulant ) by Th46;
( a * (CCirc p) = CCirc (a * p) & b * (CCirc p) = CCirc (b * p) ) by A3, Th47;
then (a * (CCirc p)) + (b * (CCirc p)) = CCirc ((a * p) + (b * p)) by A4, A1, Th38, MATRIXR1:16;
hence (a * (CCirc p)) + (b * (CCirc p)) = CCirc ((a + b) * p) by A2, FVSUM_1:55; :: thesis: verum