reserve T, X, Y for Subset of MC-wff;
reserve p, q, r, s for Element of MC-wff;

theorem
  (p => q) => (p => p) in IPC-Taut by Th17,Th18;
