def nmul

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/u64int.bend:656

import bend-collections-laws-math@1.0.0.0/proofs/math/typed/u64int.bend as U64int

import Base

656def nmul(+a: Nat, +b: Nat, +na: Nat, +nb: Nat, +ha: {a == na : Nat}, +hb: {b == nb : Nat}) -> {Nat.mul(a, b) == Nat.mul(na, nb) : Nat}:
657  Equal.trans(Nat, Nat.mul(a, b), Nat.mul(na, b), Nat.mul(na, nb), Equal.cong(Nat, Nat, t => Nat.mul(t, b), a, na, ha), Equal.cong(Nat, Nat, t => Nat.mul(na, t), b, nb, hb))

Uses (4)

Used by (8)