def le_subst_l

bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/secp256k1/ineq.bend:16

import Base
import bend-collections-laws-crypto@1.0.0.0/proofs/lib/logic.bend as Lg

16def le_subst_l(+a: Nat, +b: Nat, +c: Nat, +e: {a == b : Nat}, +h: {Nat.is_le(a, c) == True{} : Bool}) -> {Nat.is_le(b, c) == True{} : Bool}:
17  Lg.subst(Nat, z => {Nat.is_le(z, c) == True{} : Bool}, a, b, e, h)