
theorem Th35: :: CompleteChr:
for n being Nat holds chromatic# CompleteRelStr n = n
proof
 let n be Nat;
 set R = CompleteRelStr n;
   clique# R = n by Th33;
   then
A1: n <= chromatic# R by Th15;
A2: chromatic# R <= card the carrier of R by Th13;
    card n = n;
    then card the carrier of R = n by Def7;
 hence chromatic# CompleteRelStr n = n by A1,A2,XXREAL_0:1;
end;
