theorem Th40:
  ProjCo(GF(p)) = [:the carrier of GF(p),
  the carrier of GF(p), the carrier of GF(p):] \ {[0,0,0]}
  proof
    0.GF(p) = 0 by Th11;
    hence thesis;
  end;
