AESCertificateProof.nat_code_unique: 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 111-122 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=111&end_line=122

import Base

def nat_code_unique(+a: Nat, +b: Nat,
    +first: nat_code(a, b), second: nat_code(a, b)) ->
    {first == second : nat_code(a, b)}:
    match a b:
        case 0n 0n:
            match first second:
                case Unit{} Unit{}: {==}
        case 0n 1n+q:
            Empty.absurd({first == second : nat_code(a, b)}, first)
        case 1n+p 0n:
            Empty.absurd({first == second : nat_code(a, b)}, first)
        case 1n+p 1n+q: nat_code_unique(p, q, first, second)

Uses (4):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Empty.absurd
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Unit
  https://jend.leeeet.dev/definition.txt?path=qasim-bend-kit@0.1.0.2/proof/AES_CertificateProof.bend&name=nat_code