Structural packet forced by a cross-boundary collision with one element outside the left orbit
ProvedFiniteMagmaE677.cross_boundary_collision_star_packetProved supporting lemma for the one-element left-orbit-complement branch of the finite E677 → E255 problem.
Let be a finite magma satisfying E677: for all ,
Fix and let be its orbit under the left translation . Assume:
- has no fixer, that is, no satisfies ;
- exactly one element lies outside ;
- some collides with under right translation by : .
Write , , , and . The lemma asserts the following structural packet.
- , , .
- , , , .
- The outsider is fixed by and satisfies and :
- The collision transports along the backward recurrence: .
- and .
- , , .
- If , then , and the two predecessor identities
hold; together with (the collision) and , this says exchanges and .
The lemma isolates the points and separations that any argument about the cross-boundary collision must handle, and it splits the situation into the branch and the branch . It does not conclude the open successor-propagation statement , and it does not produce a fixer. Its conclusions are sound constraints for finite-model or SAT searches inside this branch.
Formalization Note Orbit membership is the predicate InLeftOrbit, the no-fixer hypothesis is the negation of HasFixerAt, and uniqueness of the outsider is stated as: every element outside the orbit equals . The derived points are written out as terms rather than introduced by let binders.
import Definitions.Def_FiniteMagmaE677 universe u
theorem FiniteMagmaE677.cross_boundary_collision_star_packet
{α : Type u} [Fintype α] (op : α → α → α) (h : FiniteMagmaE677.E677 op)
(x A c : α)
(hnofix : ¬ FiniteMagmaE677.HasFixerAt op x)
(hA_notin : ¬ FiniteMagmaE677.InLeftOrbit op x A)
(hA_unique : ∀ a : α, ¬ FiniteMagmaE677.InLeftOrbit op x a → a = A)
(hc : FiniteMagmaE677.InLeftOrbit op x c)
(hcollision : op c x = op A x) :
FiniteMagmaE677.InLeftOrbit op x (op A x) ∧
op A x ≠ x ∧
op A x ≠ A ∧
FiniteMagmaE677.InLeftOrbit op x (op A A) ∧
op A A ≠ x ∧
op A A ≠ op A x ∧
op A A ≠ A ∧
op x A = A ∧
op A (op A x) = A ∧
op (op A A) A = x ∧
op (op c (op A x)) c = op A A ∧
FiniteMagmaE677.InLeftOrbit op x (op c (op A x)) ∧
op c (op A x) ≠ op A x ∧
FiniteMagmaE677.InLeftOrbit op x (op A (op c (op A x))) ∧
op A (op c (op A x)) ≠ A ∧
op A (op c (op A x)) ≠ op A A ∧
(op A (op c (op A x)) = op A x →
op c (op A x) = x ∧
op x (op (op A x) c) = op A x ∧
op (op A x) (op x c) = x) := by sorry