def fin_lt

bend-collections-laws-crypto@1.0.0.0 · proofs/math/random/lemire.bend:58

import Base
import bend-collections-laws-crypto@1.0.0.0/proofs/lib/nat.bend as N

58def fin_lt(+hi: Nat, +k: Nat, +ok: Bool, +h: {Nat.is_lt(hi, k) == True{} : Bool}) -> {Nat.add(hit_acc(hi, k, ok), 1n) == 1n : Nat}:
59  match ok:
60    case True{}:
61      %Equal.sym(Bool, Nat.is_eq(hi, k), False{}, N.is_eq_lt(hi, k, h)) : {Nat.add(b2n(_), 1n) == 1n : Nat}
62      {==}
63    case False{}:
64      {==}