theorem
  |[r,s]| in Vertical_Line r
proof
  |[r,s]|`1 = r by EUCLID:52;
  hence thesis by Th8;
end;
