theorem
  |- TAUT(A)
  proof
A1:  |- TAUT(A) iff {}(CQC-WFF(A)) |- TAUT(A) by Th15;
    {}(CQC-WFF(A)) |- TAUT(A) by Th13;
    hence thesis by A1;
  end;
