theorem Th46:
  cell(l,r) = infinite-cell(G) iff
  for i holds r.i < l.i & [l.i,r.i] is Gap of G.i
proof
  hereby
    assume cell(l,r) = infinite-cell(G);
    then consider l9,r9 such that
A1: cell(l,r) = cell(l9,r9) and
A2: for i holds r9.i < l9.i & [l9.i,r9.i] is Gap of G.i by Def10;
A3: l = l9 by A1,A2,Th28;
    r = r9 by A1,A2,Th28;
    hence for i holds r.i < l.i & [l.i,r.i] is Gap of G.i by A2,A3;
  end;
  assume
A4: for i holds r.i < l.i & [l.i,r.i] is Gap of G.i;
  then cell(l,r) is Cell of d,G by Th30;
  hence thesis by A4,Def10;
end;
