reserve f for non empty FinSequence of TOP-REAL 2,
  i,j,k,k1,k2,n,i1,i2,j1,j2 for Nat,
  r,s,r1,r2 for Real,
  p,q,p1,q1 for Point of TOP-REAL 2,
  G for Go-board;

theorem Th5:
  p1 in LSeg(p,q) & p`1 = q`1 implies p1`1 = q`1
proof
  assume p1 in LSeg(p,q);
  then consider r such that
A1: p1 = (1-r)*p+r*q and
  0<=r and
  r<=1;
  assume
A2: p`1 = q`1;
  p1`1 = ((1-r)*p)`1+(r*q)`1 by A1,TOPREAL3:2
    .= ((1-r)*p)`1+r*q`1 by TOPREAL3:4
    .= (1-r)*p`1+r*q`1 by TOPREAL3:4;
  hence thesis by A2;
end;
