theorem Th38:
  B is constant & the_value_of B = A implies for n holds (
  inferior_setsequence B).n = A
proof
  assume
A1: B is constant & the_value_of B = A;
  let n;
  (inferior_setsequence(B)).n = meet {B.k : n <= k} by Def2;
  hence thesis by A1,Th14;
end;
