def le_v

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

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

836def le_v(+a: U32, +b: U32, +na: Nat, +nb: Nat, +ha: {v(a) == na : Nat}, +hb: {v(b) == nb : Nat}, +h: {Nat.is_le(na, nb) == True{} : Bool}) -> {Nat.is_le(v(a), v(b)) == True{} : Bool}:
837  +h1 = L.subst(Nat, z => {Nat.is_le(z, nb) == True{} : Bool}, na, v(a), Equal.sym(Nat, v(a), na, ha), h)
838  L.subst(Nat, z => {Nat.is_le(v(a), z) == True{} : Bool}, nb, v(b), Equal.sym(Nat, v(b), nb, hb), h1)