
theorem QuoIn01:
  for a,b being Element of [.0,1.] st a > b holds
    b / a in [.0,1.]
  proof
    let a,b be Element of [.0,1.];
    assume
A0: a > b;
A2: 0 <= a <= 1 & 0 <= b <= 1 by XXREAL_1:1; then
    b / a <= 1 by XREAL_1:185,A0;
    hence thesis by A2,XXREAL_1:1;
  end;
