def mle2

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/f64sqa.bend:25

import Base
import bend-collections-laws-math@1.0.0.0/proofs/math/typed/natlight.bend as NL

25def mle2(+a: Nat, +b: Nat, +c: Nat, +d: Nat, +hab: {Nat.is_le(a, b) == True{} : Bool}, +hcd: {Nat.is_le(c, d) == True{} : Bool}) -> {Nat.is_le(Nat.mul(a, c), Nat.mul(b, d)) == True{} : Bool}:
26  NL.mle2(a, b, c, d, hab, hcd)