theorem Th77:
  N-max L~SpStSeq C = NE-corner C
proof
  set X = L~SpStSeq C, S = N-most X;
A1: S = LSeg(NW-corner C,NE-corner C) by Th67;
A2: W-bound C <= E-bound C by Th21;
  upper_bound (proj1|S) = upper_bound rng(proj1|S) by RELSET_1:22
    .= upper_bound(proj1.:S) by RELAT_1:115
    .= upper_bound [.W-bound C,E-bound C.] by A1,Th71
    .= E-bound C by A2,JORDAN5A:19;
  hence thesis by Th60;
end;
