def rot3

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/fixgen.bend:72

import Base
import bend-collections-laws-math@1.0.0.0/proofs/lib/nat.bend as N

72# (z + s) + y == (y + z) + s
73def rot3(+z: Nat, +s: Nat, +y: Nat) -> {Nat.add(Nat.add(z, s), y) == Nat.add(Nat.add(y, z), s) : Nat}:
74  Equal.trans(Nat, Nat.add(Nat.add(z, s), y), Nat.add(y, Nat.add(z, s)), Nat.add(Nat.add(y, z), s), N.add_comm(Nat.add(z, s), y), Equal.sym(Nat, Nat.add(Nat.add(y, z), s), Nat.add(y, Nat.add(z, s)), N.add_assoc(y, z, s)))