def ltv

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

import Base
import bend-collections-laws-math@1.0.0.0/src/math/num.bend as NM
import bend-collections-laws-math@1.0.0.0/src/math/instances.bend as I
import bend-collections-laws-math@1.0.0.0/proofs/math/typed/u32laws.bend as LW

509def ltv(+a: U32, +b: U32, +na: Nat, +nb: Nat, +ha: {v(a) == na : Nat}, +hb: {v(b) == nb : Nat}) -> {I.u32_is(NM.Lt{a, b}) == Nat.is_lt(na, nb) : Bool}:
510  Equal.trans(Bool, I.u32_is(NM.Lt{a, b}), Nat.is_lt(v(a), v(b)), Nat.is_lt(na, nb), LW.tests_lt(a, b), nlt(v(a), v(b), na, nb, ha, hb))