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