PROOF.bitseq.next_ge: def of bend-osdev-algo@0.1.0.0
Import: import bend-osdev-algo@0.1.0.0/PROOF.bend as PROOF
Lines 619-640 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=619&end_line=640

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

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

Uses (8):
  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=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_le
  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/bitmap.bend&name=bitseq.next