condRename2 :: Test 
condRename2 = 
  let q = makeAssertionUnsafe "Bob says Alice likes-jazz;"
      a1 = makeAssertionUnsafe "Bob says everyone likes-jazz if everyone is-human;"
      a2 = makeAssertionUnsafe "Bob says Alice is-human;"
      ctx = stdCtx{ ac=AC [a1, a2], d=Infinity }
      prf = unsafePerformIO $ ctx ||- q
      pPrf = ppProof prf
  in Test { description = pShow ctx ++ " |= " ++ pShow q ++ pPrf
          , result = test . not . null $ prf
          }
condRename2 :: Test
condRename2 = 
  let q = makeAssertionUnsafe "Bob says Alice likes-jazz;"
      a1 = makeAssertionUnsafe "Bob says everyone likes-jazz if everyone is-human;"
      a2 = makeAssertionUnsafe "Bob says Alice is-human;"
      ctx = stdCtx{ ac=AC [a1, a2], d=Infinity }
      prf = unsafePerformIO $ ctx ||- q
      pPrf = ppProof prf
  in Test { description = pShow ctx ++ " |= " ++ pShow q ++ pPrf
          , result = test . not . null $ prf
          }
condRename2 = 
  let q = makeAssertionUnsafe "Bob says Alice likes-jazz;"
      a1 = makeAssertionUnsafe "Bob says everyone likes-jazz if everyone is-human;"
      a2 = makeAssertionUnsafe "Bob says Alice is-human;"
      ctx = stdCtx{ ac=AC [a1, a2], d=Infinity }
      prf = unsafePerformIO $ ctx ||- q
      pPrf = ppProof prf
  in Test { description = pShow ctx ++ " |= " ++ pShow q ++ pPrf
          , result = test . not . null $ prf
          }