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

theorem
  p => q in TAUT(A) implies ( r '&' p ) => ( r '&' q ) in TAUT(A) by Lm5;
