theorem
  X |- (p => q) => ('not'(q '&' r) => 'not'(p '&' r))
by Th5;
