AESZipLengthProof.nat_add_zero_right: def of qasim-bend-kit@0.1.0.2
Import: import qasim-bend-kit@0.1.0.2/proof/AES_ZipLengthProof.bend as AESZipLengthProof
Lines 63-68 of qasim-bend-kit@0.1.0.2/proof/AES_ZipLengthProof.bend: https://jend.leeeet.dev/read.txt?path=qasim-bend-kit@0.1.0.2/proof/AES_ZipLengthProof.bend&start_line=63&end_line=68

import Base

def nat_add_zero_right(+a: Nat) -> {Nat.add(a, 0n) == a : Nat}:
    match a:
        case 0n: {==}
        case 1n+p:
            Equal.cong(Nat, Nat, n => 1n+n,
                Nat.add(p, 0n), p, nat_add_zero_right(p))

Uses (3):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Equal.cong
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat.add