theorem
  1 <= j & j+1 <= width G implies LSeg(1/2*(G*(1,j)+G*(1,j+1))-|[1,0]|,p
  ) meets Int cell(G,0,j)
proof
  assume
A1: 1 <= j & j+1 <= width G;
  now
    take a = 1/2*(G*(1,j)+G*(1,j+1))-|[1,0]|;
    thus a in LSeg(1/2*(G*(1,j)+G*(1,j+1))-|[1,0]|,p) by RLTOPSP1:68;
    thus a in Int cell(G,0,j) by A1,Th35;
  end;
  hence thesis by XBOOLE_0:3;
end;
