Theorem poimirlem4 34911

Description: Lemma for poimir 34940 connecting the admissible faces on the back face of the (𝑀 + 1)-cube to admissible simplices in the 𝑀-cube. (Contributed by Brendan Leahy, 21-Aug-2020.)

Hypotheses

Ref	Expression
poimir.0	⊢ (𝜑 → 𝑁 ∈ ℕ)
poimirlem4.1	⊢ (𝜑 → 𝐾 ∈ ℕ)
poimirlem4.2	⊢ (𝜑 → 𝑀 ∈ ℕ0)
poimirlem4.3	⊢ (𝜑 → 𝑀 < 𝑁)

Assertion

Ref

Expression

poimirlem4

⊢ (𝜑 → {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ≈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})

Distinct variable groups:   𝑓,𝑖,𝑗,𝑝,𝑠   𝜑,𝑗   𝑗,𝑀   𝑗,𝑁   𝜑,𝑖,𝑝,𝑠   𝐵,𝑓,𝑖,𝑗,𝑠   𝑓,𝐾,𝑖,𝑗,𝑝,𝑠   𝑓,𝑀,𝑖,𝑝,𝑠   𝑓,𝑁,𝑖,𝑝,𝑠

Allowed substitution hints:   𝜑(𝑓)   𝐵(𝑝)

Proof of Theorem poimirlem4

