reserve x,y,z,w for ExtReal,
  r for Real;

theorem Th5:
  --infty = +infty by Def3;
