reserve i, i1, i2, j, j1, j2, k, m, n, t for Nat,
  D for non empty Subset of TOP-REAL 2,
  E for compact non vertical non horizontal Subset of TOP-REAL 2,
  C for compact connected non vertical non horizontal Subset of TOP-REAL 2,
  G for Go-board,
  p, q, x for Point of TOP-REAL 2,
  r, s for Real;

theorem
  p`2 = q`2 & r in [. proj1.p,proj1.q .] implies |[r,p`2]| in LSeg(p,q)
proof
  assume
A1: p`2 = q`2;
  assume
A2: r in [. proj1.p,proj1.q .];
A3: |[r,p`2]|`1 = r by EUCLID:52;
  proj1.q = q`1 by PSCOMP_1:def 5;
  then
A4: |[r,p`2]|`1 <= q`1 by A2,A3,XXREAL_1:1;
  proj1.p = p`1 by PSCOMP_1:def 5;
  then p`2 = |[r,p`2]|`2 & p`1 <= |[r,p`2]|`1 by A2,A3,EUCLID:52,XXREAL_1:1;
  hence thesis by A1,A4,GOBOARD7:8;
end;