Dummy variables 𝑘 𝑛 𝑡 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		poimir.0	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ ℕ)
2	1	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝑁 ∈ ℕ)
3		poimirlem4.1	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ ℕ)
4	3	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝐾 ∈ ℕ)
5		poimirlem4.2	. . . . . . . 8 ⊢ (𝜑 → 𝑀 ∈ ℕ0)
6	5	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝑀 ∈ ℕ0)
7		poimirlem4.3	. . . . . . . 8 ⊢ (𝜑 → 𝑀 < 𝑁)
8	7	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝑀 < 𝑁)
9		xp1st 7721	. . . . . . . . 9 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (1st ‘𝑡) ∈ ((0..^𝐾) ↑m (1...𝑀)))
10		elmapi 8428	. . . . . . . . 9 ⊢ ((1st ‘𝑡) ∈ ((0..^𝐾) ↑m (1...𝑀)) → (1st ‘𝑡):(1...𝑀)⟶(0..^𝐾))
11	9, 10	syl 17	. . . . . . . 8 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (1st ‘𝑡):(1...𝑀)⟶(0..^𝐾))
12	11	adantl 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (1st ‘𝑡):(1...𝑀)⟶(0..^𝐾))
13		xp2nd 7722	. . . . . . . . 9 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd ‘𝑡) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})
14		fvex 6683	. . . . . . . . . 10 ⊢ (2nd ‘𝑡) ∈ V
15		f1oeq1 6604	. . . . . . . . . 10 ⊢ (𝑓 = (2nd ‘𝑡) → (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) ↔ (2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀)))
16	14, 15	elab 3667	. . . . . . . . 9 ⊢ ((2nd ‘𝑡) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ↔ (2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀))
17	13, 16	sylib 220	. . . . . . . 8 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀))
18	17	adantl 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀))
19	2, 4, 6, 8, 12, 18	poimirlem3 34910	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → (⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)) = 0 ∧ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)) = (𝑀 + 1)))))
20		fvex 6683	. . . . . . . . . . . . . . . 16 ⊢ (1st ‘𝑡) ∈ V
21		snex 5332	. . . . . . . . . . . . . . . 16 ⊢ {⟨(𝑀 + 1), 0⟩} ∈ V
22	20, 21	unex 7469	. . . . . . . . . . . . . . 15 ⊢ ((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∈ V
23		snex 5332	. . . . . . . . . . . . . . . 16 ⊢ {⟨(𝑀 + 1), (𝑀 + 1)⟩} ∈ V
24	14, 23	unex 7469	. . . . . . . . . . . . . . 15 ⊢ ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∈ V
25	22, 24	op1std 7699	. . . . . . . . . . . . . 14 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (1st ‘𝑠) = ((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}))
26	22, 24	op2ndd 7700	. . . . . . . . . . . . . . . . 17 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (2nd ‘𝑠) = ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
27	26	imaeq1d 5928	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((2nd ‘𝑠) “ (1...𝑗)) = (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)))
28	27	xpeq1d 5584	. . . . . . . . . . . . . . 15 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((2nd ‘𝑠) “ (1...𝑗)) × {1}) = ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}))
29	26	imaeq1d 5928	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) = (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))))
30	29	xpeq1d 5584	. . . . . . . . . . . . . . 15 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))
31	28, 30	uneq12d 4140	. . . . . . . . . . . . . 14 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})))
32	25, 31	oveq12d 7174	. . . . . . . . . . . . 13 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) = (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))))
33	32	uneq1d 4138	. . . . . . . . . . . 12 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
34	33	csbeq1d 3887	. . . . . . . . . . 11 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
35	34	eqeq2d 2832	. . . . . . . . . 10 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
36	35	rexbidv 3297	. . . . . . . . 9 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
37	36	ralbidv 3197	. . . . . . . 8 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
38	25	fveq1d 6672	. . . . . . . . 9 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((1st ‘𝑠)‘(𝑀 + 1)) = (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)))
39	38	eqeq1d 2823	. . . . . . . 8 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((1st ‘𝑠)‘(𝑀 + 1)) = 0 ↔ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)) = 0))
40	26	fveq1d 6672	. . . . . . . . 9 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((2nd ‘𝑠)‘(𝑀 + 1)) = (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)))
41	40	eqeq1d 2823	. . . . . . . 8 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1) ↔ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)) = (𝑀 + 1)))
42	37, 39, 41	3anbi123d 1432	. . . . . . 7 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)) = 0 ∧ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)) = (𝑀 + 1))))
43	42	elrab 3680	. . . . . 6 ⊢ (⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ↔ (⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)) = 0 ∧ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)) = (𝑀 + 1))))
44	19, 43	syl6ibr 254	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}))
45	44	ralrimiva 3182	. . . 4 ⊢ (𝜑 → ∀𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}))
46		fveq2 6670	. . . . . . . . . . 11 ⊢ (𝑠 = 𝑡 → (1st ‘𝑠) = (1st ‘𝑡))
47		fveq2 6670	. . . . . . . . . . . . . 14 ⊢ (𝑠 = 𝑡 → (2nd ‘𝑠) = (2nd ‘𝑡))
48	47	imaeq1d 5928	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑡 → ((2nd ‘𝑠) “ (1...𝑗)) = ((2nd ‘𝑡) “ (1...𝑗)))
49	48	xpeq1d 5584	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑡 → (((2nd ‘𝑠) “ (1...𝑗)) × {1}) = (((2nd ‘𝑡) “ (1...𝑗)) × {1}))
50	47	imaeq1d 5928	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑡 → ((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) = ((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)))
51	50	xpeq1d 5584	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑡 → (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}) = (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))
52	49, 51	uneq12d 4140	. . . . . . . . . . 11 ⊢ (𝑠 = 𝑡 → ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0})) = ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0})))
53	46, 52	oveq12d 7174	. . . . . . . . . 10 ⊢ (𝑠 = 𝑡 → ((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) = ((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))))
54	53	uneq1d 4138	. . . . . . . . 9 ⊢ (𝑠 = 𝑡 → (((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = (((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})))
55	54	csbeq1d 3887	. . . . . . . 8 ⊢ (𝑠 = 𝑡 → ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
56	55	eqeq2d 2832	. . . . . . 7 ⊢ (𝑠 = 𝑡 → (𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
57	56	rexbidv 3297	. . . . . 6 ⊢ (𝑠 = 𝑡 → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
58	57	ralbidv 3197	. . . . 5 ⊢ (𝑠 = 𝑡 → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
59	58	ralrab 3685	. . . 4 ⊢ (∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ↔ ∀𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}))
60	45, 59	sylibr 236	. . 3 ⊢ (𝜑 → ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
61		xp1st 7721	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (1st ‘𝑘) ∈ ((0..^𝐾) ↑m (1...(𝑀 + 1))))
62		elmapi 8428	. . . . . . . . . . . . . . 15 ⊢ ((1st ‘𝑘) ∈ ((0..^𝐾) ↑m (1...(𝑀 + 1))) → (1st ‘𝑘):(1...(𝑀 + 1))⟶(0..^𝐾))
63	61, 62	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (1st ‘𝑘):(1...(𝑀 + 1))⟶(0..^𝐾))
64		fzssp1 12951	. . . . . . . . . . . . . 14 ⊢ (1...𝑀) ⊆ (1...(𝑀 + 1))
65		fssres 6544	. . . . . . . . . . . . . 14 ⊢ (((1st ‘𝑘):(1...(𝑀 + 1))⟶(0..^𝐾) ∧ (1...𝑀) ⊆ (1...(𝑀 + 1))) → ((1st ‘𝑘) ↾ (1...𝑀)):(1...𝑀)⟶(0..^𝐾))
66	63, 64, 65	sylancl 588	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((1st ‘𝑘) ↾ (1...𝑀)):(1...𝑀)⟶(0..^𝐾))
67		ovex 7189	. . . . . . . . . . . . . 14 ⊢ (0..^𝐾) ∈ V
68		ovex 7189	. . . . . . . . . . . . . 14 ⊢ (1...𝑀) ∈ V
69	67, 68	elmap 8435	. . . . . . . . . . . . 13 ⊢ (((1st ‘𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑m (1...𝑀)) ↔ ((1st ‘𝑘) ↾ (1...𝑀)):(1...𝑀)⟶(0..^𝐾))
70	66, 69	sylibr 236	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((1st ‘𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑m (1...𝑀)))
71	70	ad2antlr 725	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((1st ‘𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑m (1...𝑀)))
72		xp2nd 7722	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd ‘𝑘) ∈ {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})
73		fvex 6683	. . . . . . . . . . . . . . . . . 18 ⊢ (2nd ‘𝑘) ∈ V
74		f1oeq1 6604	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑓 = (2nd ‘𝑘) → (𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) ↔ (2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))))
75	73, 74	elab 3667	. . . . . . . . . . . . . . . . 17 ⊢ ((2nd ‘𝑘) ∈ {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))} ↔ (2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)))
76	72, 75	sylib 220	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)))
77		f1of1 6614	. . . . . . . . . . . . . . . 16 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → (2nd ‘𝑘):(1...(𝑀 + 1))–1-1→(1...(𝑀 + 1)))
78	76, 77	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd ‘𝑘):(1...(𝑀 + 1))–1-1→(1...(𝑀 + 1)))
79		f1ores 6629	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑘):(1...(𝑀 + 1))–1-1→(1...(𝑀 + 1)) ∧ (1...𝑀) ⊆ (1...(𝑀 + 1))) → ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd ‘𝑘) “ (1...𝑀)))
80	78, 64, 79	sylancl 588	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd ‘𝑘) “ (1...𝑀)))
81	80	ad2antlr 725	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd ‘𝑘) “ (1...𝑀)))
82		dff1o3 6621	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) ↔ ((2nd ‘𝑘):(1...(𝑀 + 1))–onto→(1...(𝑀 + 1)) ∧ Fun ◡(2nd ‘𝑘)))
83	82	simprbi 499	. . . . . . . . . . . . . . . . . 18 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → Fun ◡(2nd ‘𝑘))
84		imadif 6438	. . . . . . . . . . . . . . . . . 18 ⊢ (Fun ◡(2nd ‘𝑘) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
85	76, 83, 84	3syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
86	85	ad2antlr 725	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
87		f1ofo 6622	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → (2nd ‘𝑘):(1...(𝑀 + 1))–onto→(1...(𝑀 + 1)))
88		foima 6595	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–onto→(1...(𝑀 + 1)) → ((2nd ‘𝑘) “ (1...(𝑀 + 1))) = (1...(𝑀 + 1)))
89	76, 87, 88	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) “ (1...(𝑀 + 1))) = (1...(𝑀 + 1)))
90	89	ad2antlr 725	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ (1...(𝑀 + 1))) = (1...(𝑀 + 1)))
91		f1ofn 6616	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → (2nd ‘𝑘) Fn (1...(𝑀 + 1)))
92	76, 91	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd ‘𝑘) Fn (1...(𝑀 + 1)))
93		nn0p1nn 11937	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑀 ∈ ℕ0 → (𝑀 + 1) ∈ ℕ)
94	5, 93	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑀 + 1) ∈ ℕ)
95		elfz1end 12938	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑀 + 1) ∈ ℕ ↔ (𝑀 + 1) ∈ (1...(𝑀 + 1)))
96	94, 95	sylib 220	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑀 + 1) ∈ (1...(𝑀 + 1)))
97		fnsnfv 6743	. . . . . . . . . . . . . . . . . . 19 ⊢ (((2nd ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ (1...(𝑀 + 1))) → {((2nd ‘𝑘)‘(𝑀 + 1))} = ((2nd ‘𝑘) “ {(𝑀 + 1)}))
98	92, 96, 97	syl2anr 598	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → {((2nd ‘𝑘)‘(𝑀 + 1))} = ((2nd ‘𝑘) “ {(𝑀 + 1)}))
99		sneq 4577	. . . . . . . . . . . . . . . . . 18 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → {((2nd ‘𝑘)‘(𝑀 + 1))} = {(𝑀 + 1)})
100	98, 99	sylan9req 2877	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ {(𝑀 + 1)}) = {(𝑀 + 1)})
101	90, 100	difeq12d 4100	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})) = ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}))
102	86, 101	eqtrd 2856	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}))
103		1z 12013	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 1 ∈ ℤ
104		nn0uz 12281	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ℕ0 = (ℤ≥‘0)
105		1m1e0 11710	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (1 − 1) = 0
106	105	fveq2i 6673	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (ℤ≥‘(1 − 1)) = (ℤ≥‘0)
107	104, 106	eqtr4i 2847	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ℕ0 = (ℤ≥‘(1 − 1))
108	5, 107	eleqtrdi 2923	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑀 ∈ (ℤ≥‘(1 − 1)))
109		fzsuc2 12966	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((1 ∈ ℤ ∧ 𝑀 ∈ (ℤ≥‘(1 − 1))) → (1...(𝑀 + 1)) = ((1...𝑀) ∪ {(𝑀 + 1)}))
110	103, 108, 109	sylancr 589	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (1...(𝑀 + 1)) = ((1...𝑀) ∪ {(𝑀 + 1)}))
111	110	difeq1d 4098	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (((1...𝑀) ∪ {(𝑀 + 1)}) ∖ {(𝑀 + 1)}))
112		difun2 4429	. . . . . . . . . . . . . . . . . . 19 ⊢ (((1...𝑀) ∪ {(𝑀 + 1)}) ∖ {(𝑀 + 1)}) = ((1...𝑀) ∖ {(𝑀 + 1)})
113	111, 112	syl6eq 2872	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = ((1...𝑀) ∖ {(𝑀 + 1)}))
114	5	nn0red 11957	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑀 ∈ ℝ)
115		ltp1 11480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑀 ∈ ℝ → 𝑀 < (𝑀 + 1))
116		peano2re 10813	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑀 ∈ ℝ → (𝑀 + 1) ∈ ℝ)
117		ltnle 10720	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑀 ∈ ℝ ∧ (𝑀 + 1) ∈ ℝ) → (𝑀 < (𝑀 + 1) ↔ ¬ (𝑀 + 1) ≤ 𝑀))
118	116, 117	mpdan 685	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑀 ∈ ℝ → (𝑀 < (𝑀 + 1) ↔ ¬ (𝑀 + 1) ≤ 𝑀))
119	115, 118	mpbid 234	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑀 ∈ ℝ → ¬ (𝑀 + 1) ≤ 𝑀)
120	114, 119	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ¬ (𝑀 + 1) ≤ 𝑀)
121		elfzle2 12912	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑀 + 1) ∈ (1...𝑀) → (𝑀 + 1) ≤ 𝑀)
122	120, 121	nsyl 142	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ¬ (𝑀 + 1) ∈ (1...𝑀))
123		difsn 4731	. . . . . . . . . . . . . . . . . . 19 ⊢ (¬ (𝑀 + 1) ∈ (1...𝑀) → ((1...𝑀) ∖ {(𝑀 + 1)}) = (1...𝑀))
124	122, 123	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((1...𝑀) ∖ {(𝑀 + 1)}) = (1...𝑀))
125	113, 124	eqtrd 2856	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (1...𝑀))
126	125	imaeq2d 5929	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) “ (1...𝑀)))
127	126	ad2antrr 724	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) “ (1...𝑀)))
128	125	ad2antrr 724	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (1...𝑀))
129	102, 127, 128	3eqtr3d 2864	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ (1...𝑀)) = (1...𝑀))
130		f1oeq3 6606	. . . . . . . . . . . . . 14 ⊢ (((2nd ‘𝑘) “ (1...𝑀)) = (1...𝑀) → (((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd ‘𝑘) “ (1...𝑀)) ↔ ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀)))
131	129, 130	syl 17	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd ‘𝑘) “ (1...𝑀)) ↔ ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀)))
132	81, 131	mpbid 234	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀))
133	73	resex 5899	. . . . . . . . . . . . 13 ⊢ ((2nd ‘𝑘) ↾ (1...𝑀)) ∈ V
134		f1oeq1 6604	. . . . . . . . . . . . 13 ⊢ (𝑓 = ((2nd ‘𝑘) ↾ (1...𝑀)) → (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) ↔ ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀)))
135	133, 134	elab 3667	. . . . . . . . . . . 12 ⊢ (((2nd ‘𝑘) ↾ (1...𝑀)) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ↔ ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀))
136	132, 135	sylibr 236	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) ↾ (1...𝑀)) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})
137		opelxpi 5592	. . . . . . . . . . 11 ⊢ ((((1st ‘𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑m (1...𝑀)) ∧ ((2nd ‘𝑘) ↾ (1...𝑀)) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
138	71, 136, 137	syl2anc 586	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
139	138	3ad2antr3 1186	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
140		3anass 1091	. . . . . . . . . . 11 ⊢ ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))))
141		ancom 463	. . . . . . . . . . 11 ⊢ ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ↔ ((((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
142	140, 141	bitri 277	. . . . . . . . . 10 ⊢ ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ ((((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
143	94	nnzd 12087	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (𝑀 + 1) ∈ ℤ)
144		uzid 12259	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑀 + 1) ∈ ℤ → (𝑀 + 1) ∈ (ℤ≥‘(𝑀 + 1)))
145		peano2uz 12302	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑀 + 1) ∈ (ℤ≥‘(𝑀 + 1)) → ((𝑀 + 1) + 1) ∈ (ℤ≥‘(𝑀 + 1)))
146	143, 144, 145	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((𝑀 + 1) + 1) ∈ (ℤ≥‘(𝑀 + 1)))
147	5	nn0zd 12086	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → 𝑀 ∈ ℤ)
148	1	nnzd 12087	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → 𝑁 ∈ ℤ)
149		zltp1le 12033	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 < 𝑁 ↔ (𝑀 + 1) ≤ 𝑁))
150		peano2z 12024	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑀 ∈ ℤ → (𝑀 + 1) ∈ ℤ)
151		eluz 12258	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑀 + 1) ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑁 ∈ (ℤ≥‘(𝑀 + 1)) ↔ (𝑀 + 1) ≤ 𝑁))
152	150, 151	sylan 582	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑁 ∈ (ℤ≥‘(𝑀 + 1)) ↔ (𝑀 + 1) ≤ 𝑁))
153	149, 152	bitr4d 284	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 < 𝑁 ↔ 𝑁 ∈ (ℤ≥‘(𝑀 + 1))))
154	147, 148, 153	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (𝑀 < 𝑁 ↔ 𝑁 ∈ (ℤ≥‘(𝑀 + 1))))
155	7, 154	mpbid 234	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝑁 ∈ (ℤ≥‘(𝑀 + 1)))
156		fzsplit2 12933	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝑀 + 1) + 1) ∈ (ℤ≥‘(𝑀 + 1)) ∧ 𝑁 ∈ (ℤ≥‘(𝑀 + 1))) → ((𝑀 + 1)...𝑁) = (((𝑀 + 1)...(𝑀 + 1)) ∪ (((𝑀 + 1) + 1)...𝑁)))
157	146, 155, 156	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((𝑀 + 1)...𝑁) = (((𝑀 + 1)...(𝑀 + 1)) ∪ (((𝑀 + 1) + 1)...𝑁)))
158		fzsn 12950	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑀 + 1) ∈ ℤ → ((𝑀 + 1)...(𝑀 + 1)) = {(𝑀 + 1)})
159	143, 158	syl 17	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((𝑀 + 1)...(𝑀 + 1)) = {(𝑀 + 1)})
160	159	uneq1d 4138	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (((𝑀 + 1)...(𝑀 + 1)) ∪ (((𝑀 + 1) + 1)...𝑁)) = ({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)))
161	157, 160	eqtrd 2856	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((𝑀 + 1)...𝑁) = ({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)))
162	161	xpeq1d 5584	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝑀 + 1)...𝑁) × {0}) = (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0}))
163	162	uneq2d 4139	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0})))
164		xpundir 5621	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0}) = (({(𝑀 + 1)} × {0}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0}))
165		ovex 7189	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑀 + 1) ∈ V
166		c0ex 10635	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ 0 ∈ V
167	165, 166	xpsn 6903	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ({(𝑀 + 1)} × {0}) = {⟨(𝑀 + 1), 0⟩}
168	167	uneq1i 4135	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (({(𝑀 + 1)} × {0}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ({⟨(𝑀 + 1), 0⟩} ∪ ((((𝑀 + 1) + 1)...𝑁) × {0}))
169	164, 168	eqtri 2844	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0}) = ({⟨(𝑀 + 1), 0⟩} ∪ ((((𝑀 + 1) + 1)...𝑁) × {0}))
170	169	uneq2i 4136	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0})) = ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ({⟨(𝑀 + 1), 0⟩} ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
171		unass 4142	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ {⟨(𝑀 + 1), 0⟩}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ({⟨(𝑀 + 1), 0⟩} ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
172	170, 171	eqtr4i 2847	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0})) = (((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ {⟨(𝑀 + 1), 0⟩}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0}))
173	163, 172	syl6eq 2872	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})) = (((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ {⟨(𝑀 + 1), 0⟩}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
174	173	ad3antrrr 728	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})) = (((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ {⟨(𝑀 + 1), 0⟩}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
175	165	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑀 + 1) ∈ V)
176	166	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → 0 ∈ V)
177	110	eqcomd 2827	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((1...𝑀) ∪ {(𝑀 + 1)}) = (1...(𝑀 + 1)))
178	177	ad3antrrr 728	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((1...𝑀) ∪ {(𝑀 + 1)}) = (1...(𝑀 + 1)))
179		fveq2 6670	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 = (𝑀 + 1) → ((1st ‘𝑘)‘𝑛) = ((1st ‘𝑘)‘(𝑀 + 1)))
180		fveq2 6670	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 = (𝑀 + 1) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)))
181	179, 180	oveq12d 7174	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 = (𝑀 + 1) → (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛)) = (((1st ‘𝑘)‘(𝑀 + 1)) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1))))
182		simplrl 775	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((1st ‘𝑘)‘(𝑀 + 1)) = 0)
183		imain 6439	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (Fun ◡(2nd ‘𝑘) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
184	76, 83, 183	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
185	184	ad2antlr 725	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
186		elfznn0 13001	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℕ0)
187	186	nn0red 11957	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℝ)
188	187	ltp1d 11570	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ (0...𝑀) → 𝑗 < (𝑗 + 1))
189		fzdisj 12935	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 < (𝑗 + 1) → ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1))) = ∅)
190	188, 189	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1))) = ∅)
191	190	imaeq2d 5929	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = ((2nd ‘𝑘) “ ∅))
192		ima0 5945	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((2nd ‘𝑘) “ ∅) = ∅
193	191, 192	syl6eq 2872	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = ∅)
194	185, 193	sylan9req 2877	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ∅)
195		simplr 767	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))
196	92	ad2antlr 725	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (2nd ‘𝑘) Fn (1...(𝑀 + 1)))
197		nn0p1nn 11937	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑗 ∈ ℕ0 → (𝑗 + 1) ∈ ℕ)
198		nnuz 12282	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ℕ = (ℤ≥‘1)
199	197, 198	eleqtrdi 2923	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ ℕ0 → (𝑗 + 1) ∈ (ℤ≥‘1))
200		fzss1 12947	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑗 + 1) ∈ (ℤ≥‘1) → ((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)))
201	186, 199, 200	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → ((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)))
202		elfzuz3 12906	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ (0...𝑀) → 𝑀 ∈ (ℤ≥‘𝑗))
203		eluzp1p1 12271	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑀 ∈ (ℤ≥‘𝑗) → (𝑀 + 1) ∈ (ℤ≥‘(𝑗 + 1)))
204		eluzfz2 12916	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑀 + 1) ∈ (ℤ≥‘(𝑗 + 1)) → (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1)))
205	202, 203, 204	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1)))
206	201, 205	jca 514	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 ∈ (0...𝑀) → (((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1))))
207		fnfvima 6995	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((2nd ‘𝑘) Fn (1...(𝑀 + 1)) ∧ ((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1))) → ((2nd ‘𝑘)‘(𝑀 + 1)) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
208	207	3expb 1116	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((2nd ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1)))) → ((2nd ‘𝑘)‘(𝑀 + 1)) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
209	196, 206, 208	syl2an 597	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd ‘𝑘)‘(𝑀 + 1)) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
210	195, 209	eqeltrrd 2914	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (𝑀 + 1) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
211		1ex 10637	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ 1 ∈ V
212		fnconstg 6567	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (1 ∈ V → (((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗)))
213	211, 212	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗))
214		fnconstg 6567	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (0 ∈ V → (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
215	166, 214	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))
216		fvun2 6755	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗)) ∧ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) ∧ ((((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ∅ ∧ (𝑀 + 1) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)))
217	213, 215, 216	mp3an12 1447	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ∅ ∧ (𝑀 + 1) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)))
218	194, 210, 217	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)))
219	166	fvconst2 6966	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑀 + 1) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) → ((((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)) = 0)
220	210, 219	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)) = 0)
221	218, 220	eqtrd 2856	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)) = 0)
222	221	adantlrl 718	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)) = 0)
223	182, 222	oveq12d 7174	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘)‘(𝑀 + 1)) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1))) = (0 + 0))
224		00id 10815	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0 + 0) = 0
225	223, 224	syl6eq 2872	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘)‘(𝑀 + 1)) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1))) = 0)
226	181, 225	sylan9eqr 2878	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 = (𝑀 + 1)) → (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛)) = 0)
227	175, 176, 178, 226	fmptapd 6933	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ {⟨(𝑀 + 1), 0⟩}) = (𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))))
228	227	uneq1d 4138	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ {⟨(𝑀 + 1), 0⟩}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
229	174, 228	eqtrd 2856	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
230		elmapfn 8429	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((1st ‘𝑘) ∈ ((0..^𝐾) ↑m (1...(𝑀 + 1))) → (1st ‘𝑘) Fn (1...(𝑀 + 1)))
231	61, 230	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (1st ‘𝑘) Fn (1...(𝑀 + 1)))
232		fnssres 6470	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((1st ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (1...𝑀) ⊆ (1...(𝑀 + 1))) → ((1st ‘𝑘) ↾ (1...𝑀)) Fn (1...𝑀))
233	231, 64, 232	sylancl 588	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((1st ‘𝑘) ↾ (1...𝑀)) Fn (1...𝑀))
234	233	ad3antlr 729	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1st ‘𝑘) ↾ (1...𝑀)) Fn (1...𝑀))
235		simplr 767	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}))
236		fnconstg 6567	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (0 ∈ V → (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
237	166, 236	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))
238	213, 237	pm3.2i 473	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗)) ∧ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
239		imain 6439	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (Fun ◡(2nd ‘𝑘) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
240	76, 83, 239	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
241		fzdisj 12935	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 < (𝑗 + 1) → ((1...𝑗) ∩ ((𝑗 + 1)...𝑀)) = ∅)
242	188, 241	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑗 ∈ (0...𝑀) → ((1...𝑗) ∩ ((𝑗 + 1)...𝑀)) = ∅)
243	242	imaeq2d 5929	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = ((2nd ‘𝑘) “ ∅))
244	243, 192	syl6eq 2872	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = ∅)
245	240, 244	sylan9req 2877	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))) = ∅)
246		fnun 6463	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗)) ∧ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))) ∧ (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))) = ∅) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
247	238, 245, 246	sylancr 589	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
248	235, 247	sylan 582	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
249	101	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})) = ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}))
250	85	ad3antlr 729	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
251	186, 197	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ ℕ)
252	251, 198	eleqtrdi 2923	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ (ℤ≥‘1))
253		fzsplit2 12933	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝑗 + 1) ∈ (ℤ≥‘1) ∧ 𝑀 ∈ (ℤ≥‘𝑗)) → (1...𝑀) = ((1...𝑗) ∪ ((𝑗 + 1)...𝑀)))
254	252, 202, 253	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 ∈ (0...𝑀) → (1...𝑀) = ((1...𝑗) ∪ ((𝑗 + 1)...𝑀)))
255	128, 254	sylan9eq 2876	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = ((1...𝑗) ∪ ((𝑗 + 1)...𝑀)))
256	255	imaeq2d 5929	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))))
257	250, 256	eqtr3d 2858	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})) = ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))))
258	125	ad3antrrr 728	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (1...𝑀))
259	249, 257, 258	3eqtr3rd 2865	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (1...𝑀) = ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))))
260		imaundi 6008	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))) = (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
261	259, 260	syl6eq 2872	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (1...𝑀) = (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
262	261	fneq2d 6447	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀) ↔ ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))))
263	248, 262	mpbird 259	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀))
264		fzss2 12948	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑀 ∈ (ℤ≥‘𝑗) → (1...𝑗) ⊆ (1...𝑀))
265		resima2 5888	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((1...𝑗) ⊆ (1...𝑀) → (((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) = ((2nd ‘𝑘) “ (1...𝑗)))
266	202, 264, 265	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) = ((2nd ‘𝑘) “ (1...𝑗)))
267	266	xpeq1d 5584	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑗 ∈ (0...𝑀) → ((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) = (((2nd ‘𝑘) “ (1...𝑗)) × {1}))
268	186, 199	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ (ℤ≥‘1))
269		fzss1 12947	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑗 + 1) ∈ (ℤ≥‘1) → ((𝑗 + 1)...𝑀) ⊆ (1...𝑀))
270		resima2 5888	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝑗 + 1)...𝑀) ⊆ (1...𝑀) → (((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) = ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
271	268, 269, 270	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) = ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
272	271	xpeq1d 5584	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑗 ∈ (0...𝑀) → ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}) = (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))
273	267, 272	uneq12d 4140	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑗 ∈ (0...𝑀) → (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})))
274	273	adantl 484	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})))
275	274	fneq1d 6446	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀) ↔ ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀)))
276	263, 275	mpbird 259	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀))
277		fzfid 13342	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (1...𝑀) ∈ Fin)
278		inidm 4195	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((1...𝑀) ∩ (1...𝑀)) = (1...𝑀)
279		fvres 6689	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ (1...𝑀) → (((1st ‘𝑘) ↾ (1...𝑀))‘𝑛) = ((1st ‘𝑘)‘𝑛))
280	279	adantl 484	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → (((1st ‘𝑘) ↾ (1...𝑀))‘𝑛) = ((1st ‘𝑘)‘𝑛))
281		disjsn 4647	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((1...𝑀) ∩ {(𝑀 + 1)}) = ∅ ↔ ¬ (𝑀 + 1) ∈ (1...𝑀))
282	122, 281	sylibr 236	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((1...𝑀) ∩ {(𝑀 + 1)}) = ∅)
283	282	ad3antrrr 728	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1...𝑀) ∩ {(𝑀 + 1)}) = ∅)
284	263, 283	jca 514	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀) ∧ ((1...𝑀) ∩ {(𝑀 + 1)}) = ∅))
285		fnconstg 6567	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (0 ∈ V → ({(𝑀 + 1)} × {0}) Fn {(𝑀 + 1)})
286	166, 285	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ({(𝑀 + 1)} × {0}) Fn {(𝑀 + 1)}
287		fvun1 6754	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀) ∧ ({(𝑀 + 1)} × {0}) Fn {(𝑀 + 1)} ∧ (((1...𝑀) ∩ {(𝑀 + 1)}) = ∅ ∧ 𝑛 ∈ (1...𝑀))) → ((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛))
288	286, 287	mp3an2 1445	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀) ∧ (((1...𝑀) ∩ {(𝑀 + 1)}) = ∅ ∧ 𝑛 ∈ (1...𝑀))) → ((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛))
289	288	anassrs 470	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀) ∧ ((1...𝑀) ∩ {(𝑀 + 1)}) = ∅) ∧ 𝑛 ∈ (1...𝑀)) → ((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛))
290	284, 289	sylan 582	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → ((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛))
291	251	nnzd 12087	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ ℤ)
292	186	nn0cnd 11958	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℂ)
293		pncan1 11064	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑗 ∈ ℂ → ((𝑗 + 1) − 1) = 𝑗)
294	292, 293	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝑗 ∈ (0...𝑀) → ((𝑗 + 1) − 1) = 𝑗)
295	294	fveq2d 6674	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑗 ∈ (0...𝑀) → (ℤ≥‘((𝑗 + 1) − 1)) = (ℤ≥‘𝑗))
296	202, 295	eleqtrrd 2916	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑗 ∈ (0...𝑀) → 𝑀 ∈ (ℤ≥‘((𝑗 + 1) − 1)))
297		fzsuc2 12966	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((𝑗 + 1) ∈ ℤ ∧ 𝑀 ∈ (ℤ≥‘((𝑗 + 1) − 1))) → ((𝑗 + 1)...(𝑀 + 1)) = (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)}))
298	291, 296, 297	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑗 ∈ (0...𝑀) → ((𝑗 + 1)...(𝑀 + 1)) = (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)}))
299	298	imaeq2d 5929	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) = ((2nd ‘𝑘) “ (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)})))
300		imaundi 6008	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((2nd ‘𝑘) “ (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd ‘𝑘) “ {(𝑀 + 1)}))
301	299, 300	syl6eq 2872	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) = (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
302	301	xpeq1d 5584	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd ‘𝑘) “ {(𝑀 + 1)})) × {0}))
303		xpundir 5621	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd ‘𝑘) “ {(𝑀 + 1)})) × {0}) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0}))
304	302, 303	syl6eq 2872	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
305	304	uneq2d 4139	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 ∈ (0...𝑀) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0}))))
306		unass 4142	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
307	305, 306	syl6eqr 2874	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑗 ∈ (0...𝑀) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
308	307	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
309	98	xpeq1d 5584	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0}) = (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0}))
310	309	uneq2d 4139	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
311	310	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
312	308, 311	eqtr4d 2859	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0})))
313	99	xpeq1d 5584	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0}) = ({(𝑀 + 1)} × {0}))
314	313	uneq2d 4139	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0})))
315	312, 314	sylan9eq 2876	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ 𝑗 ∈ (0...𝑀)) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0})))
316	315	an32s 650	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0})))
317	316	fveq1d 6672	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛) = ((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0}))‘𝑛))
318	317	adantr 483	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛) = ((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0}))‘𝑛))
319	273	fveq1d 6672	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑗 ∈ (0...𝑀) → ((((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛))
320	319	ad2antlr 725	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → ((((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛))
321	290, 318, 320	3eqtr4rd 2867	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → ((((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))
322	234, 276, 277, 277, 278, 280, 321	offval 7416	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) = (𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))))
323	322	uneq1d 4138	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})))
324	323	adantlrl 718	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})))
325		simplr 767	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}))
326	231	adantr 483	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (1st ‘𝑘) Fn (1...(𝑀 + 1)))
327	213, 215	pm3.2i 473	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗)) ∧ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
328	184, 193	sylan9req 2877	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ∅)
329		fnun 6463	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗)) ∧ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) ∧ (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ∅) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
330	327, 328, 329	sylancr 589	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
331		peano2uz 12302	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑀 ∈ (ℤ≥‘𝑗) → (𝑀 + 1) ∈ (ℤ≥‘𝑗))
332	202, 331	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑗 ∈ (0...𝑀) → (𝑀 + 1) ∈ (ℤ≥‘𝑗))
333		fzsplit2 12933	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝑗 + 1) ∈ (ℤ≥‘1) ∧ (𝑀 + 1) ∈ (ℤ≥‘𝑗)) → (1...(𝑀 + 1)) = ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1))))
334	268, 332, 333	syl2anc 586	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑗 ∈ (0...𝑀) → (1...(𝑀 + 1)) = ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1))))
335	334	imaeq2d 5929	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ (1...(𝑀 + 1))) = ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1)))))
336		imaundi 6008	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
337	335, 336	syl6req 2873	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ((2nd ‘𝑘) “ (1...(𝑀 + 1))))
338	337, 89	sylan9eqr 2878	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = (1...(𝑀 + 1)))
339	338	fneq2d 6447	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) ↔ ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (1...(𝑀 + 1))))
340	330, 339	mpbid 234	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (1...(𝑀 + 1)))
341		fzfid 13342	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (1...(𝑀 + 1)) ∈ Fin)
342		inidm 4195	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((1...(𝑀 + 1)) ∩ (1...(𝑀 + 1))) = (1...(𝑀 + 1))
343		eqidd 2822	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...(𝑀 + 1))) → ((1st ‘𝑘)‘𝑛) = ((1st ‘𝑘)‘𝑛))
344		eqidd 2822	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...(𝑀 + 1))) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))
345	326, 340, 341, 341, 342, 343, 344	offval 7416	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) = (𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))))
346	345	uneq1d 4138	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
347	325, 346	sylan 582	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
348	229, 324, 347	3eqtr4rd 2867	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})))
349	348	csbeq1d 3887	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
350	349	eqeq2d 2832	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
351	350	rexbidva 3296	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
352	351	ralbidv 3197	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
353	352	biimpd 231	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
354	353	impr 457	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵)) → ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
355	142, 354	sylan2b 595	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
356		1st2nd2 7728	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → 𝑘 = ⟨(1st ‘𝑘), (2nd ‘𝑘)⟩)
357	356	ad2antlr 725	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → 𝑘 = ⟨(1st ‘𝑘), (2nd ‘𝑘)⟩)
358		fnsnsplit 6946	. . . . . . . . . . . . . . . 16 ⊢ (((1st ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ (1...(𝑀 + 1))) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩}))
359	231, 96, 358	syl2anr 598	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩}))
360	359	adantr 483	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩}))
361	125	reseq2d 5853	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1st ‘𝑘) ↾ (1...𝑀)))
362	361	adantr 483	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1st ‘𝑘) ↾ (1...𝑀)))
363		opeq2 4804	. . . . . . . . . . . . . . . 16 ⊢ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 → ⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩ = ⟨(𝑀 + 1), 0⟩)
364	363	sneqd 4579	. . . . . . . . . . . . . . 15 ⊢ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 → {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), 0⟩})
365		uneq12 4134	. . . . . . . . . . . . . . 15 ⊢ ((((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1st ‘𝑘) ↾ (1...𝑀)) ∧ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), 0⟩}) → (((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩}) = (((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
366	362, 364, 365	syl2an 597	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0) → (((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩}) = (((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
367	360, 366	eqtrd 2856	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
368	367	adantrr 715	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
369		fnsnsplit 6946	. . . . . . . . . . . . . . . 16 ⊢ (((2nd ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ (1...(𝑀 + 1))) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩}))
370	92, 96, 369	syl2anr 598	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩}))
371	370	adantr 483	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩}))
372	125	reseq2d 5853	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) ↾ (1...𝑀)))
373	372	adantr 483	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) ↾ (1...𝑀)))
374		opeq2 4804	. . . . . . . . . . . . . . . 16 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → ⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩ = ⟨(𝑀 + 1), (𝑀 + 1)⟩)
375	374	sneqd 4579	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), (𝑀 + 1)⟩})
376		uneq12 4134	. . . . . . . . . . . . . . 15 ⊢ ((((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) ↾ (1...𝑀)) ∧ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), (𝑀 + 1)⟩}) → (((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩}) = (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
377	373, 375, 376	syl2an 597	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩}) = (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
378	371, 377	eqtrd 2856	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
379	378	adantrl 714	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
380	368, 379	opeq12d 4811	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ⟨(1st ‘𝑘), (2nd ‘𝑘)⟩ = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
381	357, 380	eqtrd 2856	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → 𝑘 = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
382	381	3adantr1 1165	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → 𝑘 = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
383		fvex 6683	. . . . . . . . . . . . . . . . . . 19 ⊢ (1st ‘𝑘) ∈ V
384	383	resex 5899	. . . . . . . . . . . . . . . . . 18 ⊢ ((1st ‘𝑘) ↾ (1...𝑀)) ∈ V
385	384, 133	op1std 7699	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (1st ‘𝑡) = ((1st ‘𝑘) ↾ (1...𝑀)))
386	384, 133	op2ndd 7700	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (2nd ‘𝑡) = ((2nd ‘𝑘) ↾ (1...𝑀)))
387	386	imaeq1d 5928	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((2nd ‘𝑡) “ (1...𝑗)) = (((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)))
388	387	xpeq1d 5584	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (((2nd ‘𝑡) “ (1...𝑗)) × {1}) = ((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}))
389	386	imaeq1d 5928	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) = (((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)))
390	389	xpeq1d 5584	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}) = ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))
391	388, 390	uneq12d 4140	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0})) = (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})))
392	385, 391	oveq12d 7174	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) = (((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))))
393	392	uneq1d 4138	. . . . . . . . . . . . . . 15 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})))
394	393	csbeq1d 3887	. . . . . . . . . . . . . 14 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
395	394	eqeq2d 2832	. . . . . . . . . . . . 13 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
396	395	rexbidv 3297	. . . . . . . . . . . 12 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
397	396	ralbidv 3197	. . . . . . . . . . 11 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
398	385	uneq1d 4138	. . . . . . . . . . . . 13 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = (((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
399	386	uneq1d 4138	. . . . . . . . . . . . 13 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
400	398, 399	opeq12d 4811	. . . . . . . . . . . 12 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
401	400	eqeq2d 2832	. . . . . . . . . . 11 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ 𝑘 = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
402	397, 401	anbi12d 632	. . . . . . . . . 10 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)))
403	402	rspcev 3623	. . . . . . . . 9 ⊢ ((⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)) → ∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
404	139, 355, 382, 403	syl12anc 834	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
405	404	ex 415	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)))
406		elrabi 3675	. . . . . . . . . . 11 ⊢ (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} → 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
407		elrabi 3675	. . . . . . . . . . 11 ⊢ (𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} → 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
408	406, 407	anim12i 614	. . . . . . . . . 10 ⊢ ((𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ∧ 𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}) → (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})))
409		eqtr2 2842	. . . . . . . . . . . 12 ⊢ ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
410	22, 24	opth 5368	. . . . . . . . . . . . 13 ⊢ (⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})))
411		difeq1 4092	. . . . . . . . . . . . . . 15 ⊢ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) → (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}) = (((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}))
412		difun2 4429	. . . . . . . . . . . . . . 15 ⊢ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩})
413		difun2 4429	. . . . . . . . . . . . . . 15 ⊢ (((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩})
414	411, 412, 413	3eqtr3g 2879	. . . . . . . . . . . . . 14 ⊢ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) → ((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}))
415		difeq1 4092	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) → (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
416		difun2 4429	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})
417		difun2 4429	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})
418	415, 416, 417	3eqtr3g 2879	. . . . . . . . . . . . . 14 ⊢ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) → ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
419	414, 418	anim12i 614	. . . . . . . . . . . . 13 ⊢ ((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})) → (((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})))
420	410, 419	sylbi 219	. . . . . . . . . . . 12 ⊢ (⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})))
421	409, 420	syl 17	. . . . . . . . . . 11 ⊢ ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → (((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})))
422		elmapfn 8429	. . . . . . . . . . . . . . . . . . 19 ⊢ ((1st ‘𝑡) ∈ ((0..^𝐾) ↑m (1...𝑀)) → (1st ‘𝑡) Fn (1...𝑀))
423		fnop 6460	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((1st ‘𝑡) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡)) → (𝑀 + 1) ∈ (1...𝑀))
424	423	ex 415	. . . . . . . . . . . . . . . . . . 19 ⊢ ((1st ‘𝑡) Fn (1...𝑀) → (⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
425	9, 422, 424	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
426	425, 122	nsyli 160	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡)))
427	426	impcom 410	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡))
428		difsn 4731	. . . . . . . . . . . . . . . 16 ⊢ (¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡) → ((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st ‘𝑡))
429	427, 428	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st ‘𝑡))
430		xp1st 7721	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (1st ‘𝑛) ∈ ((0..^𝐾) ↑m (1...𝑀)))
431		elmapfn 8429	. . . . . . . . . . . . . . . . . . 19 ⊢ ((1st ‘𝑛) ∈ ((0..^𝐾) ↑m (1...𝑀)) → (1st ‘𝑛) Fn (1...𝑀))
432		fnop 6460	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((1st ‘𝑛) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛)) → (𝑀 + 1) ∈ (1...𝑀))
433	432	ex 415	. . . . . . . . . . . . . . . . . . 19 ⊢ ((1st ‘𝑛) Fn (1...𝑀) → (⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
434	430, 431, 433	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
435	434, 122	nsyli 160	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛)))
436	435	impcom 410	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛))
437		difsn 4731	. . . . . . . . . . . . . . . 16 ⊢ (¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛) → ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st ‘𝑛))
438	436, 437	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st ‘𝑛))
439	429, 438	eqeqan12d 2838	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) ∧ (𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ↔ (1st ‘𝑡) = (1st ‘𝑛)))
440	439	anandis 676	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ↔ (1st ‘𝑡) = (1st ‘𝑛)))
441		f1ofn 6616	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀) → (2nd ‘𝑡) Fn (1...𝑀))
442		fnop 6460	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((2nd ‘𝑡) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡)) → (𝑀 + 1) ∈ (1...𝑀))
443	442	ex 415	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑡) Fn (1...𝑀) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
444	17, 441, 443	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
445	444, 122	nsyli 160	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡)))
446	445	impcom 410	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡))
447		difsn 4731	. . . . . . . . . . . . . . . 16 ⊢ (¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡) → ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd ‘𝑡))
448	446, 447	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd ‘𝑡))
449		xp2nd 7722	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd ‘𝑛) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})
450		fvex 6683	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (2nd ‘𝑛) ∈ V
451		f1oeq1 6604	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑓 = (2nd ‘𝑛) → (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) ↔ (2nd ‘𝑛):(1...𝑀)–1-1-onto→(1...𝑀)))
452	450, 451	elab 3667	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((2nd ‘𝑛) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ↔ (2nd ‘𝑛):(1...𝑀)–1-1-onto→(1...𝑀))
453	449, 452	sylib 220	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd ‘𝑛):(1...𝑀)–1-1-onto→(1...𝑀))
454		f1ofn 6616	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑛):(1...𝑀)–1-1-onto→(1...𝑀) → (2nd ‘𝑛) Fn (1...𝑀))
455		fnop 6460	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((2nd ‘𝑛) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛)) → (𝑀 + 1) ∈ (1...𝑀))
456	455	ex 415	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑛) Fn (1...𝑀) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
457	453, 454, 456	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
458	457, 122	nsyli 160	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛)))
459	458	impcom 410	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛))
460		difsn 4731	. . . . . . . . . . . . . . . 16 ⊢ (¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛) → ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd ‘𝑛))
461	459, 460	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd ‘𝑛))
462	448, 461	eqeqan12d 2838	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) ∧ (𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ↔ (2nd ‘𝑡) = (2nd ‘𝑛)))
463	462	anandis 676	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ↔ (2nd ‘𝑡) = (2nd ‘𝑛)))
464	440, 463	anbi12d 632	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → ((((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})) ↔ ((1st ‘𝑡) = (1st ‘𝑛) ∧ (2nd ‘𝑡) = (2nd ‘𝑛))))
465		xpopth 7730	. . . . . . . . . . . . 13 ⊢ ((𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (((1st ‘𝑡) = (1st ‘𝑛) ∧ (2nd ‘𝑡) = (2nd ‘𝑛)) ↔ 𝑡 = 𝑛))
466	465	adantl 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((1st ‘𝑡) = (1st ‘𝑛) ∧ (2nd ‘𝑡) = (2nd ‘𝑛)) ↔ 𝑡 = 𝑛))
467	464, 466	bitrd 281	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → ((((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})) ↔ 𝑡 = 𝑛))
468	421, 467	syl5ib 246	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
469	408, 468	sylan2 594	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ∧ 𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵})) → ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
470	469	ralrimivva 3191	. . . . . . . 8 ⊢ (𝜑 → ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
471	470	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
472	405, 471	jctird 529	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))))
473		fveq2 6670	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑛 → (1st ‘𝑡) = (1st ‘𝑛))
474	473	uneq1d 4138	. . . . . . . . . 10 ⊢ (𝑡 = 𝑛 → ((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}))
475		fveq2 6670	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑛 → (2nd ‘𝑡) = (2nd ‘𝑛))
476	475	uneq1d 4138	. . . . . . . . . 10 ⊢ (𝑡 = 𝑛 → ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
477	474, 476	opeq12d 4811	. . . . . . . . 9 ⊢ (𝑡 = 𝑛 → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
478	477	eqeq2d 2832	. . . . . . . 8 ⊢ (𝑡 = 𝑛 → (𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
479	478	reu4 3722	. . . . . . 7 ⊢ (∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ (∃𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)))
480	58	rexrab 3687	. . . . . . . 8 ⊢ (∃𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ ∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
481	480	anbi1i 625	. . . . . . 7 ⊢ ((∃𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)) ↔ (∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)))
482	479, 481	bitri 277	. . . . . 6 ⊢ (∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ (∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)))
483	472, 482	syl6ibr 254	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
484	483	ralrimiva 3182	. . . 4 ⊢ (𝜑 → ∀𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
485		fveq2 6670	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑘 → (1st ‘𝑠) = (1st ‘𝑘))
486		fveq2 6670	. . . . . . . . . . . . . . 15 ⊢ (𝑠 = 𝑘 → (2nd ‘𝑠) = (2nd ‘𝑘))
487	486	imaeq1d 5928	. . . . . . . . . . . . . 14 ⊢ (𝑠 = 𝑘 → ((2nd ‘𝑠) “ (1...𝑗)) = ((2nd ‘𝑘) “ (1...𝑗)))
488	487	xpeq1d 5584	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑘 → (((2nd ‘𝑠) “ (1...𝑗)) × {1}) = (((2nd ‘𝑘) “ (1...𝑗)) × {1}))
489	486	imaeq1d 5928	. . . . . . . . . . . . . 14 ⊢ (𝑠 = 𝑘 → ((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) = ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
490	489	xpeq1d 5584	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑘 → (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))
491	488, 490	uneq12d 4140	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑘 → ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})))
492	485, 491	oveq12d 7174	. . . . . . . . . . 11 ⊢ (𝑠 = 𝑘 → ((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) = ((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))))
493	492	uneq1d 4138	. . . . . . . . . 10 ⊢ (𝑠 = 𝑘 → (((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = (((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
494	493	csbeq1d 3887	. . . . . . . . 9 ⊢ (𝑠 = 𝑘 → ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
495	494	eqeq2d 2832	. . . . . . . 8 ⊢ (𝑠 = 𝑘 → (𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
496	495	rexbidv 3297	. . . . . . 7 ⊢ (𝑠 = 𝑘 → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
497	496	ralbidv 3197	. . . . . 6 ⊢ (𝑠 = 𝑘 → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
498	485	fveq1d 6672	. . . . . . 7 ⊢ (𝑠 = 𝑘 → ((1st ‘𝑠)‘(𝑀 + 1)) = ((1st ‘𝑘)‘(𝑀 + 1)))
499	498	eqeq1d 2823	. . . . . 6 ⊢ (𝑠 = 𝑘 → (((1st ‘𝑠)‘(𝑀 + 1)) = 0 ↔ ((1st ‘𝑘)‘(𝑀 + 1)) = 0))
500	486	fveq1d 6672	. . . . . . 7 ⊢ (𝑠 = 𝑘 → ((2nd ‘𝑠)‘(𝑀 + 1)) = ((2nd ‘𝑘)‘(𝑀 + 1)))
501	500	eqeq1d 2823	. . . . . 6 ⊢ (𝑠 = 𝑘 → (((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1) ↔ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)))
502	497, 499, 501	3anbi123d 1432	. . . . 5 ⊢ (𝑠 = 𝑘 → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))))
503	502	ralrab 3685	. . . 4 ⊢ (∀𝑘 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ ∀𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
504	484, 503	sylibr 236	. . 3 ⊢ (𝜑 → ∀𝑘 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
505		eqid 2821	. . . 4 ⊢ (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) = (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
506	505	f1ompt 6875	. . 3 ⊢ ((𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩):{𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}–1-1-onto→{𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ↔ (∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ∧ ∀𝑘 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
507	60, 504, 506	sylanbrc 585	. 2 ⊢ (𝜑 → (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩):{𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}–1-1-onto→{𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
508		ovex 7189	. . . . 5 ⊢ ((0..^𝐾) ↑m (1...𝑀)) ∈ V
509		ovex 7189	. . . . . 6 ⊢ ((1...𝑀) ↑m (1...𝑀)) ∈ V
510		f1of 6615	. . . . . . . 8 ⊢ (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) → 𝑓:(1...𝑀)⟶(1...𝑀))
511	510	ss2abi 4043	. . . . . . 7 ⊢ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ⊆ {𝑓 ∣ 𝑓:(1...𝑀)⟶(1...𝑀)}
512	68, 68	mapval 8418	. . . . . . 7 ⊢ ((1...𝑀) ↑m (1...𝑀)) = {𝑓 ∣ 𝑓:(1...𝑀)⟶(1...𝑀)}
513	511, 512	sseqtrri 4004	. . . . . 6 ⊢ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ⊆ ((1...𝑀) ↑m (1...𝑀))
514	509, 513	ssexi 5226	. . . . 5 ⊢ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ∈ V
515	508, 514	xpex 7476	. . . 4 ⊢ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∈ V
516	515	rabex 5235	. . 3 ⊢ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ∈ V
517	516	f1oen 8530	. 2 ⊢ ((𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩):{𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}–1-1-onto→{𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} → {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ≈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
518	507, 517	syl 17	1 ⊢ (𝜑 → {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ≈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 398   ∧ w3a 1083   = wceq 1537   ∈ wcel 2114  {cab 2799  ∀wral 3138  ∃wrex 3139  ∃!wreu 3140  {crab 3142  Vcvv 3494  ⦋csb 3883   ∖ cdif 3933   ∪ cun 3934   ∩ cin 3935   ⊆ wss 3936  ∅c0 4291  {csn 4567  ⟨cop 4573   class class class wbr 5066   ↦ cmpt 5146   × cxp 5553  ^◡ccnv 5554   ↾ cres 5557   “ cima 5558  Fun wfun 6349   Fn wfn 6350  ⟶wf 6351  –1-1→wf1 6352  –onto→wfo 6353  –1-1-onto→wf1o 6354  ‘cfv 6355  (class class class)co 7156   ∘_f cof 7407  1^st c1st 7687  2^nd c2nd 7688   ↑_m cmap 8406   ≈ cen 8506  Fincfn 8509  ℂcc 10535  ℝcr 10536  0cc0 10537  1c1 10538   + caddc 10540   < clt 10675   ≤ cle 10676   − cmin 10870  ℕcn 11638  ℕ₀cn0 11898  ℤcz 11982  ℤ_≥cuz 12244  ...cfz 12893  ..^cfzo 13034

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-rep 5190  ax-sep 5203  ax-nul 5210  ax-pow 5266  ax-pr 5330  ax-un 7461  ax-cnex 10593  ax-resscn 10594  ax-1cn 10595  ax-icn 10596  ax-addcl 10597  ax-addrcl 10598  ax-mulcl 10599  ax-mulrcl 10600  ax-mulcom 10601  ax-addass 10602  ax-mulass 10603  ax-distr 10604  ax-i2m1 10605  ax-1ne0 10606  ax-1rid 10607  ax-rnegex 10608  ax-rrecex 10609  ax-cnre 10610  ax-pre-lttri 10611  ax-pre-lttrn 10612  ax-pre-ltadd 10613  ax-pre-mulgt0 10614

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-pss 3954  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4568  df-pr 4570  df-tp 4572  df-op 4574  df-uni 4839  df-iun 4921  df-br 5067  df-opab 5129  df-mpt 5147  df-tr 5173  df-id 5460  df-eprel 5465  df-po 5474  df-so 5475  df-fr 5514  df-we 5516  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-pred 6148  df-ord 6194  df-on 6195  df-lim 6196  df-suc 6197  df-iota 6314  df-fun 6357  df-fn 6358  df-f 6359  df-f1 6360  df-fo 6361  df-f1o 6362  df-fv 6363  df-riota 7114  df-ov 7159  df-oprab 7160  df-mpo 7161  df-of 7409  df-om 7581  df-1st 7689  df-2nd 7690  df-wrecs 7947  df-recs 8008  df-rdg 8046  df-1o 8102  df-er 8289  df-map 8408  df-en 8510  df-dom 8511  df-sdom 8512  df-fin 8513  df-pnf 10677  df-mnf 10678  df-xr 10679  df-ltxr 10680  df-le 10681  df-sub 10872  df-neg 10873  df-nn 11639  df-n0 11899  df-z 11983  df-uz 12245  df-fz 12894  df-fzo 13035

This theorem is referenced by:  poimirlem28  34935