t|
Show P->(Q->R):CD
    P:AS
    Show Q->R:CD
      Q:AS
      P/\Q->R:PR
      P/\Q:&I 2 4
      R:->O 5 6|]

axiomFiveTheorem = [
adjunctionTheorem = [st|
Show P->(Q->R):CD
    P:AS
    Show Q->R:CD
      Q:AS
      P/\Q->R:PR
      P/\Q:&I 2 4
      R:->O 5 6|]
adjunctionTheorem = [st|
Show P->(Q->R):CD
    P:AS
    Show Q->R:CD
      Q:AS
      P/\Q->R:PR
      P/\Q:&I 2 4
      R:->O 5 6|]