|
Show <>[]P->[]P  /0   :CD
  <>[]P          /0   :AS
  Show []P       /0   :ND
    Show P       /0-1 :DD
      []P        /0-2 :<>O 2
      P          /0-1 :[]O(5) 5|]

axiomBTheorem = [st|
axiomFiveTheorem = [st|
Show <>[]P->[]P  /0   :CD
  <>[]P          /0   :AS
  Show []P       /0   :ND
    Show P       /0-1 :DD
      []P        /0-2 :<>O 2
      P          /0-1 :[]O(5) 5|]
axiomFiveTheorem = [st|
Show <>[]P->[]P  /0   :CD
  <>[]P          /0   :AS
  Show []P       /0   :ND
    Show P       /0-1 :DD
      []P        /0-2 :<>O 2
      P          /0-1 :[]O(5) 5|]