D4.4a: swapped-S cycle renewal
ProvedFiniteMagmaE677.period_four_swapped_s_gives_cycle_renewale677magmaperiod-fourrenewal
Write and let for an exact first-return cycle of length . Let a finite magma satisfy E677. Assume the published distinguished period-four packet and S-tagged start at . Put , and . Suppose , , is outside , the trace at is initialized at depth zero with exact first-return data, and .
Then these inputs extend to a cycle-renewal packet. In particular, , , and is fresh outside the same six points and satisfies . The packet retains the full three-way classification of : the dual-collision case, contact at a strictly positive phase of , or a fresh cycle disjoint from , with the associated equations and exact first-return data.
Preamble
import Definitions.Def_FiniteMagmaE677_sswap_renewal import Mathlib universe u open FiniteMagmaE677
Formal statement
theorem FiniteMagmaE677.period_four_swapped_s_gives_cycle_renewal
{α : Type u} [Fintype α] (op : α → α → α) (h : FiniteMagmaE677.E677 op)
(x c1 c2 c3 : α)
(packet : FirstReturn.D4Distinguished op x c1 c2 c3)
(start : FirstReturn.STaggedStart op x c1 c2 c3)
(q_to_s : op x (op c2 x) = op c3 (op c2 x))
(s_to_q : op x (op c3 (op c2 x)) = op c2 x)
(fresh : FirstReturn.FreshOutsideSix x c1 c2 c3
(op c2 x) (op c3 (op c2 x)) (op c2 (op c3 (op c2 x))))
(initial_trace : FirstReturn.D4Trace op x c1 c2 c3 (op c2 (op c3 (op c2 x))) 0)
(first : FirstReturn.D4FirstReturn op x c1 c2 c3 (op c2 (op c3 (op c2 x))) 0)
(bridge : op (op c2 (op c3 (op c2 x))) c2 = c3) :
SSwap.CycleRenewal op x c1 c2 c3 (op c2 x) (op c3 (op c2 x))
(op c2 (op c3 (op c2 x))) first := by sorrySource
Adam McKenna, The Missing Pair (private repository), revision f9945b937be61f4ca48eb6cafdcfa07ba7a7f78c, lean/E677/Spine/Piece1D4SSwapCommonRenewal.lean, line 144. The accepted proof on this platform is the public record.