theorem Th32:
  |.Ka.| c= [#]Ka implies degree Ka = degree BCS(n,Ka)
 proof
  defpred P[Nat] means
   degree Ka=degree BCS($1,Ka) & BCS($1,Ka) is non void affinely-independent;
  assume A1: |.Ka.|c=[#]Ka;
  A2: for n st P[n] holds P[n+1]
  proof
   let n such that
    A3: P[n];
   A4: [#]BCS(n,Ka)=[#]Ka by A1,Th18;
   BCS(n+1,Ka)=BCS BCS(n,Ka) & |.BCS(n,Ka).|=|.Ka.| by A1,Th10,Th20;
   hence thesis by A1,A3,A4,Th28,Th31;
  end;
  A5: P[0 qua Nat] by A1,Th16;
  for n holds P[n] from NAT_1:sch 2(A5,A2);
  hence thesis;
 end;
