testESSoSExample :: Test 
testESSoSExample =
  let q  = makeAssertion "Phone says Game is-installable;"
      a3 = makeAssertion "Phone says app is-installable if app meets(NotMalware), app meets(NoInfoLeaks);"
      a4 = makeAssertion "anyone says app meets(policy) if evidence shows-meets(app, policy);"
      a5 = makeAssertion "Phone says NILInferer can-say 0 app meets(NoInfoLeaks);"
      a6 = makeAssertion "Phone says Google can-say inf app meets(NotMalware);"
      a7 = makeAssertion "Google says AVChecker can-say 0 app meets(NotMalware);"
      a8 = makeAssertion "AVChecker says Game meets(NotMalware);"
      a9 = makeAssertion "NILInferer says Evidence shows-meets(Game,NoInfoLeaks);" -- Bit simplified
      ctx = stdCtx{ac=AC [a3, a4, a5, a6, a7, a8, a9]}
      prf = unsafePerformIO $ ctx ||- q
      pPrf = ppProof prf
  in Test { description = pShow ctx ++ " |= " ++ pShow q ++ pPrf
          , result = test . not . null $ prf
          }
testESSoSExample :: Test
testESSoSExample =
  let q  = makeAssertion "Phone says Game is-installable;"
      a3 = makeAssertion "Phone says app is-installable if app meets(NotMalware), app meets(NoInfoLeaks);"
      a4 = makeAssertion "anyone says app meets(policy) if evidence shows-meets(app, policy);"
      a5 = makeAssertion "Phone says NILInferer can-say 0 app meets(NoInfoLeaks);"
      a6 = makeAssertion "Phone says Google can-say inf app meets(NotMalware);"
      a7 = makeAssertion "Google says AVChecker can-say 0 app meets(NotMalware);"
      a8 = makeAssertion "AVChecker says Game meets(NotMalware);"
      a9 = makeAssertion "NILInferer says Evidence shows-meets(Game,NoInfoLeaks);" -- Bit simplified
      ctx = stdCtx{ac=AC [a3, a4, a5, a6, a7, a8, a9]}
      prf = unsafePerformIO $ ctx ||- q
      pPrf = ppProof prf
  in Test { description = pShow ctx ++ " |= " ++ pShow q ++ pPrf
          , result = test . not . null $ prf
          }
testESSoSExample =
  let q  = makeAssertion "Phone says Game is-installable;"
      a3 = makeAssertion "Phone says app is-installable if app meets(NotMalware), app meets(NoInfoLeaks);"
      a4 = makeAssertion "anyone says app meets(policy) if evidence shows-meets(app, policy);"
      a5 = makeAssertion "Phone says NILInferer can-say 0 app meets(NoInfoLeaks);"
      a6 = makeAssertion "Phone says Google can-say inf app meets(NotMalware);"
      a7 = makeAssertion "Google says AVChecker can-say 0 app meets(NotMalware);"
      a8 = makeAssertion "AVChecker says Game meets(NotMalware);"
      a9 = makeAssertion "NILInferer says Evidence shows-meets(Game,NoInfoLeaks);" -- Bit simplified
      ctx = stdCtx{ac=AC [a3, a4, a5, a6, a7, a8, a9]}
      prf = unsafePerformIO $ ctx ||- q
      pPrf = ppProof prf
  in Test { description = pShow ctx ++ " |= " ++ pShow q ++ pPrf
          , result = test . not . null $ prf
          }