theorem Th23:
  cBa1 = cB1 implies <.cB1.] = cF1
  proof
    assume
A1: cBa1 = cB1;
    cF1 = <.#cBa1.] by CARDFIL2:21;
    hence thesis by A1;
  end;
