theorem
  omega c= REAL+ by Lm5,Th1;
