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

theorem
  p => q in TAUT(A) implies ( p 'or' r ) => ( q 'or' r ) in TAUT(A) by Lm6;
