reserve i,j,k,n,l for Element of NAT,
  K for Field,
  a,b,c for Element of K,
  p ,q for FinSequence of K,
  M1,M2,M3 for Matrix of n,K;
reserve D for non empty set,
  t for FinSequence of D,
  A for Matrix of n,D;

theorem Th25:
  M1 is col_circulant implies -M1 is col_circulant
proof
A1: Indices M1=[:Seg n, Seg n:] by MATRIX_0:24;
A2: Indices (-M1) = [:Seg n, Seg n:] by MATRIX_0:24;
  assume M1 is col_circulant;
  then consider p being FinSequence of K such that
A3: len p=len M1 and
A4: M1 is_col_circulant_about p;
  p is Element of (len p)-tuples_on the carrier of K by FINSEQ_2:92;
  then
A5: -p is Element of (len p)-tuples_on the carrier of K by FINSEQ_2:113;
  then
A6: len (-M1)=n & len (-p)=len p by CARD_1:def 7,MATRIX_0:24;
A7: len M1=n by MATRIX_0:24;
  then
A8: dom p =Seg n by A3,FINSEQ_1:def 3;
  for i,j be Nat st [i,j] in Indices (-M1) holds (-M1)*(i,j)=(-p).((i-j
  mod len (-p))+1)
  proof
    let i,j be Nat;
    assume
A9: [i,j] in Indices (-M1);
    then
A10: (i-j mod n)+1 in Seg n by A2,Lm3;
    (-M1)*(i,j) =-(M1*(i,j)) by A1,A2,A9,MATRIX_3:def 2
      .=(comp K).(M1*(i,j)) by VECTSP_1:def 13
      .=(comp K).( p.((i-j mod len p)+1) ) by A4,A1,A2,A9
      .=(-p).((i-j mod len p)+1) by A3,A7,A8,A10,FUNCT_1:13;
    hence thesis by A5,CARD_1:def 7;
  end;
  then -M1 is_col_circulant_about -p by A3,A7,A6;
  then consider r being FinSequence of K such that
A11: len r =len (-M1) & -M1 is_col_circulant_about r;
  take r;
  thus thesis by A11;
end;
