theorem Th14:
  B is constant & the_value_of B = A implies for n holds meet {B.k
  : n <= k} = A
proof
  assume
A1: B is constant & the_value_of B = A;
  let n;
  set Y = {B.k : n <= k};
A2: now
    let x be object;
    assume x in Y;
    then ex k st x = B.k & n <= k;
    hence x = A by A1,Lm2;
  end;
  Y <> {} by Th1;
  then Y = {A} by A2,ZFMISC_1:35;
  hence thesis by SETFAM_1:10;
end;
