theorem Th29:
  |-_IPC (p => (q => r)) => ((p => q) => (p => r)) by Th19;
