D4.4d: q-square strict-growth cardinality
ProvedFiniteMagmaE677.period_four_swapped_s_q_square_growth_cardinalitye677magmaperiod-fourrenewal
Write and let for an exact first-return cycle of length . Let a magma have decidable equality and carry a swapped-S one-step packet at . Assume is off and has exact first-return cycle . Put ; assume is outside the six named points, off both , and has exact first-return cycle .
Then the accounted union has exact size
This is a conditional finite-set count. The packet and cycle hypotheses suffice; no ambient finiteness or separate E677 hypothesis is required.
Preamble
import Definitions.Def_FiniteMagmaE677_sswap_renewal import Mathlib universe u open FiniteMagmaE677
Formal statement
theorem FiniteMagmaE677.period_four_swapped_s_q_square_growth_cardinality
{α : Type u} [DecidableEq α] (op : α → α → α)
(x c1 c2 c3 q s t p u : α)
(first : FirstReturn.D4FirstReturn op x c1 c2 c3 t 0)
(pump : SSwap.Pump op x c1 c2 c3 q s t p u first)
(p_off_t : ∀ k, k < first.period → p ≠ (op x)^[k] t)
(pFirst : FirstReturn.D4FirstReturn op x c1 c2 c3 p 0)
(fresh : FirstReturn.FreshOutsideSix x c1 c2 c3 q s (op q q))
(v_off_t : ∀ k, k < first.period → op q q ≠ (op x)^[k] t)
(v_off_p : ∀ k, k < pFirst.period → op q q ≠ (op x)^[k] p)
(vFirst : FirstReturn.D4FirstReturn op x c1 c2 c3 (op q q) 0) :
(((SSwap.namedSix x c1 c2 c3 q s ∪ SSwap.cyclePoints op x t first.period) ∪
SSwap.cyclePoints op x p pFirst.period) ∪
SSwap.cyclePoints op x (op q q) vFirst.period).card =
6 + first.period + pFirst.period + vFirst.period := by sorrySource
Adam McKenna, The Missing Pair (private repository), revision f9945b937be61f4ca48eb6cafdcfa07ba7a7f78c, lean/E677/Spine/Piece1D4SSwapPNewQSquareRenewal.lean, line 282. The accepted proof on this platform is the public record.