def le_substl

bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/poly1305/arith.bend:38

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

38def le_substl(+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}:
39  L.subst(Nat, z => {Nat.is_le(z, c) == True{} : Bool}, a, b, e, h)