theorem Th81:
  S-max L~SpStSeq C = SE-corner C
proof
  set X = L~SpStSeq C, S = S-most X;
A1: S = LSeg(SW-corner C,SE-corner C) by Th68;
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,Th73
    .= E-bound C by A2,JORDAN5A:19;
  hence thesis by Th59;
end;
