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