A finite E677 magma with 496 elements that is not right-cancellative
ProvedFiniteMagmaE677.exists_e677_not_right_cancellable_496equational-theorymagmanumber-theoryuniversal-algebra
There is a finite magma with exactly elements satisfying equation 677 which is not right-cancellative: some triple with a common third factor has .
The construction is the blueprint's Chapter 13 example: the carrier is with the affine base operation and the quadratic-character fiber selection; the fifth and cube roots of unity come from a generator of the cyclic group of order . Right-cancellation fails already for , since the coordinate difference is a square modulo and the square fiber projects onto the second argument. The construction was verified by exhaustive search over all element pairs before formalization; the Lean proof is purely algebraic.
Preamble
import Mathlib.FieldTheory.Finite.GaloisField import Mathlib.RingTheory.IntegralDomain import Mathlib.GroupTheory.SpecificGroups.Cyclic.Basic import Definitions.Def_FiniteMagmaE677 import Definitions.Def_FiniteMagmaE677_magma496 import Theorems.Thm_FiniteMagmaE677_magma496_generic universe u
Formal statement
theorem FiniteMagmaE677.exists_e677_not_right_cancellable_496 :
∃ (α : Type) (_ : Fintype α) (op : α → α → α),
Nat.card α = 496 ∧ FiniteMagmaE677.E677 op ∧
¬(∀ a b c : α, op a c = op b c → a = b) := by sorrySource
Equational Theories Project, online proof blueprint, Chapter 13 (677), section 'A finite non-right-cancellative example', https://teorth.github.io/equational_theories/blueprint/677-chapter.html; Lean instantiation contributed here.