def lt_m

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/u32int.bend:416

import Base
import bend-collections-laws-math@1.0.0.0/proofs/lib/logic.bend as L

416def lt_m(+x: U32, +m: U32, +mp: Nat, +hm: {v(m) == 1n+mp : Nat}, +h: {Nat.is_lt(v(x), 1n+mp) == True{} : Bool}) -> {Nat.is_lt(v(x), v(m)) == True{} : Bool}:
417  L.subst(Nat, z => {Nat.is_lt(v(x), z) == True{} : Bool}, 1n+mp, v(m), Equal.sym(Nat, v(m), 1n+mp, hm), h)