def pow2_le_scale

bend-collections-laws-math@1.0.0.0 · proofs/lib/u32.bend:62

import Base
import bend-collections-laws-math@1.0.0.0/proofs/lib/nat.bend as N
import bend-collections-laws-math@1.0.0.0/spec/lib/common.bend as SC
import bend-collections-laws-math@1.0.0.0/proofs/lib/lemmas/spec/numeric.bend as S

62def pow2_le_scale(+n: Nat, +k: Nat, +hk: {Nat.is_le(k, n) == True{} : Bool}) -> {Nat.is_le(SC.pow2(k), S.scale_binary(n, 1n)) == True{} : Bool}:
63  %pow2_scale(n) : {Nat.is_le(SC.pow2(k), _) == True{} : Bool}
64  N.pow2_mono(k, n, hk)