theorem Th34:
  T is being_a_theory implies TAUT(Al) c= T
proof
  assume
A1: T is being_a_theory;
 Cn({}(CQC-WFF(Al))) c= Cn(T) by Th14,XBOOLE_1:2;
  hence thesis by A1,Th16;
end;
