reserve A for QC-alphabet;
reserve p, q, r, s for Element of CQC-WFF(A);

theorem Th33:
  ( r => p ) => (( r => q ) => ( r => ( p '&' q ))) in TAUT(A)
proof
  r => ( p => ( q => ( p '&' q ))) in TAUT(A) & (r => ( p => ( q => ( p '&' q
))) ) => (( r => p ) => ( r => ( q => ( p '&' q )))) in TAUT(A) by Th28,
LUKASI_1:11,13;
  then
A1: ( r => p ) => ( r => ( q => ( p '&' q ))) in TAUT(A) by CQC_THE1:46;
  ( r => ( q => ( p '&' q ))) => (( r => q ) => ( r => ( p '&' q ))) in
  TAUT(A) by LUKASI_1:11;
  hence thesis by A1,LUKASI_1:3;
end;
