def lt_substl

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

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

44def lt_substl(+a: Nat, +b: Nat, +c: Nat, +e: {a == b : Nat}, +h: {Nat.is_lt(a, c) == True{} : Bool}) -> {Nat.is_lt(b, c) == True{} : Bool}:
45  L.subst(Nat, z => {Nat.is_lt(z, c) == True{} : Bool}, a, b, e, h)