
theorem
  for r being Real st r in the carrier of I[01] holds
  1 - r in the carrier of I[01]
proof
  let r be Real;
  assume
A1: r in the carrier of I[01];
  then
A2: 0 <= r by BORSUK_1:43;
A3: r <= 1 by A1,BORSUK_1:43;
  then
A4: 0 <= 1-r by A2,Lm1;
  1-r <= 1 by A2,A3,Lm1;
  hence thesis by A4,BORSUK_1:43;
end;
