reserve p,p1,p2,p3,q,q1,q2 for Point of TOP-REAL 2,
  i for Nat,
  lambda for Real;

theorem Th41:
  for a,b,c,d being Real st a<=b & c <=d holds
  NE-corner rectangle(a,b,c,d) = |[b,d]|
proof
  let a,b,c,d be Real;
  set K=rectangle(a,b,c,d);
  assume that
A1: a<=b and
A2: c <=d;
A3: NE-corner K= |[E-bound K, N-bound K]| by PSCOMP_1:def 13;
  E-bound K=b by A1,A2,Th38;
  hence thesis by A1,A2,A3,Th37;
end;
