theorem
  for e being Point of Euclid n st e = p holds Ball(p,r) = OpenHypercube(e,r)
  proof
    let e be Point of Euclid n;
    assume
A1: e = p;
    Ball(p,r) = product Intervals(@p,r) by Th68;
    hence thesis by A1;
  end;
