def bit_lt16
bend-collections-laws-crypto@1.0.0.0 · proofs/math/typed/w64mul.bend:236
import bend-collections-laws-crypto@1.0.0.0/proofs/math/typed/w64mul.bend as W64mul
import Base
import bend-collections-laws-crypto@1.0.0.0/proofs/lib/nat.bend as N
import bend-collections-laws-crypto@1.0.0.0/proofs/lib/word.bend as WD
import bend-collections-laws-crypto@1.0.0.0/proofs/lib/lemmas/spec/numeric.bend as S
236def bit_lt16(+one: Nat, +h1: {one == 1n : Nat}, +c: Bool) -> {Nat.is_lt(S.bit_value(c), WD.sc(16n, one)) == True{} : Bool}:
237 N.le_lt_trans(S.bit_value(c), 1n, WD.sc(16n, one), bit_le1(c), one_lt_sc(15n, one, h1))