reserve a,b for R_eal;
reserve A,B for Interval;

theorem
  0. <= diameter A by Lm1;
