-- An assertion is true if it is in the assertion context
inACTest1 :: Test 
inACTest1 = 
  let 
    a = makeAssertionUnsafe "Alice says Bob is-cool;"
    ctx = stdCtx{ ac=AC [a], d=Infinity }
    prf = unsafePerformIO $ ctx ||- a
    pPrf = ppProof prf
  in
    Test{ description = pShow ctx ++" |= "++pShow a ++ pPrf
        , result = test . not . null $ prf
        }
inACTest1 :: Test
inACTest1 = 
  let 
    a = makeAssertionUnsafe "Alice says Bob is-cool;"
    ctx = stdCtx{ ac=AC [a], d=Infinity }
    prf = unsafePerformIO $ ctx ||- a
    pPrf = ppProof prf
  in
    Test{ description = pShow ctx ++" |= "++pShow a ++ pPrf
        , result = test . not . null $ prf
        }
inACTest1 = 
  let 
    a = makeAssertionUnsafe "Alice says Bob is-cool;"
    ctx = stdCtx{ ac=AC [a], d=Infinity }
    prf = unsafePerformIO $ ctx ||- a
    pPrf = ppProof prf
  in
    Test{ description = pShow ctx ++" |= "++pShow a ++ pPrf
        , result = test . not . null $ prf
        }