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

theorem Th44:
  for a,b,c,d being Real st a<=b & c <=d
  holds W-most rectangle(a,b,c,d) = LSeg(|[a,c]|,|[a,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;
  K= LSeg(|[ a,c ]|, |[ a,d ]|) \/ LSeg(|[ a,d ]|, |[ b,d ]|)
  \/ (LSeg(|[ a,c ]|, |[ b,c ]|) \/ LSeg(|[ b,c ]|, |[ b,d ]|))
  by SPPOL_2:def 3;
  then
A3: LSeg(|[ a,c ]|, |[ a,d ]|) \/ LSeg(|[ a,d ]|, |[ b,d ]|) c= K
  by XBOOLE_1:7;
A4: LSeg(|[a,c]|,|[a,d]|) c=
  LSeg(|[ a,c ]|, |[ a,d ]|) \/ LSeg(|[ a,d ]|, |[ b,d ]|) by XBOOLE_1:7;
A5: SW-corner K= |[W-bound K, S-bound K]| by PSCOMP_1:def 11;
A6: NW-corner K = |[a,d]| by A1,A2,Th40;
A7: W-bound K=a by A1,A2,Th36;
A8: S-bound K= c by A1,A2,Th39;
  thus W-most K = LSeg(SW-corner K, NW-corner K)/\K by PSCOMP_1:def 15
    .= LSeg(|[a,c]|,|[a,d]|) by A3,A4,A5,A6,A7,A8,XBOOLE_1:1,28;
end;
