AESCertificateProof.bool_code: def of qasim-bend-kit@0.1.0.2
Import: import qasim-bend-kit@0.1.0.2/proof/AES_CertificateProof.bend as AESCertificateProof
Lines 3-9 of qasim-bend-kit@0.1.0.2/proof/AES_CertificateProof.bend: https://jend.leeeet.dev/read.txt?path=qasim-bend-kit@0.1.0.2/proof/AES_CertificateProof.bend&start_line=3&end_line=9

import Base

# Decidable equality makes certificates for Bool and Nat unique. These lemmas
# compare proofs without evaluating the computation that produced each proof.
def bool_code(a: Bool, b: Bool) -> Data:
    match a b:
        case False{} False{}: Unit
        case True{} True{}: Unit
        case _ _: Empty

Uses (3):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Empty
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Unit