Theorem poimirlem4 35781

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

Hypotheses

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

Assertion

Ref

Expression

poimirlem4

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

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

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

Proof of Theorem poimirlem4

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

Step	Hyp	Ref	Expression
1		poimir.0	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ ℕ)
2	1	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝑁 ∈ ℕ)
3		poimirlem4.1	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ ℕ)
4	3	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝐾 ∈ ℕ)
5		poimirlem4.2	. . . . . . . 8 ⊢ (𝜑 → 𝑀 ∈ ℕ0)
6	5	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝑀 ∈ ℕ0)
7		poimirlem4.3	. . . . . . . 8 ⊢ (𝜑 → 𝑀 < 𝑁)
8	7	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝑀 < 𝑁)
9		xp1st 7863	. . . . . . . . 9 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (1st ‘𝑡) ∈ ((0..^𝐾) ↑m (1...𝑀)))
10		elmapi 8637	. . . . . . . . 9 ⊢ ((1st ‘𝑡) ∈ ((0..^𝐾) ↑m (1...𝑀)) → (1st ‘𝑡):(1...𝑀)⟶(0..^𝐾))
11	9, 10	syl 17	. . . . . . . 8 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (1st ‘𝑡):(1...𝑀)⟶(0..^𝐾))
12	11	adantl 482	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (1st ‘𝑡):(1...𝑀)⟶(0..^𝐾))
13		xp2nd 7864	. . . . . . . . 9 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd ‘𝑡) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})
14		fvex 6787	. . . . . . . . . 10 ⊢ (2nd ‘𝑡) ∈ V
15		f1oeq1 6704	. . . . . . . . . 10 ⊢ (𝑓 = (2nd ‘𝑡) → (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) ↔ (2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀)))
16	14, 15	elab 3609	. . . . . . . . 9 ⊢ ((2nd ‘𝑡) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ↔ (2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀))
17	13, 16	sylib 217	. . . . . . . 8 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀))
18	17	adantl 482	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀))
19	2, 4, 6, 8, 12, 18	poimirlem3 35780	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → (⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)) = 0 ∧ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)) = (𝑀 + 1)))))
20		fvex 6787	. . . . . . . . . . . . . . . 16 ⊢ (1st ‘𝑡) ∈ V
21		snex 5354	. . . . . . . . . . . . . . . 16 ⊢ {⟨(𝑀 + 1), 0⟩} ∈ V
22	20, 21	unex 7596	. . . . . . . . . . . . . . 15 ⊢ ((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∈ V
23		snex 5354	. . . . . . . . . . . . . . . 16 ⊢ {⟨(𝑀 + 1), (𝑀 + 1)⟩} ∈ V
24	14, 23	unex 7596	. . . . . . . . . . . . . . 15 ⊢ ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∈ V
25	22, 24	op1std 7841	. . . . . . . . . . . . . 14 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (1st ‘𝑠) = ((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}))
26	22, 24	op2ndd 7842	. . . . . . . . . . . . . . . . 17 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (2nd ‘𝑠) = ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
27	26	imaeq1d 5968	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((2nd ‘𝑠) “ (1...𝑗)) = (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)))
28	27	xpeq1d 5618	. . . . . . . . . . . . . . 15 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((2nd ‘𝑠) “ (1...𝑗)) × {1}) = ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}))
29	26	imaeq1d 5968	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) = (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))))
30	29	xpeq1d 5618	. . . . . . . . . . . . . . 15 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))
31	28, 30	uneq12d 4098	. . . . . . . . . . . . . 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 7293	. . . . . . . . . . . . 13 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) = (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))))
33	32	uneq1d 4096	. . . . . . . . . . . 12 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
34	33	csbeq1d 3836	. . . . . . . . . . 11 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
35	34	eqeq2d 2749	. . . . . . . . . 10 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
36	35	rexbidv 3226	. . . . . . . . 9 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
37	36	ralbidv 3112	. . . . . . . 8 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
38	25	fveq1d 6776	. . . . . . . . 9 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((1st ‘𝑠)‘(𝑀 + 1)) = (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)))
39	38	eqeq1d 2740	. . . . . . . 8 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((1st ‘𝑠)‘(𝑀 + 1)) = 0 ↔ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)) = 0))
40	26	fveq1d 6776	. . . . . . . . 9 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((2nd ‘𝑠)‘(𝑀 + 1)) = (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)))
41	40	eqeq1d 2740	. . . . . . . 8 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1) ↔ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)) = (𝑀 + 1)))
42	37, 39, 41	3anbi123d 1435	. . . . . . 7 ⊢ (𝑠 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)) = 0 ∧ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)) = (𝑀 + 1))))
43	42	elrab 3624	. . . . . 6 ⊢ (⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ↔ (⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘f + (((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)) = 0 ∧ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)) = (𝑀 + 1))))
44	19, 43	syl6ibr 251	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}))
45	44	ralrimiva 3103	. . . 4 ⊢ (𝜑 → ∀𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}))
46		fveq2 6774	. . . . . . . . . . 11 ⊢ (𝑠 = 𝑡 → (1st ‘𝑠) = (1st ‘𝑡))
47		fveq2 6774	. . . . . . . . . . . . . 14 ⊢ (𝑠 = 𝑡 → (2nd ‘𝑠) = (2nd ‘𝑡))
48	47	imaeq1d 5968	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑡 → ((2nd ‘𝑠) “ (1...𝑗)) = ((2nd ‘𝑡) “ (1...𝑗)))
49	48	xpeq1d 5618	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑡 → (((2nd ‘𝑠) “ (1...𝑗)) × {1}) = (((2nd ‘𝑡) “ (1...𝑗)) × {1}))
50	47	imaeq1d 5968	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑡 → ((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) = ((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)))
51	50	xpeq1d 5618	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑡 → (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}) = (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))
52	49, 51	uneq12d 4098	. . . . . . . . . . 11 ⊢ (𝑠 = 𝑡 → ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0})) = ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0})))
53	46, 52	oveq12d 7293	. . . . . . . . . 10 ⊢ (𝑠 = 𝑡 → ((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) = ((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))))
54	53	uneq1d 4096	. . . . . . . . 9 ⊢ (𝑠 = 𝑡 → (((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = (((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})))
55	54	csbeq1d 3836	. . . . . . . 8 ⊢ (𝑠 = 𝑡 → ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
56	55	eqeq2d 2749	. . . . . . 7 ⊢ (𝑠 = 𝑡 → (𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
57	56	rexbidv 3226	. . . . . 6 ⊢ (𝑠 = 𝑡 → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
58	57	ralbidv 3112	. . . . 5 ⊢ (𝑠 = 𝑡 → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
59	58	ralrab 3630	. . . 4 ⊢ (∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ↔ ∀𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}))
60	45, 59	sylibr 233	. . 3 ⊢ (𝜑 → ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
61		xp1st 7863	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (1st ‘𝑘) ∈ ((0..^𝐾) ↑m (1...(𝑀 + 1))))
62		elmapi 8637	. . . . . . . . . . . . . . 15 ⊢ ((1st ‘𝑘) ∈ ((0..^𝐾) ↑m (1...(𝑀 + 1))) → (1st ‘𝑘):(1...(𝑀 + 1))⟶(0..^𝐾))
63	61, 62	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (1st ‘𝑘):(1...(𝑀 + 1))⟶(0..^𝐾))
64		fzssp1 13299	. . . . . . . . . . . . . 14 ⊢ (1...𝑀) ⊆ (1...(𝑀 + 1))
65		fssres 6640	. . . . . . . . . . . . . 14 ⊢ (((1st ‘𝑘):(1...(𝑀 + 1))⟶(0..^𝐾) ∧ (1...𝑀) ⊆ (1...(𝑀 + 1))) → ((1st ‘𝑘) ↾ (1...𝑀)):(1...𝑀)⟶(0..^𝐾))
66	63, 64, 65	sylancl 586	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((1st ‘𝑘) ↾ (1...𝑀)):(1...𝑀)⟶(0..^𝐾))
67		ovex 7308	. . . . . . . . . . . . . 14 ⊢ (0..^𝐾) ∈ V
68		ovex 7308	. . . . . . . . . . . . . 14 ⊢ (1...𝑀) ∈ V
69	67, 68	elmap 8659	. . . . . . . . . . . . 13 ⊢ (((1st ‘𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑m (1...𝑀)) ↔ ((1st ‘𝑘) ↾ (1...𝑀)):(1...𝑀)⟶(0..^𝐾))
70	66, 69	sylibr 233	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((1st ‘𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑m (1...𝑀)))
71	70	ad2antlr 724	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((1st ‘𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑m (1...𝑀)))
72		xp2nd 7864	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd ‘𝑘) ∈ {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})
73		fvex 6787	. . . . . . . . . . . . . . . . . 18 ⊢ (2nd ‘𝑘) ∈ V
74		f1oeq1 6704	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑓 = (2nd ‘𝑘) → (𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) ↔ (2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))))
75	73, 74	elab 3609	. . . . . . . . . . . . . . . . 17 ⊢ ((2nd ‘𝑘) ∈ {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))} ↔ (2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)))
76	72, 75	sylib 217	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)))
77		f1of1 6715	. . . . . . . . . . . . . . . 16 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → (2nd ‘𝑘):(1...(𝑀 + 1))–1-1→(1...(𝑀 + 1)))
78	76, 77	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd ‘𝑘):(1...(𝑀 + 1))–1-1→(1...(𝑀 + 1)))
79		f1ores 6730	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑘):(1...(𝑀 + 1))–1-1→(1...(𝑀 + 1)) ∧ (1...𝑀) ⊆ (1...(𝑀 + 1))) → ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd ‘𝑘) “ (1...𝑀)))
80	78, 64, 79	sylancl 586	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd ‘𝑘) “ (1...𝑀)))
81	80	ad2antlr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd ‘𝑘) “ (1...𝑀)))
82		dff1o3 6722	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) ↔ ((2nd ‘𝑘):(1...(𝑀 + 1))–onto→(1...(𝑀 + 1)) ∧ Fun ◡(2nd ‘𝑘)))
83	82	simprbi 497	. . . . . . . . . . . . . . . . . 18 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → Fun ◡(2nd ‘𝑘))
84		imadif 6518	. . . . . . . . . . . . . . . . . 18 ⊢ (Fun ◡(2nd ‘𝑘) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
85	76, 83, 84	3syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
86	85	ad2antlr 724	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
87		f1ofo 6723	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → (2nd ‘𝑘):(1...(𝑀 + 1))–onto→(1...(𝑀 + 1)))
88		foima 6693	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–onto→(1...(𝑀 + 1)) → ((2nd ‘𝑘) “ (1...(𝑀 + 1))) = (1...(𝑀 + 1)))
89	76, 87, 88	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) “ (1...(𝑀 + 1))) = (1...(𝑀 + 1)))
90	89	ad2antlr 724	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ (1...(𝑀 + 1))) = (1...(𝑀 + 1)))
91		f1ofn 6717	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((2nd ‘𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → (2nd ‘𝑘) Fn (1...(𝑀 + 1)))
92	76, 91	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd ‘𝑘) Fn (1...(𝑀 + 1)))
93		nn0p1nn 12272	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑀 ∈ ℕ0 → (𝑀 + 1) ∈ ℕ)
94	5, 93	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑀 + 1) ∈ ℕ)
95		elfz1end 13286	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑀 + 1) ∈ ℕ ↔ (𝑀 + 1) ∈ (1...(𝑀 + 1)))
96	94, 95	sylib 217	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑀 + 1) ∈ (1...(𝑀 + 1)))
97		fnsnfv 6847	. . . . . . . . . . . . . . . . . . 19 ⊢ (((2nd ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ (1...(𝑀 + 1))) → {((2nd ‘𝑘)‘(𝑀 + 1))} = ((2nd ‘𝑘) “ {(𝑀 + 1)}))
98	92, 96, 97	syl2anr 597	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → {((2nd ‘𝑘)‘(𝑀 + 1))} = ((2nd ‘𝑘) “ {(𝑀 + 1)}))
99		sneq 4571	. . . . . . . . . . . . . . . . . 18 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → {((2nd ‘𝑘)‘(𝑀 + 1))} = {(𝑀 + 1)})
100	98, 99	sylan9req 2799	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ {(𝑀 + 1)}) = {(𝑀 + 1)})
101	90, 100	difeq12d 4058	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})) = ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}))
102	86, 101	eqtrd 2778	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}))
103		1z 12350	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 1 ∈ ℤ
104		nn0uz 12620	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ℕ0 = (ℤ≥‘0)
105		1m1e0 12045	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (1 − 1) = 0
106	105	fveq2i 6777	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (ℤ≥‘(1 − 1)) = (ℤ≥‘0)
107	104, 106	eqtr4i 2769	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ℕ0 = (ℤ≥‘(1 − 1))
108	5, 107	eleqtrdi 2849	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑀 ∈ (ℤ≥‘(1 − 1)))
109		fzsuc2 13314	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((1 ∈ ℤ ∧ 𝑀 ∈ (ℤ≥‘(1 − 1))) → (1...(𝑀 + 1)) = ((1...𝑀) ∪ {(𝑀 + 1)}))
110	103, 108, 109	sylancr 587	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (1...(𝑀 + 1)) = ((1...𝑀) ∪ {(𝑀 + 1)}))
111	110	difeq1d 4056	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (((1...𝑀) ∪ {(𝑀 + 1)}) ∖ {(𝑀 + 1)}))
112		difun2 4414	. . . . . . . . . . . . . . . . . . 19 ⊢ (((1...𝑀) ∪ {(𝑀 + 1)}) ∖ {(𝑀 + 1)}) = ((1...𝑀) ∖ {(𝑀 + 1)})
113	111, 112	eqtrdi 2794	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = ((1...𝑀) ∖ {(𝑀 + 1)}))
114	5	nn0red 12294	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑀 ∈ ℝ)
115		ltp1 11815	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑀 ∈ ℝ → 𝑀 < (𝑀 + 1))
116		peano2re 11148	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑀 ∈ ℝ → (𝑀 + 1) ∈ ℝ)
117		ltnle 11054	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑀 ∈ ℝ ∧ (𝑀 + 1) ∈ ℝ) → (𝑀 < (𝑀 + 1) ↔ ¬ (𝑀 + 1) ≤ 𝑀))
118	116, 117	mpdan 684	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑀 ∈ ℝ → (𝑀 < (𝑀 + 1) ↔ ¬ (𝑀 + 1) ≤ 𝑀))
119	115, 118	mpbid 231	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑀 ∈ ℝ → ¬ (𝑀 + 1) ≤ 𝑀)
120	114, 119	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ¬ (𝑀 + 1) ≤ 𝑀)
121		elfzle2 13260	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑀 + 1) ∈ (1...𝑀) → (𝑀 + 1) ≤ 𝑀)
122	120, 121	nsyl 140	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ¬ (𝑀 + 1) ∈ (1...𝑀))
123		difsn 4731	. . . . . . . . . . . . . . . . . . 19 ⊢ (¬ (𝑀 + 1) ∈ (1...𝑀) → ((1...𝑀) ∖ {(𝑀 + 1)}) = (1...𝑀))
124	122, 123	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((1...𝑀) ∖ {(𝑀 + 1)}) = (1...𝑀))
125	113, 124	eqtrd 2778	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (1...𝑀))
126	125	imaeq2d 5969	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) “ (1...𝑀)))
127	126	ad2antrr 723	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) “ (1...𝑀)))
128	125	ad2antrr 723	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (1...𝑀))
129	102, 127, 128	3eqtr3d 2786	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ (1...𝑀)) = (1...𝑀))
130	129	f1oeq3d 6713	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd ‘𝑘) “ (1...𝑀)) ↔ ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀)))
131	81, 130	mpbid 231	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀))
132	73	resex 5939	. . . . . . . . . . . . 13 ⊢ ((2nd ‘𝑘) ↾ (1...𝑀)) ∈ V
133		f1oeq1 6704	. . . . . . . . . . . . 13 ⊢ (𝑓 = ((2nd ‘𝑘) ↾ (1...𝑀)) → (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) ↔ ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀)))
134	132, 133	elab 3609	. . . . . . . . . . . 12 ⊢ (((2nd ‘𝑘) ↾ (1...𝑀)) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ↔ ((2nd ‘𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀))
135	131, 134	sylibr 233	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) ↾ (1...𝑀)) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})
136	71, 135	opelxpd 5627	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
137	136	3ad2antr3 1189	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
138		3anass 1094	. . . . . . . . . . 11 ⊢ ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))))
139	138	biancomi 463	. . . . . . . . . 10 ⊢ ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ ((((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
140	94	nnzd 12425	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (𝑀 + 1) ∈ ℤ)
141		uzid 12597	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑀 + 1) ∈ ℤ → (𝑀 + 1) ∈ (ℤ≥‘(𝑀 + 1)))
142		peano2uz 12641	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑀 + 1) ∈ (ℤ≥‘(𝑀 + 1)) → ((𝑀 + 1) + 1) ∈ (ℤ≥‘(𝑀 + 1)))
143	140, 141, 142	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((𝑀 + 1) + 1) ∈ (ℤ≥‘(𝑀 + 1)))
144	5	nn0zd 12424	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → 𝑀 ∈ ℤ)
145	1	nnzd 12425	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → 𝑁 ∈ ℤ)
146		zltp1le 12370	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 < 𝑁 ↔ (𝑀 + 1) ≤ 𝑁))
147		peano2z 12361	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑀 ∈ ℤ → (𝑀 + 1) ∈ ℤ)
148		eluz 12596	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑀 + 1) ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑁 ∈ (ℤ≥‘(𝑀 + 1)) ↔ (𝑀 + 1) ≤ 𝑁))
149	147, 148	sylan 580	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑁 ∈ (ℤ≥‘(𝑀 + 1)) ↔ (𝑀 + 1) ≤ 𝑁))
150	146, 149	bitr4d 281	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 < 𝑁 ↔ 𝑁 ∈ (ℤ≥‘(𝑀 + 1))))
151	144, 145, 150	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (𝑀 < 𝑁 ↔ 𝑁 ∈ (ℤ≥‘(𝑀 + 1))))
152	7, 151	mpbid 231	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝑁 ∈ (ℤ≥‘(𝑀 + 1)))
153		fzsplit2 13281	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝑀 + 1) + 1) ∈ (ℤ≥‘(𝑀 + 1)) ∧ 𝑁 ∈ (ℤ≥‘(𝑀 + 1))) → ((𝑀 + 1)...𝑁) = (((𝑀 + 1)...(𝑀 + 1)) ∪ (((𝑀 + 1) + 1)...𝑁)))
154	143, 152, 153	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((𝑀 + 1)...𝑁) = (((𝑀 + 1)...(𝑀 + 1)) ∪ (((𝑀 + 1) + 1)...𝑁)))
155		fzsn 13298	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑀 + 1) ∈ ℤ → ((𝑀 + 1)...(𝑀 + 1)) = {(𝑀 + 1)})
156	140, 155	syl 17	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((𝑀 + 1)...(𝑀 + 1)) = {(𝑀 + 1)})
157	156	uneq1d 4096	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (((𝑀 + 1)...(𝑀 + 1)) ∪ (((𝑀 + 1) + 1)...𝑁)) = ({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)))
158	154, 157	eqtrd 2778	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((𝑀 + 1)...𝑁) = ({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)))
159	158	xpeq1d 5618	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝑀 + 1)...𝑁) × {0}) = (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0}))
160	159	uneq2d 4097	. . . . . . . . . . . . . . . . . . . 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})))
161		xpundir 5656	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0}) = (({(𝑀 + 1)} × {0}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0}))
162		ovex 7308	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑀 + 1) ∈ V
163		c0ex 10969	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ 0 ∈ V
164	162, 163	xpsn 7013	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ({(𝑀 + 1)} × {0}) = {⟨(𝑀 + 1), 0⟩}
165	164	uneq1i 4093	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (({(𝑀 + 1)} × {0}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ({⟨(𝑀 + 1), 0⟩} ∪ ((((𝑀 + 1) + 1)...𝑁) × {0}))
166	161, 165	eqtri 2766	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0}) = ({⟨(𝑀 + 1), 0⟩} ∪ ((((𝑀 + 1) + 1)...𝑁) × {0}))
167	166	uneq2i 4094	. . . . . . . . . . . . . . . . . . . . 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})))
168		unass 4100	. . . . . . . . . . . . . . . . . . . . 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})))
169	167, 168	eqtr4i 2769	. . . . . . . . . . . . . . . . . . . 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}))
170	160, 169	eqtrdi 2794	. . . . . . . . . . . . . . . . . . 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})))
171	170	ad3antrrr 727	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})) = (((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ {⟨(𝑀 + 1), 0⟩}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
172	162	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑀 + 1) ∈ V)
173	163	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → 0 ∈ V)
174	110	eqcomd 2744	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((1...𝑀) ∪ {(𝑀 + 1)}) = (1...(𝑀 + 1)))
175	174	ad3antrrr 727	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((1...𝑀) ∪ {(𝑀 + 1)}) = (1...(𝑀 + 1)))
176		fveq2 6774	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 = (𝑀 + 1) → ((1st ‘𝑘)‘𝑛) = ((1st ‘𝑘)‘(𝑀 + 1)))
177		fveq2 6774	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 = (𝑀 + 1) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)))
178	176, 177	oveq12d 7293	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 = (𝑀 + 1) → (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛)) = (((1st ‘𝑘)‘(𝑀 + 1)) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1))))
179		simplrl 774	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((1st ‘𝑘)‘(𝑀 + 1)) = 0)
180		imain 6519	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (Fun ◡(2nd ‘𝑘) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
181	76, 83, 180	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
182	181	ad2antlr 724	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
183		elfznn0 13349	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℕ0)
184	183	nn0red 12294	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℝ)
185	184	ltp1d 11905	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ (0...𝑀) → 𝑗 < (𝑗 + 1))
186		fzdisj 13283	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 < (𝑗 + 1) → ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1))) = ∅)
187	185, 186	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1))) = ∅)
188	187	imaeq2d 5969	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = ((2nd ‘𝑘) “ ∅))
189		ima0 5985	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((2nd ‘𝑘) “ ∅) = ∅
190	188, 189	eqtrdi 2794	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = ∅)
191	182, 190	sylan9req 2799	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ∅)
192		simplr 766	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))
193	92	ad2antlr 724	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (2nd ‘𝑘) Fn (1...(𝑀 + 1)))
194		nn0p1nn 12272	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑗 ∈ ℕ0 → (𝑗 + 1) ∈ ℕ)
195		nnuz 12621	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ℕ = (ℤ≥‘1)
196	194, 195	eleqtrdi 2849	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ ℕ0 → (𝑗 + 1) ∈ (ℤ≥‘1))
197		fzss1 13295	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑗 + 1) ∈ (ℤ≥‘1) → ((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)))
198	183, 196, 197	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → ((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)))
199		elfzuz3 13253	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ (0...𝑀) → 𝑀 ∈ (ℤ≥‘𝑗))
200		eluzp1p1 12610	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑀 ∈ (ℤ≥‘𝑗) → (𝑀 + 1) ∈ (ℤ≥‘(𝑗 + 1)))
201		eluzfz2 13264	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑀 + 1) ∈ (ℤ≥‘(𝑗 + 1)) → (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1)))
202	199, 200, 201	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1)))
203	198, 202	jca 512	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 ∈ (0...𝑀) → (((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1))))
204		fnfvima 7109	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((2nd ‘𝑘) Fn (1...(𝑀 + 1)) ∧ ((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1))) → ((2nd ‘𝑘)‘(𝑀 + 1)) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
205	204	3expb 1119	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((2nd ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1)))) → ((2nd ‘𝑘)‘(𝑀 + 1)) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
206	193, 203, 205	syl2an 596	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd ‘𝑘)‘(𝑀 + 1)) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
207	192, 206	eqeltrrd 2840	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (𝑀 + 1) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
208		1ex 10971	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ 1 ∈ V
209		fnconstg 6662	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (1 ∈ V → (((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗)))
210	208, 209	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗))
211		fnconstg 6662	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (0 ∈ V → (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
212	163, 211	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))
213		fvun2 6860	. . . . . . . . . . . . . . . . . . . . . . . . . . 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)))
214	210, 212, 213	mp3an12 1450	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ∅ ∧ (𝑀 + 1) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)))
215	191, 207, 214	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)))
216	163	fvconst2 7079	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑀 + 1) ∈ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) → ((((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)) = 0)
217	207, 216	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)) = 0)
218	215, 217	eqtrd 2778	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)) = 0)
219	218	adantlrl 717	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)) = 0)
220	179, 219	oveq12d 7293	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘)‘(𝑀 + 1)) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1))) = (0 + 0))
221		00id 11150	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0 + 0) = 0
222	220, 221	eqtrdi 2794	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘)‘(𝑀 + 1)) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1))) = 0)
223	178, 222	sylan9eqr 2800	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 = (𝑀 + 1)) → (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛)) = 0)
224	172, 173, 175, 223	fmptapd 7043	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ {⟨(𝑀 + 1), 0⟩}) = (𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))))
225	224	uneq1d 4096	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ {⟨(𝑀 + 1), 0⟩}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
226	171, 225	eqtrd 2778	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
227		elmapfn 8653	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((1st ‘𝑘) ∈ ((0..^𝐾) ↑m (1...(𝑀 + 1))) → (1st ‘𝑘) Fn (1...(𝑀 + 1)))
228	61, 227	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (1st ‘𝑘) Fn (1...(𝑀 + 1)))
229		fnssres 6555	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((1st ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (1...𝑀) ⊆ (1...(𝑀 + 1))) → ((1st ‘𝑘) ↾ (1...𝑀)) Fn (1...𝑀))
230	228, 64, 229	sylancl 586	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((1st ‘𝑘) ↾ (1...𝑀)) Fn (1...𝑀))
231	230	ad3antlr 728	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1st ‘𝑘) ↾ (1...𝑀)) Fn (1...𝑀))
232		fnconstg 6662	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (0 ∈ V → (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
233	163, 232	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))
234	210, 233	pm3.2i 471	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗)) ∧ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
235		imain 6519	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (Fun ◡(2nd ‘𝑘) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
236	76, 83, 235	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
237		fzdisj 13283	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 < (𝑗 + 1) → ((1...𝑗) ∩ ((𝑗 + 1)...𝑀)) = ∅)
238	185, 237	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑗 ∈ (0...𝑀) → ((1...𝑗) ∩ ((𝑗 + 1)...𝑀)) = ∅)
239	238	imaeq2d 5969	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = ((2nd ‘𝑘) “ ∅))
240	239, 189	eqtrdi 2794	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = ∅)
241	236, 240	sylan9req 2799	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))) = ∅)
242		fnun 6545	. . . . . . . . . . . . . . . . . . . . . . . 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)...𝑀))))
243	234, 241, 242	sylancr 587	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
244	243	ad4ant24 751	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
245	101	adantr 481	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})) = ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}))
246	85	ad3antlr 728	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
247	183, 194	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ ℕ)
248	247, 195	eleqtrdi 2849	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ (ℤ≥‘1))
249		fzsplit2 13281	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝑗 + 1) ∈ (ℤ≥‘1) ∧ 𝑀 ∈ (ℤ≥‘𝑗)) → (1...𝑀) = ((1...𝑗) ∪ ((𝑗 + 1)...𝑀)))
250	248, 199, 249	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 ∈ (0...𝑀) → (1...𝑀) = ((1...𝑗) ∪ ((𝑗 + 1)...𝑀)))
251	128, 250	sylan9eq 2798	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = ((1...𝑗) ∪ ((𝑗 + 1)...𝑀)))
252	251	imaeq2d 5969	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd ‘𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))))
253	246, 252	eqtr3d 2780	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd ‘𝑘) “ {(𝑀 + 1)})) = ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))))
254	125	ad3antrrr 727	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (1...𝑀))
255	245, 253, 254	3eqtr3rd 2787	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (1...𝑀) = ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))))
256		imaundi 6053	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))) = (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
257	255, 256	eqtrdi 2794	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (1...𝑀) = (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀))))
258	257	fneq2d 6527	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀) ↔ ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))))
259	244, 258	mpbird 256	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀))
260		fzss2 13296	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑀 ∈ (ℤ≥‘𝑗) → (1...𝑗) ⊆ (1...𝑀))
261		resima2 5926	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((1...𝑗) ⊆ (1...𝑀) → (((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) = ((2nd ‘𝑘) “ (1...𝑗)))
262	199, 260, 261	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) = ((2nd ‘𝑘) “ (1...𝑗)))
263	262	xpeq1d 5618	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑗 ∈ (0...𝑀) → ((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) = (((2nd ‘𝑘) “ (1...𝑗)) × {1}))
264	183, 196	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ (ℤ≥‘1))
265		fzss1 13295	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑗 + 1) ∈ (ℤ≥‘1) → ((𝑗 + 1)...𝑀) ⊆ (1...𝑀))
266		resima2 5926	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝑗 + 1)...𝑀) ⊆ (1...𝑀) → (((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) = ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
267	264, 265, 266	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) = ((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)))
268	267	xpeq1d 5618	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑗 ∈ (0...𝑀) → ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}) = (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))
269	263, 268	uneq12d 4098	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑗 ∈ (0...𝑀) → (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})))
270	269	adantl 482	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})))
271	270	fneq1d 6526	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀) ↔ ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀)))
272	259, 271	mpbird 256	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀))
273		fzfid 13693	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (1...𝑀) ∈ Fin)
274		inidm 4152	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((1...𝑀) ∩ (1...𝑀)) = (1...𝑀)
275		fvres 6793	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ (1...𝑀) → (((1st ‘𝑘) ↾ (1...𝑀))‘𝑛) = ((1st ‘𝑘)‘𝑛))
276	275	adantl 482	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → (((1st ‘𝑘) ↾ (1...𝑀))‘𝑛) = ((1st ‘𝑘)‘𝑛))
277		disjsn 4647	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((1...𝑀) ∩ {(𝑀 + 1)}) = ∅ ↔ ¬ (𝑀 + 1) ∈ (1...𝑀))
278	122, 277	sylibr 233	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((1...𝑀) ∩ {(𝑀 + 1)}) = ∅)
279	278	ad3antrrr 727	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1...𝑀) ∩ {(𝑀 + 1)}) = ∅)
280	259, 279	jca 512	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀) ∧ ((1...𝑀) ∩ {(𝑀 + 1)}) = ∅))
281		fnconstg 6662	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (0 ∈ V → ({(𝑀 + 1)} × {0}) Fn {(𝑀 + 1)})
282	163, 281	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ({(𝑀 + 1)} × {0}) Fn {(𝑀 + 1)}
283		fvun1 6859	. . . . . . . . . . . . . . . . . . . . . . . 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}))‘𝑛))
284	282, 283	mp3an2 1448	. . . . . . . . . . . . . . . . . . . . . . 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}))‘𝑛))
285	284	anassrs 468	. . . . . . . . . . . . . . . . . . . . . 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}))‘𝑛))
286	280, 285	sylan 580	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → ((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛))
287	247	nnzd 12425	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ ℤ)
288	183	nn0cnd 12295	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℂ)
289		pncan1 11399	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝑗 ∈ ℂ → ((𝑗 + 1) − 1) = 𝑗)
290	288, 289	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝑗 ∈ (0...𝑀) → ((𝑗 + 1) − 1) = 𝑗)
291	290	fveq2d 6778	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑗 ∈ (0...𝑀) → (ℤ≥‘((𝑗 + 1) − 1)) = (ℤ≥‘𝑗))
292	199, 291	eleqtrrd 2842	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑗 ∈ (0...𝑀) → 𝑀 ∈ (ℤ≥‘((𝑗 + 1) − 1)))
293		fzsuc2 13314	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((𝑗 + 1) ∈ ℤ ∧ 𝑀 ∈ (ℤ≥‘((𝑗 + 1) − 1))) → ((𝑗 + 1)...(𝑀 + 1)) = (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)}))
294	287, 292, 293	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑗 ∈ (0...𝑀) → ((𝑗 + 1)...(𝑀 + 1)) = (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)}))
295	294	imaeq2d 5969	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) = ((2nd ‘𝑘) “ (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)})))
296		imaundi 6053	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((2nd ‘𝑘) “ (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)})) = (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd ‘𝑘) “ {(𝑀 + 1)}))
297	295, 296	eqtrdi 2794	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) = (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd ‘𝑘) “ {(𝑀 + 1)})))
298	297	xpeq1d 5618	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd ‘𝑘) “ {(𝑀 + 1)})) × {0}))
299		xpundir 5656	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd ‘𝑘) “ {(𝑀 + 1)})) × {0}) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0}))
300	298, 299	eqtrdi 2794	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
301	300	uneq2d 4097	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑗 ∈ (0...𝑀) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0}))))
302		unass 4100	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
303	301, 302	eqtr4di 2796	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑗 ∈ (0...𝑀) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
304	303	adantl 482	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
305	98	xpeq1d 5618	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0}) = (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0}))
306	305	uneq2d 4097	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
307	306	adantr 481	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd ‘𝑘) “ {(𝑀 + 1)}) × {0})))
308	304, 307	eqtr4d 2781	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0})))
309	99	xpeq1d 5618	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0}) = ({(𝑀 + 1)} × {0}))
310	309	uneq2d 4097	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({((2nd ‘𝑘)‘(𝑀 + 1))} × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0})))
311	308, 310	sylan9eq 2798	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ 𝑗 ∈ (0...𝑀)) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0})))
312	311	an32s 649	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0})))
313	312	fveq1d 6776	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛) = ((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0}))‘𝑛))
314	313	adantr 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛) = ((((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0}))‘𝑛))
315	269	fveq1d 6776	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑗 ∈ (0...𝑀) → ((((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛))
316	315	ad2antlr 724	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → ((((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛))
317	286, 314, 316	3eqtr4rd 2789	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → ((((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))
318	231, 272, 273, 273, 274, 276, 317	offval 7542	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) = (𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))))
319	318	uneq1d 4096	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})))
320	319	adantlrl 717	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...𝑀) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})))
321	228	adantr 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (1st ‘𝑘) Fn (1...(𝑀 + 1)))
322	210, 212	pm3.2i 471	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) Fn ((2nd ‘𝑘) “ (1...𝑗)) ∧ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) Fn ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
323	181, 190	sylan9req 2799	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...𝑗)) ∩ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ∅)
324		fnun 6545	. . . . . . . . . . . . . . . . . . . . . 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)))))
325	322, 323, 324	sylancr 587	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
326		peano2uz 12641	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑀 ∈ (ℤ≥‘𝑗) → (𝑀 + 1) ∈ (ℤ≥‘𝑗))
327	199, 326	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑗 ∈ (0...𝑀) → (𝑀 + 1) ∈ (ℤ≥‘𝑗))
328		fzsplit2 13281	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝑗 + 1) ∈ (ℤ≥‘1) ∧ (𝑀 + 1) ∈ (ℤ≥‘𝑗)) → (1...(𝑀 + 1)) = ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1))))
329	264, 327, 328	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑗 ∈ (0...𝑀) → (1...(𝑀 + 1)) = ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1))))
330	329	imaeq2d 5969	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑗 ∈ (0...𝑀) → ((2nd ‘𝑘) “ (1...(𝑀 + 1))) = ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1)))))
331		imaundi 6053	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((2nd ‘𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
332	330, 331	eqtr2di 2795	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑗 ∈ (0...𝑀) → (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ((2nd ‘𝑘) “ (1...(𝑀 + 1))))
333	332, 89	sylan9eqr 2800	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = (1...(𝑀 + 1)))
334	333	fneq2d 6527	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (((2nd ‘𝑘) “ (1...𝑗)) ∪ ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) ↔ ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (1...(𝑀 + 1))))
335	325, 334	mpbid 231	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (1...(𝑀 + 1)))
336		fzfid 13693	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (1...(𝑀 + 1)) ∈ Fin)
337		inidm 4152	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((1...(𝑀 + 1)) ∩ (1...(𝑀 + 1))) = (1...(𝑀 + 1))
338		eqidd 2739	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...(𝑀 + 1))) → ((1st ‘𝑘)‘𝑛) = ((1st ‘𝑘)‘𝑛))
339		eqidd 2739	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...(𝑀 + 1))) → (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛) = (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))
340	321, 335, 336, 336, 337, 338, 339	offval 7542	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) = (𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))))
341	340	uneq1d 4096	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
342	341	ad4ant24 751	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st ‘𝑘)‘𝑛) + (((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
343	226, 320, 342	3eqtr4rd 2789	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})))
344	343	csbeq1d 3836	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
345	344	eqeq2d 2749	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
346	345	rexbidva 3225	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
347	346	ralbidv 3112	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
348	347	biimpd 228	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 → ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
349	348	impr 455	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵)) → ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
350	139, 349	sylan2b 594	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
351		1st2nd2 7870	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → 𝑘 = ⟨(1st ‘𝑘), (2nd ‘𝑘)⟩)
352	351	ad2antlr 724	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → 𝑘 = ⟨(1st ‘𝑘), (2nd ‘𝑘)⟩)
353		fnsnsplit 7056	. . . . . . . . . . . . . . . 16 ⊢ (((1st ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ (1...(𝑀 + 1))) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩}))
354	228, 96, 353	syl2anr 597	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩}))
355	354	adantr 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩}))
356	125	reseq2d 5891	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1st ‘𝑘) ↾ (1...𝑀)))
357	356	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1st ‘𝑘) ↾ (1...𝑀)))
358		opeq2 4805	. . . . . . . . . . . . . . . 16 ⊢ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 → ⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩ = ⟨(𝑀 + 1), 0⟩)
359	358	sneqd 4573	. . . . . . . . . . . . . . 15 ⊢ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 → {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), 0⟩})
360		uneq12 4092	. . . . . . . . . . . . . . 15 ⊢ ((((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1st ‘𝑘) ↾ (1...𝑀)) ∧ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), 0⟩}) → (((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩}) = (((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
361	357, 359, 360	syl2an 596	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0) → (((1st ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st ‘𝑘)‘(𝑀 + 1))⟩}) = (((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
362	355, 361	eqtrd 2778	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
363	362	adantrr 714	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (1st ‘𝑘) = (((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
364		fnsnsplit 7056	. . . . . . . . . . . . . . . 16 ⊢ (((2nd ‘𝑘) Fn (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ (1...(𝑀 + 1))) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩}))
365	92, 96, 364	syl2anr 597	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩}))
366	365	adantr 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩}))
367	125	reseq2d 5891	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) ↾ (1...𝑀)))
368	367	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) ↾ (1...𝑀)))
369		opeq2 4805	. . . . . . . . . . . . . . . 16 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → ⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩ = ⟨(𝑀 + 1), (𝑀 + 1)⟩)
370	369	sneqd 4573	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), (𝑀 + 1)⟩})
371		uneq12 4092	. . . . . . . . . . . . . . 15 ⊢ ((((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd ‘𝑘) ↾ (1...𝑀)) ∧ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), (𝑀 + 1)⟩}) → (((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩}) = (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
372	368, 370, 371	syl2an 596	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (((2nd ‘𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd ‘𝑘)‘(𝑀 + 1))⟩}) = (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
373	366, 372	eqtrd 2778	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
374	373	adantrl 713	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (2nd ‘𝑘) = (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
375	363, 374	opeq12d 4812	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ⟨(1st ‘𝑘), (2nd ‘𝑘)⟩ = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
376	352, 375	eqtrd 2778	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → 𝑘 = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
377	376	3adantr1 1168	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → 𝑘 = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
378		fvex 6787	. . . . . . . . . . . . . . . . . . 19 ⊢ (1st ‘𝑘) ∈ V
379	378	resex 5939	. . . . . . . . . . . . . . . . . 18 ⊢ ((1st ‘𝑘) ↾ (1...𝑀)) ∈ V
380	379, 132	op1std 7841	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (1st ‘𝑡) = ((1st ‘𝑘) ↾ (1...𝑀)))
381	379, 132	op2ndd 7842	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (2nd ‘𝑡) = ((2nd ‘𝑘) ↾ (1...𝑀)))
382	381	imaeq1d 5968	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((2nd ‘𝑡) “ (1...𝑗)) = (((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)))
383	382	xpeq1d 5618	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (((2nd ‘𝑡) “ (1...𝑗)) × {1}) = ((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}))
384	381	imaeq1d 5968	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) = (((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)))
385	384	xpeq1d 5618	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}) = ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))
386	383, 385	uneq12d 4098	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0})) = (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})))
387	380, 386	oveq12d 7293	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) = (((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))))
388	387	uneq1d 4096	. . . . . . . . . . . . . . 15 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})))
389	388	csbeq1d 3836	. . . . . . . . . . . . . 14 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
390	389	eqeq2d 2749	. . . . . . . . . . . . 13 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
391	390	rexbidv 3226	. . . . . . . . . . . 12 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
392	391	ralbidv 3112	. . . . . . . . . . 11 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
393	380	uneq1d 4096	. . . . . . . . . . . . 13 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = (((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
394	381	uneq1d 4096	. . . . . . . . . . . . 13 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
395	393, 394	opeq12d 4812	. . . . . . . . . . . 12 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
396	395	eqeq2d 2749	. . . . . . . . . . 11 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → (𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ 𝑘 = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
397	392, 396	anbi12d 631	. . . . . . . . . 10 ⊢ (𝑡 = ⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)))
398	397	rspcev 3561	. . . . . . . . 9 ⊢ ((⟨((1st ‘𝑘) ↾ (1...𝑀)), ((2nd ‘𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋((((1st ‘𝑘) ↾ (1...𝑀)) ∘f + (((((2nd ‘𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨(((1st ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd ‘𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)) → ∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
399	137, 350, 377, 398	syl12anc 834	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
400	399	ex 413	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)))
401		elrabi 3618	. . . . . . . . . . 11 ⊢ (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} → 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
402		elrabi 3618	. . . . . . . . . . 11 ⊢ (𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} → 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
403	401, 402	anim12i 613	. . . . . . . . . 10 ⊢ ((𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ∧ 𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}) → (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})))
404		eqtr2 2762	. . . . . . . . . . . 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)⟩})⟩)
405	22, 24	opth 5391	. . . . . . . . . . . . 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)⟩})))
406		difeq1 4050	. . . . . . . . . . . . . . 15 ⊢ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) → (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}) = (((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}))
407		difun2 4414	. . . . . . . . . . . . . . 15 ⊢ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩})
408		difun2 4414	. . . . . . . . . . . . . . 15 ⊢ (((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩})
409	406, 407, 408	3eqtr3g 2801	. . . . . . . . . . . . . 14 ⊢ (((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) → ((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}))
410		difeq1 4050	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) → (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
411		difun2 4414	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})
412		difun2 4414	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})
413	410, 411, 412	3eqtr3g 2801	. . . . . . . . . . . . . 14 ⊢ (((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) → ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
414	409, 413	anim12i 613	. . . . . . . . . . . . 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)⟩})))
415	405, 414	sylbi 216	. . . . . . . . . . . 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)⟩})))
416	404, 415	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)⟩})))
417		elmapfn 8653	. . . . . . . . . . . . . . . . . . 19 ⊢ ((1st ‘𝑡) ∈ ((0..^𝐾) ↑m (1...𝑀)) → (1st ‘𝑡) Fn (1...𝑀))
418		fnop 6542	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((1st ‘𝑡) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡)) → (𝑀 + 1) ∈ (1...𝑀))
419	418	ex 413	. . . . . . . . . . . . . . . . . . 19 ⊢ ((1st ‘𝑡) Fn (1...𝑀) → (⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
420	9, 417, 419	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
421	420, 122	nsyli 157	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡)))
422	421	impcom 408	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡))
423		difsn 4731	. . . . . . . . . . . . . . . 16 ⊢ (¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑡) → ((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st ‘𝑡))
424	422, 423	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st ‘𝑡))
425		xp1st 7863	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (1st ‘𝑛) ∈ ((0..^𝐾) ↑m (1...𝑀)))
426		elmapfn 8653	. . . . . . . . . . . . . . . . . . 19 ⊢ ((1st ‘𝑛) ∈ ((0..^𝐾) ↑m (1...𝑀)) → (1st ‘𝑛) Fn (1...𝑀))
427		fnop 6542	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((1st ‘𝑛) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛)) → (𝑀 + 1) ∈ (1...𝑀))
428	427	ex 413	. . . . . . . . . . . . . . . . . . 19 ⊢ ((1st ‘𝑛) Fn (1...𝑀) → (⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
429	425, 426, 428	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
430	429, 122	nsyli 157	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛)))
431	430	impcom 408	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛))
432		difsn 4731	. . . . . . . . . . . . . . . 16 ⊢ (¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st ‘𝑛) → ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st ‘𝑛))
433	431, 432	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st ‘𝑛))
434	424, 433	eqeqan12d 2752	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) ∧ (𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ↔ (1st ‘𝑡) = (1st ‘𝑛)))
435	434	anandis 675	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ↔ (1st ‘𝑡) = (1st ‘𝑛)))
436		f1ofn 6717	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑡):(1...𝑀)–1-1-onto→(1...𝑀) → (2nd ‘𝑡) Fn (1...𝑀))
437		fnop 6542	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((2nd ‘𝑡) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡)) → (𝑀 + 1) ∈ (1...𝑀))
438	437	ex 413	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑡) Fn (1...𝑀) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
439	17, 436, 438	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
440	439, 122	nsyli 157	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡)))
441	440	impcom 408	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡))
442		difsn 4731	. . . . . . . . . . . . . . . 16 ⊢ (¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑡) → ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd ‘𝑡))
443	441, 442	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd ‘𝑡))
444		xp2nd 7864	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd ‘𝑛) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})
445		fvex 6787	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (2nd ‘𝑛) ∈ V
446		f1oeq1 6704	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑓 = (2nd ‘𝑛) → (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) ↔ (2nd ‘𝑛):(1...𝑀)–1-1-onto→(1...𝑀)))
447	445, 446	elab 3609	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((2nd ‘𝑛) ∈ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ↔ (2nd ‘𝑛):(1...𝑀)–1-1-onto→(1...𝑀))
448	444, 447	sylib 217	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd ‘𝑛):(1...𝑀)–1-1-onto→(1...𝑀))
449		f1ofn 6717	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑛):(1...𝑀)–1-1-onto→(1...𝑀) → (2nd ‘𝑛) Fn (1...𝑀))
450		fnop 6542	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((2nd ‘𝑛) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛)) → (𝑀 + 1) ∈ (1...𝑀))
451	450	ex 413	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑛) Fn (1...𝑀) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
452	448, 449, 451	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
453	452, 122	nsyli 157	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛)))
454	453	impcom 408	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛))
455		difsn 4731	. . . . . . . . . . . . . . . 16 ⊢ (¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd ‘𝑛) → ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd ‘𝑛))
456	454, 455	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd ‘𝑛))
457	443, 456	eqeqan12d 2752	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) ∧ (𝜑 ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ↔ (2nd ‘𝑡) = (2nd ‘𝑛)))
458	457	anandis 675	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ↔ (2nd ‘𝑡) = (2nd ‘𝑛)))
459	435, 458	anbi12d 631	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → ((((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})) ↔ ((1st ‘𝑡) = (1st ‘𝑛) ∧ (2nd ‘𝑡) = (2nd ‘𝑛))))
460		xpopth 7872	. . . . . . . . . . . . 13 ⊢ ((𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (((1st ‘𝑡) = (1st ‘𝑛) ∧ (2nd ‘𝑡) = (2nd ‘𝑛)) ↔ 𝑡 = 𝑛))
461	460	adantl 482	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((1st ‘𝑡) = (1st ‘𝑛) ∧ (2nd ‘𝑡) = (2nd ‘𝑛)) ↔ 𝑡 = 𝑛))
462	459, 461	bitrd 278	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → ((((1st ‘𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd ‘𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})) ↔ 𝑡 = 𝑛))
463	416, 462	syl5ib 243	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
464	403, 463	sylan2 593	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ∧ 𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵})) → ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
465	464	ralrimivva 3123	. . . . . . . 8 ⊢ (𝜑 → ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
466	465	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
467	400, 466	jctird 527	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))))
468		fveq2 6774	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑛 → (1st ‘𝑡) = (1st ‘𝑛))
469	468	uneq1d 4096	. . . . . . . . . 10 ⊢ (𝑡 = 𝑛 → ((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}))
470		fveq2 6774	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑛 → (2nd ‘𝑡) = (2nd ‘𝑛))
471	470	uneq1d 4096	. . . . . . . . . 10 ⊢ (𝑡 = 𝑛 → ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
472	469, 471	opeq12d 4812	. . . . . . . . 9 ⊢ (𝑡 = 𝑛 → ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
473	472	eqeq2d 2749	. . . . . . . 8 ⊢ (𝑡 = 𝑛 → (𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
474	473	reu4 3666	. . . . . . 7 ⊢ (∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ (∃𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)))
475	58	rexrab 3633	. . . . . . . 8 ⊢ (∃𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ ∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
476	475	anbi1i 624	. . . . . . 7 ⊢ ((∃𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)) ↔ (∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)))
477	474, 476	bitri 274	. . . . . 6 ⊢ (∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ (∃𝑡 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑡) ∘f + ((((2nd ‘𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ 𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ((𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st ‘𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)))
478	467, 477	syl6ibr 251	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
479	478	ralrimiva 3103	. . . 4 ⊢ (𝜑 → ∀𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
480		fveq2 6774	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑘 → (1st ‘𝑠) = (1st ‘𝑘))
481		fveq2 6774	. . . . . . . . . . . . . . 15 ⊢ (𝑠 = 𝑘 → (2nd ‘𝑠) = (2nd ‘𝑘))
482	481	imaeq1d 5968	. . . . . . . . . . . . . 14 ⊢ (𝑠 = 𝑘 → ((2nd ‘𝑠) “ (1...𝑗)) = ((2nd ‘𝑘) “ (1...𝑗)))
483	482	xpeq1d 5618	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑘 → (((2nd ‘𝑠) “ (1...𝑗)) × {1}) = (((2nd ‘𝑘) “ (1...𝑗)) × {1}))
484	481	imaeq1d 5968	. . . . . . . . . . . . . 14 ⊢ (𝑠 = 𝑘 → ((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) = ((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
485	484	xpeq1d 5618	. . . . . . . . . . . . 13 ⊢ (𝑠 = 𝑘 → (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))
486	483, 485	uneq12d 4098	. . . . . . . . . . . 12 ⊢ (𝑠 = 𝑘 → ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})))
487	480, 486	oveq12d 7293	. . . . . . . . . . 11 ⊢ (𝑠 = 𝑘 → ((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) = ((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))))
488	487	uneq1d 4096	. . . . . . . . . 10 ⊢ (𝑠 = 𝑘 → (((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = (((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
489	488	csbeq1d 3836	. . . . . . . . 9 ⊢ (𝑠 = 𝑘 → ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵)
490	489	eqeq2d 2749	. . . . . . . 8 ⊢ (𝑠 = 𝑘 → (𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ 𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
491	490	rexbidv 3226	. . . . . . 7 ⊢ (𝑠 = 𝑘 → (∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
492	491	ralbidv 3112	. . . . . 6 ⊢ (𝑠 = 𝑘 → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵))
493	480	fveq1d 6776	. . . . . . 7 ⊢ (𝑠 = 𝑘 → ((1st ‘𝑠)‘(𝑀 + 1)) = ((1st ‘𝑘)‘(𝑀 + 1)))
494	493	eqeq1d 2740	. . . . . 6 ⊢ (𝑠 = 𝑘 → (((1st ‘𝑠)‘(𝑀 + 1)) = 0 ↔ ((1st ‘𝑘)‘(𝑀 + 1)) = 0))
495	481	fveq1d 6776	. . . . . . 7 ⊢ (𝑠 = 𝑘 → ((2nd ‘𝑠)‘(𝑀 + 1)) = ((2nd ‘𝑘)‘(𝑀 + 1)))
496	495	eqeq1d 2740	. . . . . 6 ⊢ (𝑠 = 𝑘 → (((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1) ↔ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)))
497	492, 494, 496	3anbi123d 1435	. . . . 5 ⊢ (𝑠 = 𝑘 → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1))))
498	497	ralrab 3630	. . . 4 ⊢ (∀𝑘 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ ∀𝑘 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑘) ∘f + ((((2nd ‘𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
499	479, 498	sylibr 233	. . 3 ⊢ (𝜑 → ∀𝑘 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
500		eqid 2738	. . . 4 ⊢ (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) = (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
501	500	f1ompt 6985	. . 3 ⊢ ((𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩):{𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}–1-1-onto→{𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ↔ (∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ∧ ∀𝑘 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}𝑘 = ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
502	60, 499, 501	sylanbrc 583	. 2 ⊢ (𝜑 → (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩):{𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}–1-1-onto→{𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
503		ovex 7308	. . . . 5 ⊢ ((0..^𝐾) ↑m (1...𝑀)) ∈ V
504		ovex 7308	. . . . . 6 ⊢ ((1...𝑀) ↑m (1...𝑀)) ∈ V
505		f1of 6716	. . . . . . . 8 ⊢ (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) → 𝑓:(1...𝑀)⟶(1...𝑀))
506	505	ss2abi 4000	. . . . . . 7 ⊢ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ⊆ {𝑓 ∣ 𝑓:(1...𝑀)⟶(1...𝑀)}
507	68, 68	mapval 8627	. . . . . . 7 ⊢ ((1...𝑀) ↑m (1...𝑀)) = {𝑓 ∣ 𝑓:(1...𝑀)⟶(1...𝑀)}
508	506, 507	sseqtrri 3958	. . . . . 6 ⊢ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ⊆ ((1...𝑀) ↑m (1...𝑀))
509	504, 508	ssexi 5246	. . . . 5 ⊢ {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ∈ V
510	503, 509	xpex 7603	. . . 4 ⊢ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∈ V
511	510	rabex 5256	. . 3 ⊢ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ∈ V
512	511	f1oen 8761	. 2 ⊢ ((𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ↦ ⟨((1st ‘𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd ‘𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩):{𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵}–1-1-onto→{𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} → {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ≈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
513	502, 512	syl 17	1 ⊢ (𝜑 → {𝑠 ∈ (((0..^𝐾) ↑m (1...𝑀)) × {𝑓 ∣ 𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝⦌𝐵} ≈ {𝑠 ∈ (((0..^𝐾) ↑m (1...(𝑀 + 1))) × {𝑓 ∣ 𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ⦋(((1st ‘𝑠) ∘f + ((((2nd ‘𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd ‘𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝⦌𝐵 ∧ ((1st ‘𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd ‘𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1086   = wceq 1539   ∈ wcel 2106  {cab 2715  ∀wral 3064  ∃wrex 3065  ∃!wreu 3066  {crab 3068  Vcvv 3432  ⦋csb 3832   ∖ cdif 3884   ∪ cun 3885   ∩ cin 3886   ⊆ wss 3887  ∅c0 4256  {csn 4561  ⟨cop 4567   class class class wbr 5074   ↦ cmpt 5157   × cxp 5587  ^◡ccnv 5588   ↾ cres 5591   “ cima 5592  Fun wfun 6427   Fn wfn 6428  ⟶wf 6429  –1-1→wf1 6430  –onto→wfo 6431  –1-1-onto→wf1o 6432  ‘cfv 6433  (class class class)co 7275   ∘_f cof 7531  1^st c1st 7829  2^nd c2nd 7830   ↑_m cmap 8615   ≈ cen 8730  Fincfn 8733  ℂcc 10869  ℝcr 10870  0cc0 10871  1c1 10872   + caddc 10874   < clt 11009   ≤ cle 11010   − cmin 11205  ℕcn 11973  ℕ₀cn0 12233  ℤcz 12319  ℤ_≥cuz 12582  ...cfz 13239  ..^cfzo 13382

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709  ax-rep 5209  ax-sep 5223  ax-nul 5230  ax-pow 5288  ax-pr 5352  ax-un 7588  ax-cnex 10927  ax-resscn 10928  ax-1cn 10929  ax-icn 10930  ax-addcl 10931  ax-addrcl 10932  ax-mulcl 10933  ax-mulrcl 10934  ax-mulcom 10935  ax-addass 10936  ax-mulass 10937  ax-distr 10938  ax-i2m1 10939  ax-1ne0 10940  ax-1rid 10941  ax-rnegex 10942  ax-rrecex 10943  ax-cnre 10944  ax-pre-lttri 10945  ax-pre-lttrn 10946  ax-pre-ltadd 10947  ax-pre-mulgt0 10948

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3069  df-rex 3070  df-rmo 3071  df-reu 3072  df-rab 3073  df-v 3434  df-sbc 3717  df-csb 3833  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4257  df-if 4460  df-pw 4535  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4840  df-iun 4926  df-br 5075  df-opab 5137  df-mpt 5158  df-tr 5192  df-id 5489  df-eprel 5495  df-po 5503  df-so 5504  df-fr 5544  df-we 5546  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-pred 6202  df-ord 6269  df-on 6270  df-lim 6271  df-suc 6272  df-iota 6391  df-fun 6435  df-fn 6436  df-f 6437  df-f1 6438  df-fo 6439  df-f1o 6440  df-fv 6441  df-riota 7232  df-ov 7278  df-oprab 7279  df-mpo 7280  df-of 7533  df-om 7713  df-1st 7831  df-2nd 7832  df-frecs 8097  df-wrecs 8128  df-recs 8202  df-rdg 8241  df-1o 8297  df-er 8498  df-map 8617  df-en 8734  df-dom 8735  df-sdom 8736  df-fin 8737  df-pnf 11011  df-mnf 11012  df-xr 11013  df-ltxr 11014  df-le 11015  df-sub 11207  df-neg 11208  df-nn 11974  df-n0 12234  df-z 12320  df-uz 12583  df-fz 13240  df-fzo 13383

This theorem is referenced by:  poimirlem28  35805