theorem
  LSeg(p,G*(len G,width G)+|[1,1]|) meets Int cell(G,len G,width G)
proof
  now
    take a = G*(len G,width G)+|[1,1]|;
    thus a in LSeg(p,G*(len G,width G)+|[1,1]|) by RLTOPSP1:68;
    thus a in Int cell(G,len G,width G) by Th37;
  end;
  hence thesis by XBOOLE_0:3;
end;
