testHasntPermission2 :: Test 
testHasntPermission2 = 
  let q  = makeAssertion "User says apk#App cannot-dance;"
      a1 = makeAssertionUnsafe "anyone says#apk@app cannot-dance: permissionsCheck(apk#app, \"BOOGIE\") = False;"
      ctx = stdCtx{ac=AC [a1]}
      prf = unsafePerformIO $ ctx ||- q
      pPrf = ppProof prf
  in Test { description = pShow ctx ++ " |= " ++ pShow q ++ pPrf
          , result = test . not . null $ prf
          }
testHasntPermission2 :: Test
testHasntPermission2 = 
  let q  = makeAssertion "User says apk#App cannot-dance;"
      a1 = makeAssertionUnsafe "anyone says#apk@app cannot-dance: permissionsCheck(apk#app, \"BOOGIE\") = False;"
      ctx = stdCtx{ac=AC [a1]}
      prf = unsafePerformIO $ ctx ||- q
      pPrf = ppProof prf
  in Test { description = pShow ctx ++ " |= " ++ pShow q ++ pPrf
          , result = test . not . null $ prf
          }
testHasntPermission2 = 
  let q  = makeAssertion "User says apk#App cannot-dance;"
      a1 = makeAssertionUnsafe "anyone says#apk@app cannot-dance: permissionsCheck(apk#app, \"BOOGIE\") = False;"
      ctx = stdCtx{ac=AC [a1]}
      prf = unsafePerformIO $ ctx ||- q
      pPrf = ppProof prf
  in Test { description = pShow ctx ++ " |= " ++ pShow q ++ pPrf
          , result = test . not . null $ prf
          }