Theorem poimirlem4 33413

Description: Lemma for poimir 33442 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..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ≈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((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 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝑁 ∈ ℕ)
3		poimirlem4.1	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ ℕ)
4	3	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝐾 ∈ ℕ)
5		poimirlem4.2	. . . . . . . 8 ⊢ (𝜑 → 𝑀 ∈ ℕ0)
6	5	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝑀 ∈ ℕ0)
7		poimirlem4.3	. . . . . . . 8 ⊢ (𝜑 → 𝑀 < 𝑁)
8	7	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝑀 < 𝑁)
9		xp1st 7198	. . . . . . . . 9 ⊢ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (1st ‘𝑡) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)))
10		elmapi 7879	. . . . . . . . 9 ⊢ ((1st ‘𝑡) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)) → (1st ‘𝑡):(1...𝑀)⟶(0..^𝐾))
11	9, 10	syl 17	. . . . . . . 8 ⊢ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (1st ‘𝑡):(1...𝑀)⟶(0..^𝐾))
12	11	adantl 482	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (1st ‘𝑡):(1...𝑀)⟶(0..^𝐾))
13		xp2nd 7199	. . . . . . . . 9 ⊢ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd ‘𝑡) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})
14		fvex 6201	. . . . . . . . . 10 ⊢ (2nd ‘𝑡) ∈ V
15		f1oeq1 6127	. . . . . . . . . 10 ⊢ (𝑓 = (2nd ‘𝑡) → (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) ↔ (2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀)))
16	14, 15	elab 3350	. . . . . . . . 9 ⊢ ((2nd ‘𝑡) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ↔ (2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀))
17	13, 16	sylib 208	. . . . . . . 8 ⊢ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀))
18	17	adantl 482	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀))
19	2, 4, 6, 8, 12, 18	poimirlem3 33412	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → (⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((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 6201	. . . . . . . . . . . . . . . 16 ⊢ (1st ‘𝑡) ∈ V
21		snex 4908	. . . . . . . . . . . . . . . 16 ⊢ {⟨(𝑀 + 1), 0⟩} ∈ V
22	20, 21	unex 6956	. . . . . . . . . . . . . . 15 ⊢ ((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∈ V
23		snex 4908	. . . . . . . . . . . . . . . 16 ⊢ {⟨(𝑀 + 1), (𝑀 + 1)⟩} ∈ V
24	14, 23	unex 6956	. . . . . . . . . . . . . . 15 ⊢ ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∈ V
25	22, 24	op1std 7178	. . . . . . . . . . . . . 14 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (1st ‘𝑠) = ((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}))
26	22, 24	op2ndd 7179	. . . . . . . . . . . . . . . . 17 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (2nd ‘𝑠) = ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
27	26	imaeq1d 5465	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((2nd ‘𝑠) “ (1...𝑗)) = (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)))
28	27	xpeq1d 5138	. . . . . . . . . . . . . . 15 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((2nd ‘𝑠) “ (1...𝑗)) × {1}) = ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}))
29	26	imaeq1d 5465	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) = (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))))
30	29	xpeq1d 5138	. . . . . . . . . . . . . . 15 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))
31	28, 30	uneq12d 3768	. . . . . . . . . . . . . 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 6668	. . . . . . . . . . . . 13 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) = (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))))
33	32	uneq1d 3766	. . . . . . . . . . . 12 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
34	33	csbeq1d 3540	. . . . . . . . . . 11 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
35	34	eqeq2d 2632	. . . . . . . . . 10 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
36	35	rexbidv 3052	. . . . . . . . 9 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
37	36	ralbidv 2986	. . . . . . . 8 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
38	25	fveq1d 6193	. . . . . . . . 9 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((1st ‘𝑠)‘(𝑀 + 1)) = (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)))
39	38	eqeq1d 2624	. . . . . . . 8 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((1st ‘𝑠)‘(𝑀 + 1)) = 0 ↔ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)) = 0))
40	26	fveq1d 6193	. . . . . . . . 9 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((2nd ‘𝑠)‘(𝑀 + 1)) = (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)))
41	40	eqeq1d 2624	. . . . . . . 8 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1) ↔ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)) = (𝑀 + 1)))
42	37, 39, 41	3anbi123d 1399	. . . . . . 7 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((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 3363	. . . . . 6 ⊢ (⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ↔ (⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((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 242	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}))
45	44	ralrimiva 2966	. . . 4 ⊢ (𝜑 → ∀𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}))
46		fveq2 6191	. . . . . . . . . . 11 ⊢ (𝑠 = 𝑡 → (1st ‘𝑠) = (1st ‘𝑡))
47		fveq2 6191	. . . . . . . . . . . . . 14 ⊢ (𝑠 = 𝑡 → (2nd ‘𝑠) = (2nd ‘𝑡))
48	47	imaeq1d 5465	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑡 → ((2nd ‘𝑠) “ (1...𝑗)) = ((2nd ‘𝑡) “ (1...𝑗)))
49	48	xpeq1d 5138	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑡 → (((2nd ‘𝑠) “ (1...𝑗)) × {1}) = (((2nd ‘𝑡) “ (1...𝑗)) × {1}))
50	47	imaeq1d 5465	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑡 → ((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) = ((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)))
51	50	xpeq1d 5138	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑡 → (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}) = (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))
52	49, 51	uneq12d 3768	. . . . . . . . . . 11 ⊢ (𝑠 = 𝑡 → ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0})) = ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0})))
53	46, 52	oveq12d 6668	. . . . . . . . . 10 ⊢ (𝑠 = 𝑡 → ((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) = ((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))))
54	53	uneq1d 3766	. . . . . . . . 9 ⊢ (𝑠 = 𝑡 → (((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = (((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})))
55	54	csbeq1d 3540	. . . . . . . 8 ⊢ (𝑠 = 𝑡 → ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
56	55	eqeq2d 2632	. . . . . . 7 ⊢ (𝑠 = 𝑡 → (𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
57	56	rexbidv 3052	. . . . . 6 ⊢ (𝑠 = 𝑡 → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
58	57	ralbidv 2986	. . . . 5 ⊢ (𝑠 = 𝑡 → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
59	58	ralrab 3368	. . . 4 ⊢ (∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ↔ ∀𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}))
60	45, 59	sylibr 224	. . 3 ⊢ (𝜑 → ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
61		xp1st 7198	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (1st ‘𝑘) ∈ ((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))))
62		elmapi 7879	. . . . . . . . . . . . . . 15 ⊢ ((1st ‘𝑘) ∈ ((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) → (1st ‘𝑘):(1...(𝑀 + 1))⟶(0..^𝐾))
63	61, 62	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (1st ‘𝑘):(1...(𝑀 + 1))⟶(0..^𝐾))
64		fzssp1 12384	. . . . . . . . . . . . . 14 ⊢ (1...𝑀) ⊆ (1...(𝑀 + 1))
65		fssres 6070	. . . . . . . . . . . . . 14 ⊢ (((1st ‘𝑘):(1...(𝑀 + 1))⟶(0..^𝐾) ∧ (1...𝑀) ⊆ (1...(𝑀 + 1))) → ((1st ‘𝑘) ↾ (1...𝑀)):(1...𝑀)⟶(0..^𝐾))
66	63, 64, 65	sylancl 694	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((1st ‘𝑘) ↾ (1...𝑀)):(1...𝑀)⟶(0..^𝐾))
67		ovex 6678	. . . . . . . . . . . . . 14 ⊢ (0..^𝐾) ∈ V
68		ovex 6678	. . . . . . . . . . . . . 14 ⊢ (1...𝑀) ∈ V
69	67, 68	elmap 7886	. . . . . . . . . . . . 13 ⊢ (((1st ‘𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)) ↔ ((1st ‘𝑘) ↾ (1...𝑀)):(1...𝑀)⟶(0..^𝐾))
70	66, 69	sylibr 224	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((1st ‘𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)))
71	70	ad2antlr 763	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((1st ‘𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)))
72		xp2nd 7199	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd ‘𝑘) ∈ {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})
73		fvex 6201	. . . . . . . . . . . . . . . . . 18 ⊢ (2nd ‘𝑘) ∈ V
74		f1oeq1 6127	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑓 = (2nd ‘𝑘) → (𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) ↔ (2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))))
75	73, 74	elab 3350	. . . . . . . . . . . . . . . . 17 ⊢ ((2nd ‘𝑘) ∈ {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))} ↔ (2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)))
76	72, 75	sylib 208	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)))
77		f1of1 6136	. . . . . . . . . . . . . . . 16 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → (2nd ‘𝑘):(1...(𝑀 + 1))–1-1→(1...(𝑀 + 1)))
78	76, 77	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd ‘𝑘):(1...(𝑀 + 1))–1-1→(1...(𝑀 + 1)))
79		f1ores 6151	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑘):(1...(𝑀 + 1))–1-1→(1...(𝑀 + 1)) ∧ (1...𝑀) ⊆ (1...(𝑀 + 1))) → ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd ‘𝑘) “ (1...𝑀)))
80	78, 64, 79	sylancl 694	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd ‘𝑘) “ (1...𝑀)))
81	80	ad2antlr 763	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd ‘𝑘) “ (1...𝑀)))
82		dff1o3 6143	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) ↔ ((2nd ‘𝑘):(1...(𝑀 + 1))–onto→(1...(𝑀 + 1)) ∧ Fun ◡(2nd ‘𝑘)))
83	82	simprbi 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → Fun ◡(2nd ‘𝑘))
84		imadif 5973	. . . . . . . . . . . . . . . . . 18 ⊢ (Fun ◡(2nd ‘𝑘) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
85	76, 83, 84	3syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
86	85	ad2antlr 763	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
87		f1ofo 6144	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → (2nd ‘𝑘):(1...(𝑀 + 1))–onto→(1...(𝑀 + 1)))
88		foima 6120	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–onto→(1...(𝑀 + 1)) → ((2nd ‘𝑘) “ (1...(𝑀 + 1))) = (1...(𝑀 + 1)))
89	76, 87, 88	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) “ (1...(𝑀 + 1))) = (1...(𝑀 + 1)))
90	89	ad2antlr 763	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ (1...(𝑀 + 1))) = (1...(𝑀 + 1)))
91		f1ofn 6138	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → (2nd ‘𝑘) Fn (1...(𝑀 + 1)))
92	76, 91	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd ‘𝑘) Fn (1...(𝑀 + 1)))
93		nn0p1nn 11332	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑀 ∈ ℕ0 → (𝑀 + 1) ∈ ℕ)
94	5, 93	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑀 + 1) ∈ ℕ)
95		elfz1end 12371	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑀 + 1) ∈ ℕ ↔ (𝑀 + 1) ∈ (1...(𝑀 + 1)))
96	94, 95	sylib 208	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑀 + 1) ∈ (1...(𝑀 + 1)))
97		fnsnfv 6258	. . . . . . . . . . . . . . . . . . 19 ⊢ (((2nd ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ (1...(𝑀 + 1))) → {((2nd ‘𝑘)‘(𝑀 + 1))} = ((2nd ‘𝑘) “ {(𝑀 + 1)}))
98	92, 96, 97	syl2anr 495	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → {((2nd ‘𝑘)‘(𝑀 + 1))} = ((2nd ‘𝑘) “ {(𝑀 + 1)}))
99		sneq 4187	. . . . . . . . . . . . . . . . . 18 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → {((2nd ‘𝑘)‘(𝑀 + 1))} = {(𝑀 + 1)})
100	98, 99	sylan9req 2677	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ {(𝑀 + 1)}) = {(𝑀 + 1)})
101	90, 100	difeq12d 3729	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})) = ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}))
102	86, 101	eqtrd 2656	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}))
103		1z 11407	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 1 ∈ ℤ
104		nn0uz 11722	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ℕ0 = (ℤ≥‘0)
105		1m1e0 11089	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (1 − 1) = 0
106	105	fveq2i 6194	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (ℤ≥‘(1 − 1)) = (ℤ≥‘0)
107	104, 106	eqtr4i 2647	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ℕ0 = (ℤ≥‘(1 − 1))
108	5, 107	syl6eleq 2711	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑀 ∈ (ℤ≥‘(1 − 1)))
109		fzsuc2 12398	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((1 ∈ ℤ ∧ 𝑀 ∈ (ℤ≥‘(1 − 1))) → (1...(𝑀 + 1)) = ((1...𝑀) ∪ {(𝑀 + 1)}))
110	103, 108, 109	sylancr 695	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (1...(𝑀 + 1)) = ((1...𝑀) ∪ {(𝑀 + 1)}))
111	110	difeq1d 3727	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (((1...𝑀) ∪ {(𝑀 + 1)}) ∖ {(𝑀 + 1)}))
112		difun2 4048	. . . . . . . . . . . . . . . . . . 19 ⊢ (((1...𝑀) ∪ {(𝑀 + 1)}) ∖ {(𝑀 + 1)}) = ((1...𝑀) ∖ {(𝑀 + 1)})
113	111, 112	syl6eq 2672	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = ((1...𝑀) ∖ {(𝑀 + 1)}))
114	5	nn0red 11352	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑀 ∈ ℝ)
115		ltp1 10861	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑀 ∈ ℝ → 𝑀 < (𝑀 + 1))
116		peano2re 10209	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑀 ∈ ℝ → (𝑀 + 1) ∈ ℝ)
117		ltnle 10117	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑀 ∈ ℝ ∧ (𝑀 + 1) ∈ ℝ) → (𝑀 < (𝑀 + 1) ↔ ¬ (𝑀 + 1) ≤ 𝑀))
118	116, 117	mpdan 702	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑀 ∈ ℝ → (𝑀 < (𝑀 + 1) ↔ ¬ (𝑀 + 1) ≤ 𝑀))
119	115, 118	mpbid 222	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑀 ∈ ℝ → ¬ (𝑀 + 1) ≤ 𝑀)
120	114, 119	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ¬ (𝑀 + 1) ≤ 𝑀)
121		elfzle2 12345	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑀 + 1) ∈ (1...𝑀) → (𝑀 + 1) ≤ 𝑀)
122	120, 121	nsyl 135	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ¬ (𝑀 + 1) ∈ (1...𝑀))
123		difsn 4328	. . . . . . . . . . . . . . . . . . 19 ⊢ (¬ (𝑀 + 1) ∈ (1...𝑀) → ((1...𝑀) ∖ {(𝑀 + 1)}) = (1...𝑀))
124	122, 123	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((1...𝑀) ∖ {(𝑀 + 1)}) = (1...𝑀))
125	113, 124	eqtrd 2656	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (1...𝑀))
126	125	imaeq2d 5466	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) “ (1...𝑀)))
127	126	ad2antrr 762	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) “ (1...𝑀)))
128	125	ad2antrr 762	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (1...𝑀))
129	102, 127, 128	3eqtr3d 2664	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ (1...𝑀)) = (1...𝑀))
130		f1oeq3 6129	. . . . . . . . . . . . . 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..^𝐾) ↑𝑚 (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 222	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀))
133	73	resex 5443	. . . . . . . . . . . . 13 ⊢ ((2nd ‘𝑘) ↾ (1...𝑀)) ∈ V
134		f1oeq1 6127	. . . . . . . . . . . . 13 ⊢ (𝑓 = ((2nd ‘𝑘) ↾ (1...𝑀)) → (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) ↔ ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀)))
135	133, 134	elab 3350	. . . . . . . . . . . 12 ⊢ (((2nd ‘𝑘) ↾ (1...𝑀)) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ↔ ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀))
136	132, 135	sylibr 224	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) ↾ (1...𝑀)) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})
137		opelxpi 5148	. . . . . . . . . . 11 ⊢ ((((1st ‘𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)) ∧ ((2nd ‘𝑘) ↾ (1...𝑀)) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
138	71, 136, 137	syl2anc 693	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
139	138	3ad2antr3 1228	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
140		3anass 1042	. . . . . . . . . . 11 ⊢ ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))))
141		ancom 466	. . . . . . . . . . 11 ⊢ ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((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 ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
142	140, 141	bitri 264	. . . . . . . . . 10 ⊢ ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((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 ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
143	94	nnzd 11481	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (𝑀 + 1) ∈ ℤ)
144		uzid 11702	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑀 + 1) ∈ ℤ → (𝑀 + 1) ∈ (ℤ≥‘(𝑀 + 1)))
145		peano2uz 11741	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑀 + 1) ∈ (ℤ≥‘(𝑀 + 1)) → ((𝑀 + 1) + 1) ∈ (ℤ≥‘(𝑀 + 1)))
146	143, 144, 145	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((𝑀 + 1) + 1) ∈ (ℤ≥‘(𝑀 + 1)))
147	5	nn0zd 11480	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → 𝑀 ∈ ℤ)
148	1	nnzd 11481	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → 𝑁 ∈ ℤ)
149		zltp1le 11427	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 < 𝑁 ↔ (𝑀 + 1) ≤ 𝑁))
150		peano2z 11418	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑀 ∈ ℤ → (𝑀 + 1) ∈ ℤ)
151		eluz 11701	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑀 + 1) ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑁 ∈ (ℤ≥‘(𝑀 + 1)) ↔ (𝑀 + 1) ≤ 𝑁))
152	150, 151	sylan 488	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑁 ∈ (ℤ≥‘(𝑀 + 1)) ↔ (𝑀 + 1) ≤ 𝑁))
153	149, 152	bitr4d 271	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 < 𝑁 ↔ 𝑁 ∈ (ℤ≥‘(𝑀 + 1))))
154	147, 148, 153	syl2anc 693	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (𝑀 < 𝑁 ↔ 𝑁 ∈ (ℤ≥‘(𝑀 + 1))))
155	7, 154	mpbid 222	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝑁 ∈ (ℤ≥‘(𝑀 + 1)))
156		fzsplit2 12366	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝑀 + 1) + 1) ∈ (ℤ≥‘(𝑀 + 1)) ∧ 𝑁 ∈ (ℤ≥‘(𝑀 + 1))) → ((𝑀 + 1)...𝑁) = (((𝑀 + 1)...(𝑀 + 1)) ∪ (((𝑀 + 1) + 1)...𝑁)))
157	146, 155, 156	syl2anc 693	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((𝑀 + 1)...𝑁) = (((𝑀 + 1)...(𝑀 + 1)) ∪ (((𝑀 + 1) + 1)...𝑁)))
158		fzsn 12383	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑀 + 1) ∈ ℤ → ((𝑀 + 1)...(𝑀 + 1)) = {(𝑀 + 1)})
159	143, 158	syl 17	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((𝑀 + 1)...(𝑀 + 1)) = {(𝑀 + 1)})
160	159	uneq1d 3766	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (((𝑀 + 1)...(𝑀 + 1)) ∪ (((𝑀 + 1) + 1)...𝑁)) = ({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)))
161	157, 160	eqtrd 2656	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((𝑀 + 1)...𝑁) = ({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)))
162	161	xpeq1d 5138	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝑀 + 1)...𝑁) × {0}) = (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0}))
163	162	uneq2d 3767	. . . . . . . . . . . . . . . . . . . 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 5172	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0}) = (({(𝑀 + 1)} × {0}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0}))
165		ovex 6678	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑀 + 1) ∈ V
166		c0ex 10034	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ 0 ∈ V
167	165, 166	xpsn 6407	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ({(𝑀 + 1)} × {0}) = {⟨(𝑀 + 1), 0⟩}
168	167	uneq1i 3763	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (({(𝑀 + 1)} × {0}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ({⟨(𝑀 + 1), 0⟩} ∪ ((((𝑀 + 1) + 1)...𝑁) × {0}))
169	164, 168	eqtri 2644	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0}) = ({⟨(𝑀 + 1), 0⟩} ∪ ((((𝑀 + 1) + 1)...𝑁) × {0}))
170	169	uneq2i 3764	. . . . . . . . . . . . . . . . . . . . 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 3770	. . . . . . . . . . . . . . . . . . . . 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 2647	. . . . . . . . . . . . . . . . . . . 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 2672	. . . . . . . . . . . . . . . . . . 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 766	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑀 + 1) ∈ V)
176	166	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → 0 ∈ V)
177	110	eqcomd 2628	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((1...𝑀) ∪ {(𝑀 + 1)}) = (1...(𝑀 + 1)))
178	177	ad3antrrr 766	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((1...𝑀) ∪ {(𝑀 + 1)}) = (1...(𝑀 + 1)))
179		fveq2 6191	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 = (𝑀 + 1) → ((1st ‘𝑘)‘𝑛) = ((1st ‘𝑘)‘(𝑀 + 1)))
180		fveq2 6191	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 = (𝑀 + 1) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)))
181	179, 180	oveq12d 6668	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 = (𝑀 + 1) → (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛)) = (((1st ‘𝑘)‘(𝑀 + 1)) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1))))
182		simplrl 800	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((1st ‘𝑘)‘(𝑀 + 1)) = 0)
183		imain 5974	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (Fun ◡(2nd ‘𝑘) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
184	76, 83, 183	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
185	184	ad2antlr 763	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
186		elfznn0 12433	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℕ0)
187	186	nn0red 11352	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℝ)
188	187	ltp1d 10954	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ (0...𝑀) → 𝑗 < (𝑗 + 1))
189		fzdisj 12368	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 < (𝑗 + 1) → ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1))) = ∅)
190	188, 189	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1))) = ∅)
191	190	imaeq2d 5466	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = ((2nd ‘𝑘) “ ∅))
192		ima0 5481	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((2nd ‘𝑘) “ ∅) = ∅
193	191, 192	syl6eq 2672	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = ∅)
194	185, 193	sylan9req 2677	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ∅)
195		simplr 792	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))
196	92	ad2antlr 763	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (2nd ‘𝑘) Fn (1...(𝑀 + 1)))
197		nn0p1nn 11332	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑗 ∈ ℕ0 → (𝑗 + 1) ∈ ℕ)
198		nnuz 11723	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ℕ = (ℤ≥‘1)
199	197, 198	syl6eleq 2711	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ ℕ0 → (𝑗 + 1) ∈ (ℤ≥‘1))
200		fzss1 12380	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑗 + 1) ∈ (ℤ≥‘1) → ((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)))
201	186, 199, 200	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → ((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)))
202		elfzuz3 12339	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ (0...𝑀) → 𝑀 ∈ (ℤ≥‘𝑗))
203		eluzp1p1 11713	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑀 ∈ (ℤ≥‘𝑗) → (𝑀 + 1) ∈ (ℤ≥‘(𝑗 + 1)))
204		eluzfz2 12349	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑀 + 1) ∈ (ℤ≥‘(𝑗 + 1)) → (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1)))
205	202, 203, 204	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1)))
206	201, 205	jca 554	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 ∈ (0...𝑀) → (((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1))))
207		fnfvima 6496	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((2nd ‘𝑘) Fn (1...(𝑀 + 1)) ∧ ((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1))) → ((2nd ‘𝑘)‘(𝑀 + 1)) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
208	207	3expb 1266	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((2nd ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1)))) → ((2nd ‘𝑘)‘(𝑀 + 1)) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
209	196, 206, 208	syl2an 494	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd ‘𝑘)‘(𝑀 + 1)) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
210	195, 209	eqeltrrd 2702	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (𝑀 + 1) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
211		1ex 10035	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ 1 ∈ V
212		fnconstg 6093	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (1 ∈ V → (((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗)))
213	211, 212	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗))
214		fnconstg 6093	. . . . . . . . . . . . . . . . . . . . . . . . . . . 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 6270	. . . . . . . . . . . . . . . . . . . . . . . . . . 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 1414	. . . . . . . . . . . . . . . . . . . . . . . . . 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 693	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 6469	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑀 + 1) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) → ((((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)) = 0)
220	210, 219	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)) = 0)
221	218, 220	eqtrd 2656	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 756	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 6668	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 10211	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0 + 0) = 0
225	223, 224	syl6eq 2672	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 2678	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 6437	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 3766	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 2656	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 7880	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((1st ‘𝑘) ∈ ((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) → (1st ‘𝑘) Fn (1...(𝑀 + 1)))
231	61, 230	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (1st ‘𝑘) Fn (1...(𝑀 + 1)))
232		fnssres 6004	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((1st ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (1...𝑀) ⊆ (1...(𝑀 + 1))) → ((1st ‘𝑘) ↾ (1...𝑀)) Fn (1...𝑀))
233	231, 64, 232	sylancl 694	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((1st ‘𝑘) ↾ (1...𝑀)) Fn (1...𝑀))
234	233	ad3antlr 767	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1st ‘𝑘) ↾ (1...𝑀)) Fn (1...𝑀))
235		simplr 792	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}))
236		fnconstg 6093	. . . . . . . . . . . . . . . . . . . . . . . . . 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 471	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗)) ∧ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
239		imain 5974	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (Fun ◡(2nd ‘𝑘) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
240	76, 83, 239	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
241		fzdisj 12368	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 < (𝑗 + 1) → ((1...𝑗) ∩ ((𝑗 + 1)...𝑀)) = ∅)
242	188, 241	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑗 ∈ (0...𝑀) → ((1...𝑗) ∩ ((𝑗 + 1)...𝑀)) = ∅)
243	242	imaeq2d 5466	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = ((2nd ‘𝑘) “ ∅))
244	243, 192	syl6eq 2672	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = ∅)
245	240, 244	sylan9req 2677	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))) = ∅)
246		fnun 5997	. . . . . . . . . . . . . . . . . . . . . . . 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 695	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 488	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 481	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})) = ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}))
250	85	ad3antlr 767	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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	syl6eleq 2711	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ (ℤ≥‘1))
253		fzsplit2 12366	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝑗 + 1) ∈ (ℤ≥‘1) ∧ 𝑀 ∈ (ℤ≥‘𝑗)) → (1...𝑀) = ((1...𝑗) ∪ ((𝑗 + 1)...𝑀)))
254	252, 202, 253	syl2anc 693	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 ∈ (0...𝑀) → (1...𝑀) = ((1...𝑗) ∪ ((𝑗 + 1)...𝑀)))
255	128, 254	sylan9eq 2676	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = ((1...𝑗) ∪ ((𝑗 + 1)...𝑀)))
256	255	imaeq2d 5466	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))))
257	250, 256	eqtr3d 2658	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})) = ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))))
258	125	ad3antrrr 766	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (1...𝑀))
259	249, 257, 258	3eqtr3rd 2665	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (1...𝑀) = ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))))
260		imaundi 5545	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))) = (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
261	259, 260	syl6eq 2672	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (1...𝑀) = (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
262	261	fneq2d 5982	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 247	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀))
264		fzss2 12381	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑀 ∈ (ℤ≥‘𝑗) → (1...𝑗) ⊆ (1...𝑀))
265		resima2 5432	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((1...𝑗) ⊆ (1...𝑀) → (((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) = ((2nd ‘𝑘) “ (1...𝑗)))
266	202, 264, 265	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) = ((2nd ‘𝑘) “ (1...𝑗)))
267	266	xpeq1d 5138	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑗 ∈ (0...𝑀) → ((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) = (((2nd ‘𝑘) “ (1...𝑗)) × {1}))
268	186, 199	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ (ℤ≥‘1))
269		fzss1 12380	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑗 + 1) ∈ (ℤ≥‘1) → ((𝑗 + 1)...𝑀) ⊆ (1...𝑀))
270		resima2 5432	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝑗 + 1)...𝑀) ⊆ (1...𝑀) → (((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) = ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
271	268, 269, 270	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) = ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
272	271	xpeq1d 5138	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑗 ∈ (0...𝑀) → ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}) = (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))
273	267, 272	uneq12d 3768	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑗 ∈ (0...𝑀) → (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})))
274	273	adantl 482	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 5981	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 247	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 12772	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (1...𝑀) ∈ Fin)
278		inidm 3822	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((1...𝑀) ∩ (1...𝑀)) = (1...𝑀)
279		fvres 6207	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ (1...𝑀) → (((1st ‘𝑘) ↾ (1...𝑀))‘𝑛) = ((1st ‘𝑘)‘𝑛))
280	279	adantl 482	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → (((1st ‘𝑘) ↾ (1...𝑀))‘𝑛) = ((1st ‘𝑘)‘𝑛))
281		disjsn 4246	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((1...𝑀) ∩ {(𝑀 + 1)}) = ∅ ↔ ¬ (𝑀 + 1) ∈ (1...𝑀))
282	122, 281	sylibr 224	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((1...𝑀) ∩ {(𝑀 + 1)}) = ∅)
283	282	ad3antrrr 766	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1...𝑀) ∩ {(𝑀 + 1)}) = ∅)
284	263, 283	jca 554	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 6093	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (0 ∈ V → ({(𝑀 + 1)} × {0}) Fn {(𝑀 + 1)})
286	166, 285	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ({(𝑀 + 1)} × {0}) Fn {(𝑀 + 1)}
287		fvun1 6269	. . . . . . . . . . . . . . . . . . . . . . . 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 1412	. . . . . . . . . . . . . . . . . . . . . . 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 680	. . . . . . . . . . . . . . . . . . . . . 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 488	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 11481	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ ℤ)
292	186	nn0cnd 11353	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℂ)
293		pncan1 10454	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑗 ∈ ℂ → ((𝑗 + 1) − 1) = 𝑗)
294	292, 293	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝑗 ∈ (0...𝑀) → ((𝑗 + 1) − 1) = 𝑗)
295	294	fveq2d 6195	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑗 ∈ (0...𝑀) → (ℤ≥‘((𝑗 + 1) − 1)) = (ℤ≥‘𝑗))
296	202, 295	eleqtrrd 2704	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑗 ∈ (0...𝑀) → 𝑀 ∈ (ℤ≥‘((𝑗 + 1) − 1)))
297		fzsuc2 12398	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((𝑗 + 1) ∈ ℤ ∧ 𝑀 ∈ (ℤ≥‘((𝑗 + 1) − 1))) → ((𝑗 + 1)...(𝑀 + 1)) = (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)}))
298	291, 296, 297	syl2anc 693	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑗 ∈ (0...𝑀) → ((𝑗 + 1)...(𝑀 + 1)) = (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)}))
299	298	imaeq2d 5466	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) = ((2nd ‘𝑘) “ (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)})))
300		imaundi 5545	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((2nd ‘𝑘) “ (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd ‘𝑘) “ {(𝑀 + 1)}))
301	299, 300	syl6eq 2672	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) = (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
302	301	xpeq1d 5138	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd ‘𝑘) “ {(𝑀 + 1)})) × {0}))
303		xpundir 5172	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd ‘𝑘) “ {(𝑀 + 1)})) × {0}) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0}))
304	302, 303	syl6eq 2672	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
305	304	uneq2d 3767	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 ∈ (0...𝑀) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0}))))
306		unass 3770	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
307	305, 306	syl6eqr 2674	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑗 ∈ (0...𝑀) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
308	307	adantl 482	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 5138	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0}) = (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0}))
310	309	uneq2d 3767	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 481	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 2659	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 5138	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0}) = ({(𝑀 + 1)} × {0}))
314	313	uneq2d 3767	. . . . . . . . . . . . . . . . . . . . . . . . 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 2676	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 846	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 6193	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 6193	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑗 ∈ (0...𝑀) → ((((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛))
320	319	ad2antlr 763	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 2667	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 6904	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) = (𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))))
323	322	uneq1d 3766	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})))
324	323	adantlrl 756	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})))
325		simplr 792	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}))
326	231	adantr 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (1st ‘𝑘) Fn (1...(𝑀 + 1)))
327	213, 215	pm3.2i 471	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗)) ∧ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
328	184, 193	sylan9req 2677	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ∅)
329		fnun 5997	. . . . . . . . . . . . . . . . . . . . . 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 695	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 11741	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑀 ∈ (ℤ≥‘𝑗) → (𝑀 + 1) ∈ (ℤ≥‘𝑗))
332	202, 331	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑗 ∈ (0...𝑀) → (𝑀 + 1) ∈ (ℤ≥‘𝑗))
333		fzsplit2 12366	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝑗 + 1) ∈ (ℤ≥‘1) ∧ (𝑀 + 1) ∈ (ℤ≥‘𝑗)) → (1...(𝑀 + 1)) = ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1))))
334	268, 332, 333	syl2anc 693	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑗 ∈ (0...𝑀) → (1...(𝑀 + 1)) = ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1))))
335	334	imaeq2d 5466	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ (1...(𝑀 + 1))) = ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1)))))
336		imaundi 5545	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
337	335, 336	syl6req 2673	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ((2nd ‘𝑘) “ (1...(𝑀 + 1))))
338	337, 89	sylan9eqr 2678	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = (1...(𝑀 + 1)))
339	338	fneq2d 5982	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 222	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (1...(𝑀 + 1)))
341		fzfid 12772	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (1...(𝑀 + 1)) ∈ Fin)
342		inidm 3822	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((1...(𝑀 + 1)) ∩ (1...(𝑀 + 1))) = (1...(𝑀 + 1))
343		eqidd 2623	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...(𝑀 + 1))) → ((1st ‘𝑘)‘𝑛) = ((1st ‘𝑘)‘𝑛))
344		eqidd 2623	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 6904	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) = (𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))))
346	345	uneq1d 3766	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘) ∘𝑓 + ((((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 488	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘) ∘𝑓 + ((((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 2667	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})))
349	348	csbeq1d 3540	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
350	349	eqeq2d 2632	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
351	350	rexbidva 3049	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
352	351	ralbidv 2986	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
353	352	biimpd 219	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
354	353	impr 649	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵)) → ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
355	142, 354	sylan2b 492	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
356		1st2nd2 7205	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → 𝑘 = ⟨(1st ‘𝑘), (2nd ‘𝑘)⟩)
357	356	ad2antlr 763	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → 𝑘 = ⟨(1st ‘𝑘), (2nd ‘𝑘)⟩)
358		fnsnsplit 6450	. . . . . . . . . . . . . . . 16 ⊢ (((1st ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ (1...(𝑀 + 1))) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩}))
359	231, 96, 358	syl2anr 495	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩}))
360	359	adantr 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩}))
361	125	reseq2d 5396	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1st ‘𝑘) ↾ (1...𝑀)))
362	361	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1st ‘𝑘) ↾ (1...𝑀)))
363		opeq2 4403	. . . . . . . . . . . . . . . 16 ⊢ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 → ⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩ = ⟨(𝑀 + 1), 0⟩)
364	363	sneqd 4189	. . . . . . . . . . . . . . 15 ⊢ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 → {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), 0⟩})
365		uneq12 3762	. . . . . . . . . . . . . . 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 494	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 2656	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
368	367	adantrr 753	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
369		fnsnsplit 6450	. . . . . . . . . . . . . . . 16 ⊢ (((2nd ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ (1...(𝑀 + 1))) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩}))
370	92, 96, 369	syl2anr 495	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩}))
371	370	adantr 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩}))
372	125	reseq2d 5396	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) ↾ (1...𝑀)))
373	372	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) ↾ (1...𝑀)))
374		opeq2 4403	. . . . . . . . . . . . . . . 16 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → ⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩ = ⟨(𝑀 + 1), (𝑀 + 1)⟩)
375	374	sneqd 4189	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), (𝑀 + 1)⟩})
376		uneq12 3762	. . . . . . . . . . . . . . 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 494	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 2656	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
379	378	adantrl 752	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
380	368, 379	opeq12d 4410	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 2656	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (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 1220	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((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 6201	. . . . . . . . . . . . . . . . . . 19 ⊢ (1st ‘𝑘) ∈ V
384	383	resex 5443	. . . . . . . . . . . . . . . . . 18 ⊢ ((1st ‘𝑘) ↾ (1...𝑀)) ∈ V
385	384, 133	op1std 7178	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (1st ‘𝑡) = ((1st ‘𝑘) ↾ (1...𝑀)))
386	384, 133	op2ndd 7179	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (2nd ‘𝑡) = ((2nd ‘𝑘) ↾ (1...𝑀)))
387	386	imaeq1d 5465	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((2nd ‘𝑡) “ (1...𝑗)) = (((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)))
388	387	xpeq1d 5138	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (((2nd ‘𝑡) “ (1...𝑗)) × {1}) = ((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}))
389	386	imaeq1d 5465	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) = (((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)))
390	389	xpeq1d 5138	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}) = ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))
391	388, 390	uneq12d 3768	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0})) = (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})))
392	385, 391	oveq12d 6668	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) = (((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))))
393	392	uneq1d 3766	. . . . . . . . . . . . . . 15 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})))
394	393	csbeq1d 3540	. . . . . . . . . . . . . 14 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
395	394	eqeq2d 2632	. . . . . . . . . . . . 13 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
396	395	rexbidv 3052	. . . . . . . . . . . 12 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
397	396	ralbidv 2986	. . . . . . . . . . 11 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
398	385	uneq1d 3766	. . . . . . . . . . . . 13 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = (((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
399	386	uneq1d 3766	. . . . . . . . . . . . 13 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
400	398, 399	opeq12d 4410	. . . . . . . . . . . 12 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
401	400	eqeq2d 2632	. . . . . . . . . . 11 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ 𝑘 = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
402	397, 401	anbi12d 747	. . . . . . . . . 10 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)))
403	402	rspcev 3309	. . . . . . . . 9 ⊢ ((⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)) → ∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
404	139, 355, 382, 403	syl12anc 1324	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
405	404	ex 450	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)))
406		elrabi 3359	. . . . . . . . . . 11 ⊢ (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} → 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
407		elrabi 3359	. . . . . . . . . . 11 ⊢ (𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} → 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
408	406, 407	anim12i 590	. . . . . . . . . 10 ⊢ ((𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ∧ 𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}) → (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})))
409		eqtr2 2642	. . . . . . . . . . . 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 4945	. . . . . . . . . . . . 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 3721	. . . . . . . . . . . . . . 15 ⊢ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) → (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}) = (((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}))
412		difun2 4048	. . . . . . . . . . . . . . 15 ⊢ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩})
413		difun2 4048	. . . . . . . . . . . . . . 15 ⊢ (((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩})
414	411, 412, 413	3eqtr3g 2679	. . . . . . . . . . . . . 14 ⊢ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) → ((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}))
415		difeq1 3721	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) → (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
416		difun2 4048	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})
417		difun2 4048	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})
418	415, 416, 417	3eqtr3g 2679	. . . . . . . . . . . . . 14 ⊢ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) → ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
419	414, 418	anim12i 590	. . . . . . . . . . . . 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 207	. . . . . . . . . . . 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 7880	. . . . . . . . . . . . . . . . . . 19 ⊢ ((1st ‘𝑡) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)) → (1st ‘𝑡) Fn (1...𝑀))
423		fnop 5994	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((1st ‘𝑡) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡)) → (𝑀 + 1) ∈ (1...𝑀))
424	423	ex 450	. . . . . . . . . . . . . . . . . . 19 ⊢ ((1st ‘𝑡) Fn (1...𝑀) → (⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
425	9, 422, 424	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
426	425, 122	nsyli 155	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡)))
427	426	impcom 446	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡))
428		difsn 4328	. . . . . . . . . . . . . . . 16 ⊢ (¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡) → ((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st ‘𝑡))
429	427, 428	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st ‘𝑡))
430		xp1st 7198	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (1st ‘𝑛) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)))
431		elmapfn 7880	. . . . . . . . . . . . . . . . . . 19 ⊢ ((1st ‘𝑛) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)) → (1st ‘𝑛) Fn (1...𝑀))
432		fnop 5994	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((1st ‘𝑛) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛)) → (𝑀 + 1) ∈ (1...𝑀))
433	432	ex 450	. . . . . . . . . . . . . . . . . . 19 ⊢ ((1st ‘𝑛) Fn (1...𝑀) → (⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
434	430, 431, 433	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
435	434, 122	nsyli 155	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛)))
436	435	impcom 446	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛))
437		difsn 4328	. . . . . . . . . . . . . . . 16 ⊢ (¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛) → ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st ‘𝑛))
438	436, 437	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st ‘𝑛))
439	429, 438	eqeqan12d 2638	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) ∧ (𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ↔ (1st ‘𝑡) = (1st ‘𝑛)))
440	439	anandis 873	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ↔ (1st ‘𝑡) = (1st ‘𝑛)))
441		f1ofn 6138	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀) → (2nd ‘𝑡) Fn (1...𝑀))
442		fnop 5994	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((2nd ‘𝑡) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡)) → (𝑀 + 1) ∈ (1...𝑀))
443	442	ex 450	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑡) Fn (1...𝑀) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
444	17, 441, 443	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
445	444, 122	nsyli 155	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡)))
446	445	impcom 446	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡))
447		difsn 4328	. . . . . . . . . . . . . . . 16 ⊢ (¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡) → ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd ‘𝑡))
448	446, 447	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd ‘𝑡))
449		xp2nd 7199	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd ‘𝑛) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})
450		fvex 6201	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (2nd ‘𝑛) ∈ V
451		f1oeq1 6127	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑓 = (2nd ‘𝑛) → (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) ↔ (2nd ‘𝑛):(1...𝑀)–1-1-onto→(1...𝑀)))
452	450, 451	elab 3350	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((2nd ‘𝑛) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ↔ (2nd ‘𝑛):(1...𝑀)–1-1-onto→(1...𝑀))
453	449, 452	sylib 208	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd ‘𝑛):(1...𝑀)–1-1-onto→(1...𝑀))
454		f1ofn 6138	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑛):(1...𝑀)–1-1-onto→(1...𝑀) → (2nd ‘𝑛) Fn (1...𝑀))
455		fnop 5994	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((2nd ‘𝑛) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛)) → (𝑀 + 1) ∈ (1...𝑀))
456	455	ex 450	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑛) Fn (1...𝑀) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
457	453, 454, 456	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
458	457, 122	nsyli 155	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛)))
459	458	impcom 446	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛))
460		difsn 4328	. . . . . . . . . . . . . . . 16 ⊢ (¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛) → ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd ‘𝑛))
461	459, 460	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd ‘𝑛))
462	448, 461	eqeqan12d 2638	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) ∧ (𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ↔ (2nd ‘𝑡) = (2nd ‘𝑛)))
463	462	anandis 873	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ↔ (2nd ‘𝑡) = (2nd ‘𝑛)))
464	440, 463	anbi12d 747	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → ((((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})) ↔ ((1st ‘𝑡) = (1st ‘𝑛) ∧ (2nd ‘𝑡) = (2nd ‘𝑛))))
465		xpopth 7207	. . . . . . . . . . . . 13 ⊢ ((𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (((1st ‘𝑡) = (1st ‘𝑛) ∧ (2nd ‘𝑡) = (2nd ‘𝑛)) ↔ 𝑡 = 𝑛))
466	465	adantl 482	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((1st ‘𝑡) = (1st ‘𝑛) ∧ (2nd ‘𝑡) = (2nd ‘𝑛)) ↔ 𝑡 = 𝑛))
467	464, 466	bitrd 268	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → ((((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})) ↔ 𝑡 = 𝑛))
468	421, 467	syl5ib 234	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
469	408, 468	sylan2 491	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ∧ 𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵})) → ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
470	469	ralrimivva 2971	. . . . . . . 8 ⊢ (𝜑 → ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
471	470	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
472	405, 471	jctird 567	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))))
473		fveq2 6191	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑛 → (1st ‘𝑡) = (1st ‘𝑛))
474	473	uneq1d 3766	. . . . . . . . . 10 ⊢ (𝑡 = 𝑛 → ((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}))
475		fveq2 6191	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑛 → (2nd ‘𝑡) = (2nd ‘𝑛))
476	475	uneq1d 3766	. . . . . . . . . 10 ⊢ (𝑡 = 𝑛 → ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
477	474, 476	opeq12d 4410	. . . . . . . . 9 ⊢ (𝑡 = 𝑛 → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
478	477	eqeq2d 2632	. . . . . . . 8 ⊢ (𝑡 = 𝑛 → (𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
479	478	reu4 3400	. . . . . . 7 ⊢ (∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ (∃𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)))
480	58	rexrab 3370	. . . . . . . 8 ⊢ (∃𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ ∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
481	480	anbi1i 731	. . . . . . 7 ⊢ ((∃𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)) ↔ (∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)))
482	479, 481	bitri 264	. . . . . 6 ⊢ (∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ (∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘𝑓 + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)))
483	472, 482	syl6ibr 242	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
484	483	ralrimiva 2966	. . . 4 ⊢ (𝜑 → ∀𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
485		fveq2 6191	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑘 → (1st ‘𝑠) = (1st ‘𝑘))
486		fveq2 6191	. . . . . . . . . . . . . . 15 ⊢ (𝑠 = 𝑘 → (2nd ‘𝑠) = (2nd ‘𝑘))
487	486	imaeq1d 5465	. . . . . . . . . . . . . 14 ⊢ (𝑠 = 𝑘 → ((2nd ‘𝑠) “ (1...𝑗)) = ((2nd ‘𝑘) “ (1...𝑗)))
488	487	xpeq1d 5138	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑘 → (((2nd ‘𝑠) “ (1...𝑗)) × {1}) = (((2nd ‘𝑘) “ (1...𝑗)) × {1}))
489	486	imaeq1d 5465	. . . . . . . . . . . . . 14 ⊢ (𝑠 = 𝑘 → ((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) = ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
490	489	xpeq1d 5138	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑘 → (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))
491	488, 490	uneq12d 3768	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑘 → ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})))
492	485, 491	oveq12d 6668	. . . . . . . . . . 11 ⊢ (𝑠 = 𝑘 → ((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) = ((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))))
493	492	uneq1d 3766	. . . . . . . . . 10 ⊢ (𝑠 = 𝑘 → (((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = (((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
494	493	csbeq1d 3540	. . . . . . . . 9 ⊢ (𝑠 = 𝑘 → ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
495	494	eqeq2d 2632	. . . . . . . 8 ⊢ (𝑠 = 𝑘 → (𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
496	495	rexbidv 3052	. . . . . . 7 ⊢ (𝑠 = 𝑘 → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
497	496	ralbidv 2986	. . . . . 6 ⊢ (𝑠 = 𝑘 → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
498	485	fveq1d 6193	. . . . . . 7 ⊢ (𝑠 = 𝑘 → ((1st ‘𝑠)‘(𝑀 + 1)) = ((1st ‘𝑘)‘(𝑀 + 1)))
499	498	eqeq1d 2624	. . . . . 6 ⊢ (𝑠 = 𝑘 → (((1st ‘𝑠)‘(𝑀 + 1)) = 0 ↔ ((1st ‘𝑘)‘(𝑀 + 1)) = 0))
500	486	fveq1d 6193	. . . . . . 7 ⊢ (𝑠 = 𝑘 → ((2nd ‘𝑠)‘(𝑀 + 1)) = ((2nd ‘𝑘)‘(𝑀 + 1)))
501	500	eqeq1d 2624	. . . . . 6 ⊢ (𝑠 = 𝑘 → (((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1) ↔ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)))
502	497, 499, 501	3anbi123d 1399	. . . . 5 ⊢ (𝑠 = 𝑘 → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))))
503	502	ralrab 3368	. . . 4 ⊢ (∀𝑘 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ ∀𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘𝑓 + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
504	484, 503	sylibr 224	. . 3 ⊢ (𝜑 → ∀𝑘 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
505		eqid 2622	. . . 4 ⊢ (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) = (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
506	505	f1ompt 6382	. . 3 ⊢ ((𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩):{𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}–1-1-onto→{𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ↔ (∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ∧ ∀𝑘 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
507	60, 504, 506	sylanbrc 698	. 2 ⊢ (𝜑 → (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩):{𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}–1-1-onto→{𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
508		ovex 6678	. . . . 5 ⊢ ((0..^𝐾) ↑𝑚 (1...𝑀)) ∈ V
509		ovex 6678	. . . . . 6 ⊢ ((1...𝑀) ↑𝑚 (1...𝑀)) ∈ V
510		f1of 6137	. . . . . . . 8 ⊢ (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) → 𝑓:(1...𝑀)⟶(1...𝑀))
511	510	ss2abi 3674	. . . . . . 7 ⊢ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ⊆ {𝑓 ∣ 𝑓:(1...𝑀)⟶(1...𝑀)}
512	68, 68	mapval 7869	. . . . . . 7 ⊢ ((1...𝑀) ↑𝑚 (1...𝑀)) = {𝑓 ∣ 𝑓:(1...𝑀)⟶(1...𝑀)}
513	511, 512	sseqtr4i 3638	. . . . . 6 ⊢ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ⊆ ((1...𝑀) ↑𝑚 (1...𝑀))
514	509, 513	ssexi 4803	. . . . 5 ⊢ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ∈ V
515	508, 514	xpex 6962	. . . 4 ⊢ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∈ V
516	515	rabex 4813	. . 3 ⊢ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ∈ V
517	516	f1oen 7976	. 2 ⊢ ((𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩):{𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}–1-1-onto→{𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} → {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ≈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
518	507, 517	syl 17	1 ⊢ (𝜑 → {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ≈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘𝑓 + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 196   ∧ wa 384   ∧ w3a 1037   = wceq 1483   ∈ wcel 1990  {cab 2608  ∀wral 2912  ∃wrex 2913  ∃!wreu 2914  {crab 2916  Vcvv 3200  ⦋csb 3533   ∖ cdif 3571   ∪ cun 3572   ∩ cin 3573   ⊆ wss 3574  ∅c0 3915  {csn 4177  ⟨cop 4183   class class class wbr 4653   ↦ cmpt 4729   × cxp 5112  ^◡ccnv 5113   ↾ cres 5116   “ cima 5117  Fun wfun 5882   Fn wfn 5883  ⟶wf 5884  –1-1→wf1 5885  –onto→wfo 5886  –1-1-onto→wf1o 5887  ‘cfv 5888  (class class class)co 6650   ∘_𝑓 cof 6895  1^st c1st 7166  2^nd c2nd 7167   ↑_𝑚 cmap 7857   ≈ cen 7952  Fincfn 7955  ℂcc 9934  ℝcr 9935  0cc0 9936  1c1 9937   + caddc 9939   < clt 10074   ≤ cle 10075   − cmin 10266  ℕcn 11020  ℕ₀cn0 11292  ℤcz 11377  ℤ_≥cuz 11687  ...cfz 12326  ..^cfzo 12465

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-iun 4522  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-of 6897  df-om 7066  df-1st 7168  df-2nd 7169  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-er 7742  df-map 7859  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-nn 11021  df-n0 11293  df-z 11378  df-uz 11688  df-fz 12327  df-fzo 12466

This theorem is referenced by:  poimirlem28  33437