  reserve n,m,i for Nat,
          p,q for Point of TOP-REAL n,
          r,s for Real,
          R for real-valued FinSequence;

theorem
  r >= 0 implies p in ClosedHypercube(p,n|->r)
proof
  set R=n |-> r;
  assume r>=0;
  then for i st i in Seg n /\dom R holds R.i >=0 by FINSEQ_2:57;
  hence thesis by Th5;
end;
