PROOF.bitseq.next_hit: def of bend-osdev-algo@0.1.0.0
Import: import bend-osdev-algo@0.1.0.0/PROOF.bend as PROOF
Lines 596-617 of bend-osdev-algo@0.1.0.0/PROOF.bend: https://jend.leeeet.dev/read.txt?path=bend-osdev-algo@0.1.0.0/PROOF.bend&start_line=596&end_line=617

import Base
import bend-osdev-algo@0.1.0.0/bitmap.bend as M

def bitseq.next_hit(size: Nat, start: Nat, want: Bool, bs: List<&2, Bool>, l: {Nat.is_lt(M.bitseq.next(size, start, want, bs), size) == True{} : Bool}) -> {M.bitseq.at(bs, M.bitseq.next(size, start, want, bs)) == want : Bool}:
  match size:
    case 0n:
      Empty.absurd({M.bitseq.at(bs, 0n) == want : Bool}, absurd.ft(l))
    case 1n+ +s:
      match start want bs:
        case 1n+st w Nil{}:
          bitseq.next_hit(s, st, w, Nil{}, l)
        case 1n+st w Con{h, t}:
          bitseq.next_hit(s, st, w, t, l)
        case 0n False{} Nil{}:
          {==}
        case 0n True{} Nil{}:
          Empty.absurd({False{} == True{} : Bool}, absurd.ft(Equal.trans(Bool, False{}, Nat.is_lt(s, s), True{}, Equal.sym(Bool, Nat.is_lt(s, s), False{}, nat.lt_irrefl(s)), l)))
        case 0n True{} Con{True{}, t}:
          {==}
        case 0n False{} Con{False{}, t}:
          {==}
        case 0n True{} Con{False{}, t}:
          bitseq.next_hit(s, 0n, True{}, t, l)
        case 0n False{} Con{True{}, t}:
          bitseq.next_hit(s, 0n, False{}, t, l)

Uses (11):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Empty.absurd
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Equal.sym
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Equal.trans
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=List
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat.is_lt
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-algo@0.1.0.0/PROOF.bend&name=absurd.ft
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-algo@0.1.0.0/PROOF.bend&name=nat.lt_irrefl
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-algo@0.1.0.0/bitmap.bend&name=bitseq.at
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-algo@0.1.0.0/bitmap.bend&name=bitseq.next