def le_subst_r

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

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

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