def internal_nat_foldl_op_eq_foldr_op

bend-mathlib@0.8.1.0 · algebra.bend:257

import Base

257# A Nat call: --verdict takes a ~ constant's model from a call of its law (PLAN F38).
258def internal_nat_foldl_op_eq_foldr_op(+xs: List<&2, Nat>) -> {List.foldl(&2, Nat, Nat, Nat.add, xs, 0n) == List.foldr(&2, Nat, Nat, Nat.add, xs, 0n) : Nat}:
259  foldl_op_eq_foldr_op(~Nat, ~Nat.add, ~internal_nat_add_assoc, ~internal_nat_add_comm, ~0n, ~internal_nat_zero_add, xs)