reserve i for Integer,
  a, b, r, s for Real;

theorem
  |[a,b]| = (1,2) --> (a,b) by Th4;
