def mone

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/f64sqv.bend:29

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

29def mone(+one: Nat, +h1: {one == 1n : Nat}) -> {Nat.mul(one, one) == one : Nat}:
30  L.subst(Nat, z => {Nat.mul(z, z) == z : Nat}, 1n, one, Equal.sym(Nat, one, 1n, h1), {==})