PROOFRsdp.ckr.at15: def of bend-osdev-acpi@0.1.2.0
Import: import bend-osdev-acpi@0.1.2.0/PROOF_rsdp.bend as PROOFRsdp
Lines 79-90 of bend-osdev-acpi@0.1.2.0/PROOF_rsdp.bend: https://jend.leeeet.dev/read.txt?path=bend-osdev-acpi@0.1.2.0/PROOF_rsdp.bend&start_line=79&end_line=90

import Base
import bend-osdev-bytes@0.1.1.1/bytes.bend as B
import bend-osdev-bytes@0.1.1.1/LAWS.bend as BL
import bend-osdev-acpi@0.1.2.0/rsdp.bend as P
import bend-osdev-acpi@0.1.2.0/PROOF_whole.bend as WH

def ckr.at15(+k: U32, +oem: B.Octets, +oem6: {B.Octets.len(oem) == 6n : Nat}, +rev: U32, +rsdt: U32, +rev8: {B.byte(rev) == rev : U32}) -> {B.Octets.at(B.Octets.append(P.AcpiRsdp.signature(), B.Octets.append(B.Octets.of_list([k]), B.Octets.append(oem, B.Octets.append(B.Octets.of_list([rev]), B.Octets.le32(rsdt))))), 15n) == Some{rev} : Maybe<&2, U32>}:
  %Equal.sym(Maybe<&2, U32>, B.Octets.at(B.Octets.append(P.AcpiRsdp.signature(), B.Octets.append(B.Octets.of_list([k]), B.Octets.append(oem, B.Octets.append(B.Octets.of_list([rev]), B.Octets.le32(rsdt))))), Nat.add(B.Octets.len(P.AcpiRsdp.signature()), 7n)), B.Octets.at(B.Octets.append(B.Octets.of_list([k]), B.Octets.append(oem, B.Octets.append(B.Octets.of_list([rev]), B.Octets.le32(rsdt)))), 7n), BL.octets_at_append_add(P.AcpiRsdp.signature(), B.Octets.append(B.Octets.of_list([k]), B.Octets.append(oem, B.Octets.append(B.Octets.of_list([rev]), B.Octets.le32(rsdt)))), 7n)) : {_ == Some{rev} : Maybe<&2, U32>}
  %Equal.cong(Nat, Nat, z => Nat.add(z, 6n), B.Octets.len(B.Octets.of_list([k])), B.len([k]), BL.octets_len_of_list([k])) : {B.Octets.at(B.Octets.append(B.Octets.of_list([k]), B.Octets.append(oem, B.Octets.append(B.Octets.of_list([rev]), B.Octets.le32(rsdt)))), _) == Some{rev} : Maybe<&2, U32>}
  %Equal.sym(Maybe<&2, U32>, B.Octets.at(B.Octets.append(B.Octets.of_list([k]), B.Octets.append(oem, B.Octets.append(B.Octets.of_list([rev]), B.Octets.le32(rsdt)))), Nat.add(B.Octets.len(B.Octets.of_list([k])), 6n)), B.Octets.at(B.Octets.append(oem, B.Octets.append(B.Octets.of_list([rev]), B.Octets.le32(rsdt))), 6n), BL.octets_at_append_add(B.Octets.of_list([k]), B.Octets.append(oem, B.Octets.append(B.Octets.of_list([rev]), B.Octets.le32(rsdt))), 6n)) : {_ == Some{rev} : Maybe<&2, U32>}
  %Equal.cong(Nat, Nat, z => Nat.add(z, 0n), B.Octets.len(oem), 6n, oem6) : {B.Octets.at(B.Octets.append(oem, B.Octets.append(B.Octets.of_list([rev]), B.Octets.le32(rsdt))), _) == Some{rev} : Maybe<&2, U32>}
  %Equal.sym(Maybe<&2, U32>, B.Octets.at(B.Octets.append(oem, B.Octets.append(B.Octets.of_list([rev]), B.Octets.le32(rsdt))), Nat.add(B.Octets.len(oem), 0n)), B.Octets.at(B.Octets.append(B.Octets.of_list([rev]), B.Octets.le32(rsdt)), 0n), BL.octets_at_append_add(oem, B.Octets.append(B.Octets.of_list([rev]), B.Octets.le32(rsdt)), 0n)) : {_ == Some{rev} : Maybe<&2, U32>}
  %Equal.sym(Maybe<&2, U32>, B.Octets.at(B.Octets.append(B.Octets.of_list([rev]), B.Octets.le32(rsdt)), 0n), B.Octets.at(B.Octets.of_list([rev]), 0n), BL.octets_at_append_lt(B.Octets.of_list([rev]), B.Octets.le32(rsdt), 0n, WH.ckw.lt01(rev))) : {_ == Some{rev} : Maybe<&2, U32>}
  %Equal.sym(Maybe<&2, U32>, B.Octets.at(B.Octets.of_list([rev]), 0n), B.at(B.Octets.to_list(B.Octets.of_list([rev])), 0n), BL.octets_at_list(B.Octets.of_list([rev]), 0n)) : {_ == Some{rev} : Maybe<&2, U32>}
  %Equal.sym(List<&2, U32>, B.Octets.to_list(B.Octets.of_list([rev])), B.mask([rev]), BL.octets_to_of([rev])) : {B.at(_, 0n) == Some{rev} : Maybe<&2, U32>}
  %Equal.sym(U32, B.byte(rev), rev, rev8) : {Some{B.byte(_)} == Some{rev} : Maybe<&2, U32>}
  %Equal.sym(U32, B.byte(rev), rev, rev8) : {Some{_} == Some{rev} : Maybe<&2, U32>}
  {==}

Uses (25):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Equal.cong
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Equal.sym
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=List
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Maybe
  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
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-acpi@0.1.2.0/PROOF_whole.bend&name=ckw.lt01
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-acpi@0.1.2.0/rsdp.bend&name=AcpiRsdp.signature
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/LAWS.bend&name=octets_at_append_add
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/LAWS.bend&name=octets_at_append_lt
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/LAWS.bend&name=octets_at_list
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/LAWS.bend&name=octets_len_of_list
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/LAWS.bend&name=octets_to_of
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/bytes.bend&name=Octets
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/bytes.bend&name=Octets.append
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/bytes.bend&name=Octets.at
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/bytes.bend&name=Octets.le32
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/bytes.bend&name=Octets.len
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/bytes.bend&name=Octets.of_list
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/bytes.bend&name=Octets.to_list
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/bytes.bend&name=at
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/bytes.bend&name=byte
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/bytes.bend&name=len
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.1/bytes.bend&name=mask