Users' Mathboxes Mathbox for Brendan Leahy < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  poimirlem4 Structured version   Visualization version   GIF version

Theorem poimirlem4 32583
Description: Lemma for poimir 32612 connecting the admissible faces on the back face of the (𝑀 + 1)-cube to admissible simplices in the 𝑀-cube. (Contributed by Brendan Leahy, 21-Aug-2020.)
Hypotheses
Ref Expression
poimir.0 (𝜑𝑁 ∈ ℕ)
poimirlem4.1 (𝜑𝐾 ∈ ℕ)
poimirlem4.2 (𝜑𝑀 ∈ ℕ0)
poimirlem4.3 (𝜑𝑀 < 𝑁)
Assertion
Ref Expression
poimirlem4 (𝜑 → {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ≈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
Distinct variable groups:   𝑓,𝑖,𝑗,𝑝,𝑠   𝜑,𝑗   𝑗,𝑀   𝑗,𝑁   𝜑,𝑖,𝑝,𝑠   𝐵,𝑓,𝑖,𝑗,𝑠   𝑓,𝐾,𝑖,𝑗,𝑝,𝑠   𝑓,𝑀,𝑖,𝑝,𝑠   𝑓,𝑁,𝑖,𝑝,𝑠
Allowed substitution hints:   𝜑(𝑓)   𝐵(𝑝)

Proof of Theorem poimirlem4
Dummy variables 𝑘 𝑛 𝑡 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 poimir.0 . . . . . . . 8 (𝜑𝑁 ∈ ℕ)
21adantr 480 . . . . . . 7 ((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝑁 ∈ ℕ)
3 poimirlem4.1 . . . . . . . 8 (𝜑𝐾 ∈ ℕ)
43adantr 480 . . . . . . 7 ((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝐾 ∈ ℕ)
5 poimirlem4.2 . . . . . . . 8 (𝜑𝑀 ∈ ℕ0)
65adantr 480 . . . . . . 7 ((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝑀 ∈ ℕ0)
7 poimirlem4.3 . . . . . . . 8 (𝜑𝑀 < 𝑁)
87adantr 480 . . . . . . 7 ((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → 𝑀 < 𝑁)
9 xp1st 7089 . . . . . . . . 9 (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (1st𝑡) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)))
10 elmapi 7765 . . . . . . . . 9 ((1st𝑡) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)) → (1st𝑡):(1...𝑀)⟶(0..^𝐾))
119, 10syl 17 . . . . . . . 8 (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (1st𝑡):(1...𝑀)⟶(0..^𝐾))
1211adantl 481 . . . . . . 7 ((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (1st𝑡):(1...𝑀)⟶(0..^𝐾))
13 xp2nd 7090 . . . . . . . . 9 (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd𝑡) ∈ {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})
14 fvex 6113 . . . . . . . . . 10 (2nd𝑡) ∈ V
15 f1oeq1 6040 . . . . . . . . . 10 (𝑓 = (2nd𝑡) → (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) ↔ (2nd𝑡):(1...𝑀)–1-1-onto→(1...𝑀)))
1614, 15elab 3319 . . . . . . . . 9 ((2nd𝑡) ∈ {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ↔ (2nd𝑡):(1...𝑀)–1-1-onto→(1...𝑀))
1713, 16sylib 207 . . . . . . . 8 (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd𝑡):(1...𝑀)–1-1-onto→(1...𝑀))
1817adantl 481 . . . . . . 7 ((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (2nd𝑡):(1...𝑀)–1-1-onto→(1...𝑀))
192, 4, 6, 8, 12, 18poimirlem3 32582 . . . . . 6 ((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵 → (⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ (((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)) = 0 ∧ (((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)) = (𝑀 + 1)))))
20 fvex 6113 . . . . . . . . . . . . . . . 16 (1st𝑡) ∈ V
21 snex 4835 . . . . . . . . . . . . . . . 16 {⟨(𝑀 + 1), 0⟩} ∈ V
2220, 21unex 6854 . . . . . . . . . . . . . . 15 ((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∈ V
23 snex 4835 . . . . . . . . . . . . . . . 16 {⟨(𝑀 + 1), (𝑀 + 1)⟩} ∈ V
2414, 23unex 6854 . . . . . . . . . . . . . . 15 ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∈ V
2522, 24op1std 7069 . . . . . . . . . . . . . 14 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (1st𝑠) = ((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}))
2622, 24op2ndd 7070 . . . . . . . . . . . . . . . . 17 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (2nd𝑠) = ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
2726imaeq1d 5384 . . . . . . . . . . . . . . . 16 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((2nd𝑠) “ (1...𝑗)) = (((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)))
2827xpeq1d 5062 . . . . . . . . . . . . . . 15 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((2nd𝑠) “ (1...𝑗)) × {1}) = ((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}))
2926imaeq1d 5384 . . . . . . . . . . . . . . . 16 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) = (((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))))
3029xpeq1d 5062 . . . . . . . . . . . . . . 15 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = ((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))
3128, 30uneq12d 3730 . . . . . . . . . . . . . 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})))
3225, 31oveq12d 6567 . . . . . . . . . . . . 13 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) = (((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))))
3332uneq1d 3728 . . . . . . . . . . . 12 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
3433csbeq1d 3506 . . . . . . . . . . 11 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 = ((((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵)
3534eqeq2d 2620 . . . . . . . . . 10 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵𝑖 = ((((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵))
3635rexbidv 3034 . . . . . . . . 9 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵))
3736ralbidv 2969 . . . . . . . 8 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵))
3825fveq1d 6105 . . . . . . . . 9 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((1st𝑠)‘(𝑀 + 1)) = (((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)))
3938eqeq1d 2612 . . . . . . . 8 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((1st𝑠)‘(𝑀 + 1)) = 0 ↔ (((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)) = 0))
4026fveq1d 6105 . . . . . . . . 9 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((2nd𝑠)‘(𝑀 + 1)) = (((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)))
4140eqeq1d 2612 . . . . . . . 8 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → (((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1) ↔ (((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)) = (𝑀 + 1)))
4237, 39, 413anbi123d 1391 . . . . . . 7 (𝑠 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ (((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)) = 0 ∧ (((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)) = (𝑀 + 1))))
4342elrab 3331 . . . . . 6 (⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ↔ (⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∘𝑓 + (((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ (((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩})‘(𝑀 + 1)) = 0 ∧ (((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})‘(𝑀 + 1)) = (𝑀 + 1))))
4419, 43syl6ibr 241 . . . . 5 ((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵 → ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}))
4544ralrimiva 2949 . . . 4 (𝜑 → ∀𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵 → ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}))
46 fveq2 6103 . . . . . . . . . . 11 (𝑠 = 𝑡 → (1st𝑠) = (1st𝑡))
47 fveq2 6103 . . . . . . . . . . . . . 14 (𝑠 = 𝑡 → (2nd𝑠) = (2nd𝑡))
4847imaeq1d 5384 . . . . . . . . . . . . 13 (𝑠 = 𝑡 → ((2nd𝑠) “ (1...𝑗)) = ((2nd𝑡) “ (1...𝑗)))
4948xpeq1d 5062 . . . . . . . . . . . 12 (𝑠 = 𝑡 → (((2nd𝑠) “ (1...𝑗)) × {1}) = (((2nd𝑡) “ (1...𝑗)) × {1}))
5047imaeq1d 5384 . . . . . . . . . . . . 13 (𝑠 = 𝑡 → ((2nd𝑠) “ ((𝑗 + 1)...𝑀)) = ((2nd𝑡) “ ((𝑗 + 1)...𝑀)))
5150xpeq1d 5062 . . . . . . . . . . . 12 (𝑠 = 𝑡 → (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}) = (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))
5249, 51uneq12d 3730 . . . . . . . . . . 11 (𝑠 = 𝑡 → ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0})) = ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0})))
5346, 52oveq12d 6567 . . . . . . . . . 10 (𝑠 = 𝑡 → ((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) = ((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))))
5453uneq1d 3728 . . . . . . . . 9 (𝑠 = 𝑡 → (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})))
5554csbeq1d 3506 . . . . . . . 8 (𝑠 = 𝑡(((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵)
5655eqeq2d 2620 . . . . . . 7 (𝑠 = 𝑡 → (𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵))
5756rexbidv 3034 . . . . . 6 (𝑠 = 𝑡 → (∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵))
5857ralbidv 2969 . . . . 5 (𝑠 = 𝑡 → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵))
5958ralrab 3335 . . . 4 (∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ↔ ∀𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵 → ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}))
6045, 59sylibr 223 . . 3 (𝜑 → ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
61 xp1st 7089 . . . . . . . . . . . . . . 15 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (1st𝑘) ∈ ((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))))
62 elmapi 7765 . . . . . . . . . . . . . . 15 ((1st𝑘) ∈ ((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) → (1st𝑘):(1...(𝑀 + 1))⟶(0..^𝐾))
6361, 62syl 17 . . . . . . . . . . . . . 14 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (1st𝑘):(1...(𝑀 + 1))⟶(0..^𝐾))
64 fzssp1 12255 . . . . . . . . . . . . . 14 (1...𝑀) ⊆ (1...(𝑀 + 1))
65 fssres 5983 . . . . . . . . . . . . . 14 (((1st𝑘):(1...(𝑀 + 1))⟶(0..^𝐾) ∧ (1...𝑀) ⊆ (1...(𝑀 + 1))) → ((1st𝑘) ↾ (1...𝑀)):(1...𝑀)⟶(0..^𝐾))
6663, 64, 65sylancl 693 . . . . . . . . . . . . 13 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((1st𝑘) ↾ (1...𝑀)):(1...𝑀)⟶(0..^𝐾))
67 ovex 6577 . . . . . . . . . . . . . 14 (0..^𝐾) ∈ V
68 ovex 6577 . . . . . . . . . . . . . 14 (1...𝑀) ∈ V
6967, 68elmap 7772 . . . . . . . . . . . . 13 (((1st𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)) ↔ ((1st𝑘) ↾ (1...𝑀)):(1...𝑀)⟶(0..^𝐾))
7066, 69sylibr 223 . . . . . . . . . . . 12 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((1st𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)))
7170ad2antlr 759 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((1st𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)))
72 xp2nd 7090 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd𝑘) ∈ {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})
73 fvex 6113 . . . . . . . . . . . . . . . . . 18 (2nd𝑘) ∈ V
74 f1oeq1 6040 . . . . . . . . . . . . . . . . . 18 (𝑓 = (2nd𝑘) → (𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) ↔ (2nd𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))))
7573, 74elab 3319 . . . . . . . . . . . . . . . . 17 ((2nd𝑘) ∈ {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))} ↔ (2nd𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)))
7672, 75sylib 207 . . . . . . . . . . . . . . . 16 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)))
77 f1of1 6049 . . . . . . . . . . . . . . . 16 ((2nd𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → (2nd𝑘):(1...(𝑀 + 1))–1-1→(1...(𝑀 + 1)))
7876, 77syl 17 . . . . . . . . . . . . . . 15 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd𝑘):(1...(𝑀 + 1))–1-1→(1...(𝑀 + 1)))
79 f1ores 6064 . . . . . . . . . . . . . . 15 (((2nd𝑘):(1...(𝑀 + 1))–1-1→(1...(𝑀 + 1)) ∧ (1...𝑀) ⊆ (1...(𝑀 + 1))) → ((2nd𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd𝑘) “ (1...𝑀)))
8078, 64, 79sylancl 693 . . . . . . . . . . . . . 14 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd𝑘) “ (1...𝑀)))
8180ad2antlr 759 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd𝑘) “ (1...𝑀)))
82 dff1o3 6056 . . . . . . . . . . . . . . . . . . 19 ((2nd𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) ↔ ((2nd𝑘):(1...(𝑀 + 1))–onto→(1...(𝑀 + 1)) ∧ Fun (2nd𝑘)))
8382simprbi 479 . . . . . . . . . . . . . . . . . 18 ((2nd𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → Fun (2nd𝑘))
84 imadif 5887 . . . . . . . . . . . . . . . . . 18 (Fun (2nd𝑘) → ((2nd𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd𝑘) “ {(𝑀 + 1)})))
8576, 83, 843syl 18 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd𝑘) “ {(𝑀 + 1)})))
8685ad2antlr 759 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd𝑘) “ {(𝑀 + 1)})))
87 f1ofo 6057 . . . . . . . . . . . . . . . . . . 19 ((2nd𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → (2nd𝑘):(1...(𝑀 + 1))–onto→(1...(𝑀 + 1)))
88 foima 6033 . . . . . . . . . . . . . . . . . . 19 ((2nd𝑘):(1...(𝑀 + 1))–onto→(1...(𝑀 + 1)) → ((2nd𝑘) “ (1...(𝑀 + 1))) = (1...(𝑀 + 1)))
8976, 87, 883syl 18 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd𝑘) “ (1...(𝑀 + 1))) = (1...(𝑀 + 1)))
9089ad2antlr 759 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd𝑘) “ (1...(𝑀 + 1))) = (1...(𝑀 + 1)))
91 f1ofn 6051 . . . . . . . . . . . . . . . . . . . 20 ((2nd𝑘):(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1)) → (2nd𝑘) Fn (1...(𝑀 + 1)))
9276, 91syl 17 . . . . . . . . . . . . . . . . . . 19 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (2nd𝑘) Fn (1...(𝑀 + 1)))
93 nn0p1nn 11209 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 ∈ ℕ0 → (𝑀 + 1) ∈ ℕ)
945, 93syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝑀 + 1) ∈ ℕ)
95 elfz1end 12242 . . . . . . . . . . . . . . . . . . . 20 ((𝑀 + 1) ∈ ℕ ↔ (𝑀 + 1) ∈ (1...(𝑀 + 1)))
9694, 95sylib 207 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑀 + 1) ∈ (1...(𝑀 + 1)))
97 fnsnfv 6168 . . . . . . . . . . . . . . . . . . 19 (((2nd𝑘) Fn (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ (1...(𝑀 + 1))) → {((2nd𝑘)‘(𝑀 + 1))} = ((2nd𝑘) “ {(𝑀 + 1)}))
9892, 96, 97syl2anr 494 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → {((2nd𝑘)‘(𝑀 + 1))} = ((2nd𝑘) “ {(𝑀 + 1)}))
99 sneq 4135 . . . . . . . . . . . . . . . . . 18 (((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → {((2nd𝑘)‘(𝑀 + 1))} = {(𝑀 + 1)})
10098, 99sylan9req 2665 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd𝑘) “ {(𝑀 + 1)}) = {(𝑀 + 1)})
10190, 100difeq12d 3691 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (((2nd𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd𝑘) “ {(𝑀 + 1)})) = ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}))
10286, 101eqtrd 2644 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}))
103 1z 11284 . . . . . . . . . . . . . . . . . . . . 21 1 ∈ ℤ
104 nn0uz 11598 . . . . . . . . . . . . . . . . . . . . . . 23 0 = (ℤ‘0)
105 1m1e0 10966 . . . . . . . . . . . . . . . . . . . . . . . 24 (1 − 1) = 0
106105fveq2i 6106 . . . . . . . . . . . . . . . . . . . . . . 23 (ℤ‘(1 − 1)) = (ℤ‘0)
107104, 106eqtr4i 2635 . . . . . . . . . . . . . . . . . . . . . 22 0 = (ℤ‘(1 − 1))
1085, 107syl6eleq 2698 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝑀 ∈ (ℤ‘(1 − 1)))
109 fzsuc2 12268 . . . . . . . . . . . . . . . . . . . . 21 ((1 ∈ ℤ ∧ 𝑀 ∈ (ℤ‘(1 − 1))) → (1...(𝑀 + 1)) = ((1...𝑀) ∪ {(𝑀 + 1)}))
110103, 108, 109sylancr 694 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (1...(𝑀 + 1)) = ((1...𝑀) ∪ {(𝑀 + 1)}))
111110difeq1d 3689 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (((1...𝑀) ∪ {(𝑀 + 1)}) ∖ {(𝑀 + 1)}))
112 difun2 4000 . . . . . . . . . . . . . . . . . . 19 (((1...𝑀) ∪ {(𝑀 + 1)}) ∖ {(𝑀 + 1)}) = ((1...𝑀) ∖ {(𝑀 + 1)})
113111, 112syl6eq 2660 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = ((1...𝑀) ∖ {(𝑀 + 1)}))
1145nn0red 11229 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝑀 ∈ ℝ)
115 ltp1 10740 . . . . . . . . . . . . . . . . . . . . . 22 (𝑀 ∈ ℝ → 𝑀 < (𝑀 + 1))
116 peano2re 10088 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑀 ∈ ℝ → (𝑀 + 1) ∈ ℝ)
117 ltnle 9996 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑀 ∈ ℝ ∧ (𝑀 + 1) ∈ ℝ) → (𝑀 < (𝑀 + 1) ↔ ¬ (𝑀 + 1) ≤ 𝑀))
118116, 117mpdan 699 . . . . . . . . . . . . . . . . . . . . . 22 (𝑀 ∈ ℝ → (𝑀 < (𝑀 + 1) ↔ ¬ (𝑀 + 1) ≤ 𝑀))
119115, 118mpbid 221 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 ∈ ℝ → ¬ (𝑀 + 1) ≤ 𝑀)
120114, 119syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ¬ (𝑀 + 1) ≤ 𝑀)
121 elfzle2 12216 . . . . . . . . . . . . . . . . . . . 20 ((𝑀 + 1) ∈ (1...𝑀) → (𝑀 + 1) ≤ 𝑀)
122120, 121nsyl 134 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ¬ (𝑀 + 1) ∈ (1...𝑀))
123 difsn 4269 . . . . . . . . . . . . . . . . . . 19 (¬ (𝑀 + 1) ∈ (1...𝑀) → ((1...𝑀) ∖ {(𝑀 + 1)}) = (1...𝑀))
124122, 123syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((1...𝑀) ∖ {(𝑀 + 1)}) = (1...𝑀))
125113, 124eqtrd 2644 . . . . . . . . . . . . . . . . 17 (𝜑 → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (1...𝑀))
126125imaeq2d 5385 . . . . . . . . . . . . . . . 16 (𝜑 → ((2nd𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd𝑘) “ (1...𝑀)))
127126ad2antrr 758 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd𝑘) “ (1...𝑀)))
128125ad2antrr 758 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (1...𝑀))
129102, 127, 1283eqtr3d 2652 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd𝑘) “ (1...𝑀)) = (1...𝑀))
130 f1oeq3 6042 . . . . . . . . . . . . . 14 (((2nd𝑘) “ (1...𝑀)) = (1...𝑀) → (((2nd𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd𝑘) “ (1...𝑀)) ↔ ((2nd𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀)))
131129, 130syl 17 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (((2nd𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→((2nd𝑘) “ (1...𝑀)) ↔ ((2nd𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀)))
13281, 131mpbid 221 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀))
13373resex 5363 . . . . . . . . . . . . 13 ((2nd𝑘) ↾ (1...𝑀)) ∈ V
134 f1oeq1 6040 . . . . . . . . . . . . 13 (𝑓 = ((2nd𝑘) ↾ (1...𝑀)) → (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) ↔ ((2nd𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀)))
135133, 134elab 3319 . . . . . . . . . . . 12 (((2nd𝑘) ↾ (1...𝑀)) ∈ {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ↔ ((2nd𝑘) ↾ (1...𝑀)):(1...𝑀)–1-1-onto→(1...𝑀))
136132, 135sylibr 223 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd𝑘) ↾ (1...𝑀)) ∈ {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})
137 opelxpi 5072 . . . . . . . . . . 11 ((((1st𝑘) ↾ (1...𝑀)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)) ∧ ((2nd𝑘) ↾ (1...𝑀)) ∈ {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
13871, 136, 137syl2anc 691 . . . . . . . . . 10 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
1391383ad2antr3 1221 . . . . . . . . 9 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
140 3anass 1035 . . . . . . . . . . 11 ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))))
141 ancom 465 . . . . . . . . . . 11 ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ↔ ((((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵))
142140, 141bitri 263 . . . . . . . . . 10 ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ ((((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵))
14394nnzd 11357 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝜑 → (𝑀 + 1) ∈ ℤ)
144 uzid 11578 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑀 + 1) ∈ ℤ → (𝑀 + 1) ∈ (ℤ‘(𝑀 + 1)))
145 peano2uz 11617 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑀 + 1) ∈ (ℤ‘(𝑀 + 1)) → ((𝑀 + 1) + 1) ∈ (ℤ‘(𝑀 + 1)))
146143, 144, 1453syl 18 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → ((𝑀 + 1) + 1) ∈ (ℤ‘(𝑀 + 1)))
1475nn0zd 11356 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝜑𝑀 ∈ ℤ)
1481nnzd 11357 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝜑𝑁 ∈ ℤ)
149 zltp1le 11304 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 < 𝑁 ↔ (𝑀 + 1) ≤ 𝑁))
150 peano2z 11295 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑀 ∈ ℤ → (𝑀 + 1) ∈ ℤ)
151 eluz 11577 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑀 + 1) ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑁 ∈ (ℤ‘(𝑀 + 1)) ↔ (𝑀 + 1) ≤ 𝑁))
152150, 151sylan 487 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑁 ∈ (ℤ‘(𝑀 + 1)) ↔ (𝑀 + 1) ≤ 𝑁))
153149, 152bitr4d 270 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 < 𝑁𝑁 ∈ (ℤ‘(𝑀 + 1))))
154147, 148, 153syl2anc 691 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝜑 → (𝑀 < 𝑁𝑁 ∈ (ℤ‘(𝑀 + 1))))
1557, 154mpbid 221 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑𝑁 ∈ (ℤ‘(𝑀 + 1)))
156 fzsplit2 12237 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑀 + 1) + 1) ∈ (ℤ‘(𝑀 + 1)) ∧ 𝑁 ∈ (ℤ‘(𝑀 + 1))) → ((𝑀 + 1)...𝑁) = (((𝑀 + 1)...(𝑀 + 1)) ∪ (((𝑀 + 1) + 1)...𝑁)))
157146, 155, 156syl2anc 691 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → ((𝑀 + 1)...𝑁) = (((𝑀 + 1)...(𝑀 + 1)) ∪ (((𝑀 + 1) + 1)...𝑁)))
158 fzsn 12254 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑀 + 1) ∈ ℤ → ((𝑀 + 1)...(𝑀 + 1)) = {(𝑀 + 1)})
159143, 158syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → ((𝑀 + 1)...(𝑀 + 1)) = {(𝑀 + 1)})
160159uneq1d 3728 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (((𝑀 + 1)...(𝑀 + 1)) ∪ (((𝑀 + 1) + 1)...𝑁)) = ({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)))
161157, 160eqtrd 2644 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ((𝑀 + 1)...𝑁) = ({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)))
162161xpeq1d 5062 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (((𝑀 + 1)...𝑁) × {0}) = (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0}))
163162uneq2d 3729 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((𝑛 ∈ (1...𝑀) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...𝑀) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0})))
164 xpundir 5095 . . . . . . . . . . . . . . . . . . . . . . 23 (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0}) = (({(𝑀 + 1)} × {0}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0}))
165 ovex 6577 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑀 + 1) ∈ V
166 c0ex 9913 . . . . . . . . . . . . . . . . . . . . . . . . 25 0 ∈ V
167165, 166xpsn 6313 . . . . . . . . . . . . . . . . . . . . . . . 24 ({(𝑀 + 1)} × {0}) = {⟨(𝑀 + 1), 0⟩}
168167uneq1i 3725 . . . . . . . . . . . . . . . . . . . . . . 23 (({(𝑀 + 1)} × {0}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ({⟨(𝑀 + 1), 0⟩} ∪ ((((𝑀 + 1) + 1)...𝑁) × {0}))
169164, 168eqtri 2632 . . . . . . . . . . . . . . . . . . . . . 22 (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0}) = ({⟨(𝑀 + 1), 0⟩} ∪ ((((𝑀 + 1) + 1)...𝑁) × {0}))
170169uneq2i 3726 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛 ∈ (1...𝑀) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (({(𝑀 + 1)} ∪ (((𝑀 + 1) + 1)...𝑁)) × {0})) = ((𝑛 ∈ (1...𝑀) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ({⟨(𝑀 + 1), 0⟩} ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
171 unass 3732 . . . . . . . . . . . . . . . . . . . . 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})))
172170, 171eqtr4i 2635 . . . . . . . . . . . . . . . . . . . 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}))
173163, 172syl6eq 2660 . . . . . . . . . . . . . . . . . . 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})))
174173ad3antrrr 762 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((𝑛 ∈ (1...𝑀) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})) = (((𝑛 ∈ (1...𝑀) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ {⟨(𝑀 + 1), 0⟩}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
175165a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑀 + 1) ∈ V)
176166a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → 0 ∈ V)
177110eqcomd 2616 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((1...𝑀) ∪ {(𝑀 + 1)}) = (1...(𝑀 + 1)))
178177ad3antrrr 762 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((1...𝑀) ∪ {(𝑀 + 1)}) = (1...(𝑀 + 1)))
179 fveq2 6103 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 = (𝑀 + 1) → ((1st𝑘)‘𝑛) = ((1st𝑘)‘(𝑀 + 1)))
180 fveq2 6103 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 = (𝑀 + 1) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)))
181179, 180oveq12d 6567 . . . . . . . . . . . . . . . . . . . . 21 (𝑛 = (𝑀 + 1) → (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛)) = (((1st𝑘)‘(𝑀 + 1)) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1))))
182 simplrl 796 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((1st𝑘)‘(𝑀 + 1)) = 0)
183 imain 5888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (Fun (2nd𝑘) → ((2nd𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd𝑘) “ (1...𝑗)) ∩ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
18476, 83, 1833syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd𝑘) “ (1...𝑗)) ∩ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
185184ad2antlr 759 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((2nd𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd𝑘) “ (1...𝑗)) ∩ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
186 elfznn0 12302 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℕ0)
187186nn0red 11229 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℝ)
188187ltp1d 10833 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 ∈ (0...𝑀) → 𝑗 < (𝑗 + 1))
189 fzdisj 12239 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 < (𝑗 + 1) → ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1))) = ∅)
190188, 189syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ (0...𝑀) → ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1))) = ∅)
191190imaeq2d 5385 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑗 ∈ (0...𝑀) → ((2nd𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = ((2nd𝑘) “ ∅))
192 ima0 5400 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((2nd𝑘) “ ∅) = ∅
193191, 192syl6eq 2660 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑗 ∈ (0...𝑀) → ((2nd𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...(𝑀 + 1)))) = ∅)
194185, 193sylan9req 2665 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd𝑘) “ (1...𝑗)) ∩ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ∅)
195 simplr 788 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))
19692ad2antlr 759 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (2nd𝑘) Fn (1...(𝑀 + 1)))
197 nn0p1nn 11209 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑗 ∈ ℕ0 → (𝑗 + 1) ∈ ℕ)
198 nnuz 11599 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ℕ = (ℤ‘1)
199197, 198syl6eleq 2698 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 ∈ ℕ0 → (𝑗 + 1) ∈ (ℤ‘1))
200 fzss1 12251 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑗 + 1) ∈ (ℤ‘1) → ((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)))
201186, 199, 2003syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ (0...𝑀) → ((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)))
202 elfzuz3 12210 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 ∈ (0...𝑀) → 𝑀 ∈ (ℤ𝑗))
203 eluzp1p1 11589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑀 ∈ (ℤ𝑗) → (𝑀 + 1) ∈ (ℤ‘(𝑗 + 1)))
204 eluzfz2 12220 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑀 + 1) ∈ (ℤ‘(𝑗 + 1)) → (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1)))
205202, 203, 2043syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ (0...𝑀) → (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1)))
206201, 205jca 553 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑗 ∈ (0...𝑀) → (((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1))))
207 fnfvima 6400 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((2nd𝑘) Fn (1...(𝑀 + 1)) ∧ ((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1))) → ((2nd𝑘)‘(𝑀 + 1)) ∈ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
2082073expb 1258 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((2nd𝑘) Fn (1...(𝑀 + 1)) ∧ (((𝑗 + 1)...(𝑀 + 1)) ⊆ (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ ((𝑗 + 1)...(𝑀 + 1)))) → ((2nd𝑘)‘(𝑀 + 1)) ∈ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
209196, 206, 208syl2an 493 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd𝑘)‘(𝑀 + 1)) ∈ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
210195, 209eqeltrrd 2689 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (𝑀 + 1) ∈ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
211 1ex 9914 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 1 ∈ V
212 fnconstg 6006 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (1 ∈ V → (((2nd𝑘) “ (1...𝑗)) × {1}) Fn ((2nd𝑘) “ (1...𝑗)))
213211, 212ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((2nd𝑘) “ (1...𝑗)) × {1}) Fn ((2nd𝑘) “ (1...𝑗))
214 fnconstg 6006 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (0 ∈ V → (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) Fn ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
215166, 214ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) Fn ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))
216 fvun2 6180 . . . . . . . . . . . . . . . . . . . . . . . . . . 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)))
217213, 215, 216mp3an12 1406 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((((2nd𝑘) “ (1...𝑗)) ∩ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ∅ ∧ (𝑀 + 1) ∈ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)) = ((((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)))
218194, 210, 217syl2anc 691 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)) = ((((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)))
219166fvconst2 6374 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑀 + 1) ∈ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) → ((((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)) = 0)
220210, 219syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})‘(𝑀 + 1)) = 0)
221218, 220eqtrd 2644 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)) = 0)
222221adantlrl 752 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1)) = 0)
223182, 222oveq12d 6567 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st𝑘)‘(𝑀 + 1)) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1))) = (0 + 0))
224 00id 10090 . . . . . . . . . . . . . . . . . . . . . 22 (0 + 0) = 0
225223, 224syl6eq 2660 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st𝑘)‘(𝑀 + 1)) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘(𝑀 + 1))) = 0)
226181, 225sylan9eqr 2666 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 = (𝑀 + 1)) → (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛)) = 0)
227175, 176, 178, 226fmptapd 6342 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((𝑛 ∈ (1...𝑀) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ {⟨(𝑀 + 1), 0⟩}) = (𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))))
228227uneq1d 3728 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((𝑛 ∈ (1...𝑀) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ {⟨(𝑀 + 1), 0⟩}) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
229174, 228eqtrd 2644 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((𝑛 ∈ (1...𝑀) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
230 elmapfn 7766 . . . . . . . . . . . . . . . . . . . . . . 23 ((1st𝑘) ∈ ((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) → (1st𝑘) Fn (1...(𝑀 + 1)))
23161, 230syl 17 . . . . . . . . . . . . . . . . . . . . . 22 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → (1st𝑘) Fn (1...(𝑀 + 1)))
232 fnssres 5918 . . . . . . . . . . . . . . . . . . . . . 22 (((1st𝑘) Fn (1...(𝑀 + 1)) ∧ (1...𝑀) ⊆ (1...(𝑀 + 1))) → ((1st𝑘) ↾ (1...𝑀)) Fn (1...𝑀))
233231, 64, 232sylancl 693 . . . . . . . . . . . . . . . . . . . . 21 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((1st𝑘) ↾ (1...𝑀)) Fn (1...𝑀))
234233ad3antlr 763 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1st𝑘) ↾ (1...𝑀)) Fn (1...𝑀))
235 simplr 788 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}))
236 fnconstg 6006 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (0 ∈ V → (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) Fn ((2nd𝑘) “ ((𝑗 + 1)...𝑀)))
237166, 236ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) Fn ((2nd𝑘) “ ((𝑗 + 1)...𝑀))
238213, 237pm3.2i 470 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((2nd𝑘) “ (1...𝑗)) × {1}) Fn ((2nd𝑘) “ (1...𝑗)) ∧ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) Fn ((2nd𝑘) “ ((𝑗 + 1)...𝑀)))
239 imain 5888 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (Fun (2nd𝑘) → ((2nd𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = (((2nd𝑘) “ (1...𝑗)) ∩ ((2nd𝑘) “ ((𝑗 + 1)...𝑀))))
24076, 83, 2393syl 18 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → ((2nd𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = (((2nd𝑘) “ (1...𝑗)) ∩ ((2nd𝑘) “ ((𝑗 + 1)...𝑀))))
241 fzdisj 12239 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑗 < (𝑗 + 1) → ((1...𝑗) ∩ ((𝑗 + 1)...𝑀)) = ∅)
242188, 241syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑗 ∈ (0...𝑀) → ((1...𝑗) ∩ ((𝑗 + 1)...𝑀)) = ∅)
243242imaeq2d 5385 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑗 ∈ (0...𝑀) → ((2nd𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = ((2nd𝑘) “ ∅))
244243, 192syl6eq 2660 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 ∈ (0...𝑀) → ((2nd𝑘) “ ((1...𝑗) ∩ ((𝑗 + 1)...𝑀))) = ∅)
245240, 244sylan9req 2665 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd𝑘) “ (1...𝑗)) ∩ ((2nd𝑘) “ ((𝑗 + 1)...𝑀))) = ∅)
246 fnun 5911 . . . . . . . . . . . . . . . . . . . . . . . 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)...𝑀))))
247238, 245, 246sylancr 694 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (((2nd𝑘) “ (1...𝑗)) ∪ ((2nd𝑘) “ ((𝑗 + 1)...𝑀))))
248235, 247sylan 487 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (((2nd𝑘) “ (1...𝑗)) ∪ ((2nd𝑘) “ ((𝑗 + 1)...𝑀))))
249101adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd𝑘) “ {(𝑀 + 1)})) = ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}))
25085ad3antlr 763 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = (((2nd𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd𝑘) “ {(𝑀 + 1)})))
251186, 197syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ ℕ)
252251, 198syl6eleq 2698 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ (ℤ‘1))
253 fzsplit2 12237 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝑗 + 1) ∈ (ℤ‘1) ∧ 𝑀 ∈ (ℤ𝑗)) → (1...𝑀) = ((1...𝑗) ∪ ((𝑗 + 1)...𝑀)))
254252, 202, 253syl2anc 691 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑗 ∈ (0...𝑀) → (1...𝑀) = ((1...𝑗) ∪ ((𝑗 + 1)...𝑀)))
255128, 254sylan9eq 2664 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = ((1...𝑗) ∪ ((𝑗 + 1)...𝑀)))
256255imaeq2d 5385 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((2nd𝑘) “ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))))
257250, 256eqtr3d 2646 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd𝑘) “ (1...(𝑀 + 1))) ∖ ((2nd𝑘) “ {(𝑀 + 1)})) = ((2nd𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))))
258125ad3antrrr 762 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)}) = (1...𝑀))
259249, 257, 2583eqtr3rd 2653 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (1...𝑀) = ((2nd𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))))
260 imaundi 5464 . . . . . . . . . . . . . . . . . . . . . . . 24 ((2nd𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...𝑀))) = (((2nd𝑘) “ (1...𝑗)) ∪ ((2nd𝑘) “ ((𝑗 + 1)...𝑀)))
261259, 260syl6eq 2660 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (1...𝑀) = (((2nd𝑘) “ (1...𝑗)) ∪ ((2nd𝑘) “ ((𝑗 + 1)...𝑀))))
262261fneq2d 5896 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀) ↔ ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (((2nd𝑘) “ (1...𝑗)) ∪ ((2nd𝑘) “ ((𝑗 + 1)...𝑀)))))
263248, 262mpbird 246 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀))
264 fzss2 12252 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑀 ∈ (ℤ𝑗) → (1...𝑗) ⊆ (1...𝑀))
265 resima2 5352 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((1...𝑗) ⊆ (1...𝑀) → (((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) = ((2nd𝑘) “ (1...𝑗)))
266202, 264, 2653syl 18 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 ∈ (0...𝑀) → (((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) = ((2nd𝑘) “ (1...𝑗)))
267266xpeq1d 5062 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 ∈ (0...𝑀) → ((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) = (((2nd𝑘) “ (1...𝑗)) × {1}))
268186, 199syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ (ℤ‘1))
269 fzss1 12251 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑗 + 1) ∈ (ℤ‘1) → ((𝑗 + 1)...𝑀) ⊆ (1...𝑀))
270 resima2 5352 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝑗 + 1)...𝑀) ⊆ (1...𝑀) → (((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) = ((2nd𝑘) “ ((𝑗 + 1)...𝑀)))
271268, 269, 2703syl 18 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 ∈ (0...𝑀) → (((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) = ((2nd𝑘) “ ((𝑗 + 1)...𝑀)))
272271xpeq1d 5062 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 ∈ (0...𝑀) → ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}) = (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))
273267, 272uneq12d 3730 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 ∈ (0...𝑀) → (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})) = ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})))
274273adantl 481 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})) = ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})))
275274fneq1d 5895 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀) ↔ ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀)))
276263, 275mpbird 246 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀))
277 fzfid 12634 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (1...𝑀) ∈ Fin)
278 inidm 3784 . . . . . . . . . . . . . . . . . . . 20 ((1...𝑀) ∩ (1...𝑀)) = (1...𝑀)
279 fvres 6117 . . . . . . . . . . . . . . . . . . . . 21 (𝑛 ∈ (1...𝑀) → (((1st𝑘) ↾ (1...𝑀))‘𝑛) = ((1st𝑘)‘𝑛))
280279adantl 481 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → (((1st𝑘) ↾ (1...𝑀))‘𝑛) = ((1st𝑘)‘𝑛))
281 disjsn 4192 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((1...𝑀) ∩ {(𝑀 + 1)}) = ∅ ↔ ¬ (𝑀 + 1) ∈ (1...𝑀))
282122, 281sylibr 223 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → ((1...𝑀) ∩ {(𝑀 + 1)}) = ∅)
283282ad3antrrr 762 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((1...𝑀) ∩ {(𝑀 + 1)}) = ∅)
284263, 283jca 553 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) Fn (1...𝑀) ∧ ((1...𝑀) ∩ {(𝑀 + 1)}) = ∅))
285 fnconstg 6006 . . . . . . . . . . . . . . . . . . . . . . . . 25 (0 ∈ V → ({(𝑀 + 1)} × {0}) Fn {(𝑀 + 1)})
286166, 285ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . 24 ({(𝑀 + 1)} × {0}) Fn {(𝑀 + 1)}
287 fvun1 6179 . . . . . . . . . . . . . . . . . . . . . . . 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}))‘𝑛))
288286, 287mp3an2 1404 . . . . . . . . . . . . . . . . . . . . . . 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}))‘𝑛))
289288anassrs 678 . . . . . . . . . . . . . . . . . . . . . 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}))‘𝑛))
290284, 289sylan 487 . . . . . . . . . . . . . . . . . . . . 21 (((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → ((((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0}))‘𝑛) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛))
291251nnzd 11357 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑗 ∈ (0...𝑀) → (𝑗 + 1) ∈ ℤ)
292186nn0cnd 11230 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℂ)
293 pncan1 10333 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑗 ∈ ℂ → ((𝑗 + 1) − 1) = 𝑗)
294292, 293syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (𝑗 ∈ (0...𝑀) → ((𝑗 + 1) − 1) = 𝑗)
295294fveq2d 6107 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑗 ∈ (0...𝑀) → (ℤ‘((𝑗 + 1) − 1)) = (ℤ𝑗))
296202, 295eleqtrrd 2691 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑗 ∈ (0...𝑀) → 𝑀 ∈ (ℤ‘((𝑗 + 1) − 1)))
297 fzsuc2 12268 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝑗 + 1) ∈ ℤ ∧ 𝑀 ∈ (ℤ‘((𝑗 + 1) − 1))) → ((𝑗 + 1)...(𝑀 + 1)) = (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)}))
298291, 296, 297syl2anc 691 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑗 ∈ (0...𝑀) → ((𝑗 + 1)...(𝑀 + 1)) = (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)}))
299298imaeq2d 5385 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑗 ∈ (0...𝑀) → ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) = ((2nd𝑘) “ (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)})))
300 imaundi 5464 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((2nd𝑘) “ (((𝑗 + 1)...𝑀) ∪ {(𝑀 + 1)})) = (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd𝑘) “ {(𝑀 + 1)}))
301299, 300syl6eq 2660 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑗 ∈ (0...𝑀) → ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) = (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd𝑘) “ {(𝑀 + 1)})))
302301xpeq1d 5062 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 ∈ (0...𝑀) → (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = ((((2nd𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd𝑘) “ {(𝑀 + 1)})) × {0}))
303 xpundir 5095 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((2nd𝑘) “ ((𝑗 + 1)...𝑀)) ∪ ((2nd𝑘) “ {(𝑀 + 1)})) × {0}) = ((((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd𝑘) “ {(𝑀 + 1)}) × {0}))
304302, 303syl6eq 2660 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ (0...𝑀) → (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = ((((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd𝑘) “ {(𝑀 + 1)}) × {0})))
305304uneq2d 3729 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑗 ∈ (0...𝑀) → ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd𝑘) “ {(𝑀 + 1)}) × {0}))))
306 unass 3732 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd𝑘) “ {(𝑀 + 1)}) × {0})) = ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0}) ∪ (((2nd𝑘) “ {(𝑀 + 1)}) × {0})))
307305, 306syl6eqr 2662 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑗 ∈ (0...𝑀) → ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd𝑘) “ {(𝑀 + 1)}) × {0})))
308307adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd𝑘) “ {(𝑀 + 1)}) × {0})))
30998xpeq1d 5062 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ({((2nd𝑘)‘(𝑀 + 1))} × {0}) = (((2nd𝑘) “ {(𝑀 + 1)}) × {0}))
310309uneq2d 3729 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({((2nd𝑘)‘(𝑀 + 1))} × {0})) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd𝑘) “ {(𝑀 + 1)}) × {0})))
311310adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({((2nd𝑘)‘(𝑀 + 1))} × {0})) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ (((2nd𝑘) “ {(𝑀 + 1)}) × {0})))
312308, 311eqtr4d 2647 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({((2nd𝑘)‘(𝑀 + 1))} × {0})))
31399xpeq1d 5062 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → ({((2nd𝑘)‘(𝑀 + 1))} × {0}) = ({(𝑀 + 1)} × {0}))
314313uneq2d 3729 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({((2nd𝑘)‘(𝑀 + 1))} × {0})) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0})))
315312, 314sylan9eq 2664 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ 𝑗 ∈ (0...𝑀)) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0})))
316315an32s 842 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0})))
317316fveq1d 6105 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛) = ((((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0}))‘𝑛))
318317adantr 480 . . . . . . . . . . . . . . . . . . . . 21 (((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛) = ((((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0})) ∪ ({(𝑀 + 1)} × {0}))‘𝑛))
319273fveq1d 6105 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗 ∈ (0...𝑀) → ((((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛))
320319ad2antlr 759 . . . . . . . . . . . . . . . . . . . . 21 (((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → ((((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛))
321290, 318, 3203eqtr4rd 2655 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...𝑀)) → ((((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))‘𝑛) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))
322234, 276, 277, 277, 278, 280, 321offval 6802 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → (((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) = (𝑛 ∈ (1...𝑀) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))))
323322uneq1d 3728 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ 𝑗 ∈ (0...𝑀)) → ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...𝑀) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})))
324323adantlrl 752 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...𝑀) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ (((𝑀 + 1)...𝑁) × {0})))
325 simplr 788 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → 𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}))
326231adantr 480 . . . . . . . . . . . . . . . . . . . 20 ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (1st𝑘) Fn (1...(𝑀 + 1)))
327213, 215pm3.2i 470 . . . . . . . . . . . . . . . . . . . . . 22 ((((2nd𝑘) “ (1...𝑗)) × {1}) Fn ((2nd𝑘) “ (1...𝑗)) ∧ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) Fn ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
328184, 193sylan9req 2665 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd𝑘) “ (1...𝑗)) ∩ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ∅)
329 fnun 5911 . . . . . . . . . . . . . . . . . . . . . 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)))))
330327, 328, 329sylancr 694 . . . . . . . . . . . . . . . . . . . . 21 ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (((2nd𝑘) “ (1...𝑗)) ∪ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))))
331 peano2uz 11617 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑀 ∈ (ℤ𝑗) → (𝑀 + 1) ∈ (ℤ𝑗))
332202, 331syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑗 ∈ (0...𝑀) → (𝑀 + 1) ∈ (ℤ𝑗))
333 fzsplit2 12237 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝑗 + 1) ∈ (ℤ‘1) ∧ (𝑀 + 1) ∈ (ℤ𝑗)) → (1...(𝑀 + 1)) = ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1))))
334268, 332, 333syl2anc 691 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 ∈ (0...𝑀) → (1...(𝑀 + 1)) = ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1))))
335334imaeq2d 5385 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 ∈ (0...𝑀) → ((2nd𝑘) “ (1...(𝑀 + 1))) = ((2nd𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1)))))
336 imaundi 5464 . . . . . . . . . . . . . . . . . . . . . . . 24 ((2nd𝑘) “ ((1...𝑗) ∪ ((𝑗 + 1)...(𝑀 + 1)))) = (((2nd𝑘) “ (1...𝑗)) ∪ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
337335, 336syl6req 2661 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 ∈ (0...𝑀) → (((2nd𝑘) “ (1...𝑗)) ∪ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = ((2nd𝑘) “ (1...(𝑀 + 1))))
338337, 89sylan9eqr 2666 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((2nd𝑘) “ (1...𝑗)) ∪ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) = (1...(𝑀 + 1)))
339338fneq2d 5896 . . . . . . . . . . . . . . . . . . . . 21 ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (((2nd𝑘) “ (1...𝑗)) ∪ ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1)))) ↔ ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (1...(𝑀 + 1))))
340330, 339mpbid 221 . . . . . . . . . . . . . . . . . . . 20 ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) Fn (1...(𝑀 + 1)))
341 fzfid 12634 . . . . . . . . . . . . . . . . . . . 20 ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (1...(𝑀 + 1)) ∈ Fin)
342 inidm 3784 . . . . . . . . . . . . . . . . . . . 20 ((1...(𝑀 + 1)) ∩ (1...(𝑀 + 1))) = (1...(𝑀 + 1))
343 eqidd 2611 . . . . . . . . . . . . . . . . . . . 20 (((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...(𝑀 + 1))) → ((1st𝑘)‘𝑛) = ((1st𝑘)‘𝑛))
344 eqidd 2611 . . . . . . . . . . . . . . . . . . . 20 (((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑛 ∈ (1...(𝑀 + 1))) → (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛) = (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))
345326, 340, 341, 341, 342, 343, 344offval 6802 . . . . . . . . . . . . . . . . . . 19 ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → ((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) = (𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))))
346345uneq1d 3728 . . . . . . . . . . . . . . . . . 18 ((𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∧ 𝑗 ∈ (0...𝑀)) → (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
347325, 346sylan 487 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((𝑛 ∈ (1...(𝑀 + 1)) ↦ (((1st𝑘)‘𝑛) + (((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))‘𝑛))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
348229, 324, 3473eqtr4rd 2655 . . . . . . . . . . . . . . . 16 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})))
349348csbeq1d 3506 . . . . . . . . . . . . . . 15 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵)
350349eqeq2d 2620 . . . . . . . . . . . . . 14 ((((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵𝑖 = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵))
351350rexbidva 3031 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵))
352351ralbidv 2969 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵))
353352biimpd 218 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 → ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵))
354353impr 647 . . . . . . . . . 10 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) ∧ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵)) → ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵)
355142, 354sylan2b 491 . . . . . . . . 9 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵)
356 1st2nd2 7096 . . . . . . . . . . . 12 (𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) → 𝑘 = ⟨(1st𝑘), (2nd𝑘)⟩)
357356ad2antlr 759 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → 𝑘 = ⟨(1st𝑘), (2nd𝑘)⟩)
358 fnsnsplit 6355 . . . . . . . . . . . . . . . 16 (((1st𝑘) Fn (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ (1...(𝑀 + 1))) → (1st𝑘) = (((1st𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st𝑘)‘(𝑀 + 1))⟩}))
359231, 96, 358syl2anr 494 . . . . . . . . . . . . . . 15 ((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → (1st𝑘) = (((1st𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st𝑘)‘(𝑀 + 1))⟩}))
360359adantr 480 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((1st𝑘)‘(𝑀 + 1)) = 0) → (1st𝑘) = (((1st𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st𝑘)‘(𝑀 + 1))⟩}))
361125reseq2d 5317 . . . . . . . . . . . . . . . 16 (𝜑 → ((1st𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1st𝑘) ↾ (1...𝑀)))
362361adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((1st𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1st𝑘) ↾ (1...𝑀)))
363 opeq2 4341 . . . . . . . . . . . . . . . 16 (((1st𝑘)‘(𝑀 + 1)) = 0 → ⟨(𝑀 + 1), ((1st𝑘)‘(𝑀 + 1))⟩ = ⟨(𝑀 + 1), 0⟩)
364363sneqd 4137 . . . . . . . . . . . . . . 15 (((1st𝑘)‘(𝑀 + 1)) = 0 → {⟨(𝑀 + 1), ((1st𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), 0⟩})
365 uneq12 3724 . . . . . . . . . . . . . . 15 ((((1st𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((1st𝑘) ↾ (1...𝑀)) ∧ {⟨(𝑀 + 1), ((1st𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), 0⟩}) → (((1st𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st𝑘)‘(𝑀 + 1))⟩}) = (((1st𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
366362, 364, 365syl2an 493 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((1st𝑘)‘(𝑀 + 1)) = 0) → (((1st𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((1st𝑘)‘(𝑀 + 1))⟩}) = (((1st𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
367360, 366eqtrd 2644 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((1st𝑘)‘(𝑀 + 1)) = 0) → (1st𝑘) = (((1st𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
368367adantrr 749 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (1st𝑘) = (((1st𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
369 fnsnsplit 6355 . . . . . . . . . . . . . . . 16 (((2nd𝑘) Fn (1...(𝑀 + 1)) ∧ (𝑀 + 1) ∈ (1...(𝑀 + 1))) → (2nd𝑘) = (((2nd𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd𝑘)‘(𝑀 + 1))⟩}))
37092, 96, 369syl2anr 494 . . . . . . . . . . . . . . 15 ((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → (2nd𝑘) = (((2nd𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd𝑘)‘(𝑀 + 1))⟩}))
371370adantr 480 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (2nd𝑘) = (((2nd𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd𝑘)‘(𝑀 + 1))⟩}))
372125reseq2d 5317 . . . . . . . . . . . . . . . 16 (𝜑 → ((2nd𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd𝑘) ↾ (1...𝑀)))
373372adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((2nd𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd𝑘) ↾ (1...𝑀)))
374 opeq2 4341 . . . . . . . . . . . . . . . 16 (((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → ⟨(𝑀 + 1), ((2nd𝑘)‘(𝑀 + 1))⟩ = ⟨(𝑀 + 1), (𝑀 + 1)⟩)
375374sneqd 4137 . . . . . . . . . . . . . . 15 (((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1) → {⟨(𝑀 + 1), ((2nd𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), (𝑀 + 1)⟩})
376 uneq12 3724 . . . . . . . . . . . . . . 15 ((((2nd𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) = ((2nd𝑘) ↾ (1...𝑀)) ∧ {⟨(𝑀 + 1), ((2nd𝑘)‘(𝑀 + 1))⟩} = {⟨(𝑀 + 1), (𝑀 + 1)⟩}) → (((2nd𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd𝑘)‘(𝑀 + 1))⟩}) = (((2nd𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
377373, 375, 376syl2an 493 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (((2nd𝑘) ↾ ((1...(𝑀 + 1)) ∖ {(𝑀 + 1)})) ∪ {⟨(𝑀 + 1), ((2nd𝑘)‘(𝑀 + 1))⟩}) = (((2nd𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
378371, 377eqtrd 2644 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (2nd𝑘) = (((2nd𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
379378adantrl 748 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → (2nd𝑘) = (((2nd𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
380368, 379opeq12d 4348 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ⟨(1st𝑘), (2nd𝑘)⟩ = ⟨(((1st𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
381357, 380eqtrd 2644 . . . . . . . . . 10 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → 𝑘 = ⟨(((1st𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
3823813adantr1 1213 . . . . . . . . 9 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → 𝑘 = ⟨(((1st𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
383 fvex 6113 . . . . . . . . . . . . . . . . . . 19 (1st𝑘) ∈ V
384383resex 5363 . . . . . . . . . . . . . . . . . 18 ((1st𝑘) ↾ (1...𝑀)) ∈ V
385384, 133op1std 7069 . . . . . . . . . . . . . . . . 17 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → (1st𝑡) = ((1st𝑘) ↾ (1...𝑀)))
386384, 133op2ndd 7070 . . . . . . . . . . . . . . . . . . . 20 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → (2nd𝑡) = ((2nd𝑘) ↾ (1...𝑀)))
387386imaeq1d 5384 . . . . . . . . . . . . . . . . . . 19 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → ((2nd𝑡) “ (1...𝑗)) = (((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)))
388387xpeq1d 5062 . . . . . . . . . . . . . . . . . 18 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → (((2nd𝑡) “ (1...𝑗)) × {1}) = ((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}))
389386imaeq1d 5384 . . . . . . . . . . . . . . . . . . 19 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → ((2nd𝑡) “ ((𝑗 + 1)...𝑀)) = (((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)))
390389xpeq1d 5062 . . . . . . . . . . . . . . . . . 18 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}) = ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))
391388, 390uneq12d 3730 . . . . . . . . . . . . . . . . 17 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0})) = (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0})))
392385, 391oveq12d 6567 . . . . . . . . . . . . . . . 16 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → ((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) = (((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))))
393392uneq1d 3728 . . . . . . . . . . . . . . 15 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})))
394393csbeq1d 3506 . . . . . . . . . . . . . 14 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵 = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵)
395394eqeq2d 2620 . . . . . . . . . . . . 13 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → (𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵𝑖 = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵))
396395rexbidv 3034 . . . . . . . . . . . 12 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → (∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵))
397396ralbidv 2969 . . . . . . . . . . 11 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵))
398385uneq1d 3728 . . . . . . . . . . . . 13 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → ((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = (((1st𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}))
399386uneq1d 3728 . . . . . . . . . . . . 13 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (((2nd𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
400398, 399opeq12d 4348 . . . . . . . . . . . 12 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ = ⟨(((1st𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
401400eqeq2d 2620 . . . . . . . . . . 11 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → (𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ 𝑘 = ⟨(((1st𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
402397, 401anbi12d 743 . . . . . . . . . 10 (𝑡 = ⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵𝑘 = ⟨(((1st𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)))
403402rspcev 3282 . . . . . . . . 9 ((⟨((1st𝑘) ↾ (1...𝑀)), ((2nd𝑘) ↾ (1...𝑀))⟩ ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = ((((1st𝑘) ↾ (1...𝑀)) ∘𝑓 + (((((2nd𝑘) ↾ (1...𝑀)) “ (1...𝑗)) × {1}) ∪ ((((2nd𝑘) ↾ (1...𝑀)) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵𝑘 = ⟨(((1st𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), 0⟩}), (((2nd𝑘) ↾ (1...𝑀)) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)) → ∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
404139, 355, 382, 403syl12anc 1316 . . . . . . . 8 (((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) ∧ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))) → ∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
405404ex 449 . . . . . . 7 ((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)))
406 elrabi 3328 . . . . . . . . . . 11 (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} → 𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
407 elrabi 3328 . . . . . . . . . . 11 (𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} → 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))
408406, 407anim12i 588 . . . . . . . . . 10 ((𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ∧ 𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}) → (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})))
409 eqtr2 2630 . . . . . . . . . . . 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)⟩})⟩)
41022, 24opth 4871 . . . . . . . . . . . . 13 (⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ = ⟨((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ (((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})))
411 difeq1 3683 . . . . . . . . . . . . . . 15 (((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) → (((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}) = (((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}))
412 difun2 4000 . . . . . . . . . . . . . . 15 (((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st𝑡) ∖ {⟨(𝑀 + 1), 0⟩})
413 difun2 4000 . . . . . . . . . . . . . . 15 (((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st𝑛) ∖ {⟨(𝑀 + 1), 0⟩})
414411, 412, 4133eqtr3g 2667 . . . . . . . . . . . . . 14 (((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}) → ((1st𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st𝑛) ∖ {⟨(𝑀 + 1), 0⟩}))
415 difeq1 3683 . . . . . . . . . . . . . . 15 (((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) → (((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
416 difun2 4000 . . . . . . . . . . . . . . 15 (((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})
417 difun2 4000 . . . . . . . . . . . . . . 15 (((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})
418415, 416, 4173eqtr3g 2667 . . . . . . . . . . . . . 14 (((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) → ((2nd𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
419414, 418anim12i 588 . . . . . . . . . . . . 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)⟩})))
420410, 419sylbi 206 . . . . . . . . . . . 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)⟩})))
421409, 420syl 17 . . . . . . . . . . 11 ((𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → (((1st𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})))
422 elmapfn 7766 . . . . . . . . . . . . . . . . . . 19 ((1st𝑡) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)) → (1st𝑡) Fn (1...𝑀))
423 fnop 5908 . . . . . . . . . . . . . . . . . . . 20 (((1st𝑡) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), 0⟩ ∈ (1st𝑡)) → (𝑀 + 1) ∈ (1...𝑀))
424423ex 449 . . . . . . . . . . . . . . . . . . 19 ((1st𝑡) Fn (1...𝑀) → (⟨(𝑀 + 1), 0⟩ ∈ (1st𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
4259, 422, 4243syl 18 . . . . . . . . . . . . . . . . . 18 (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), 0⟩ ∈ (1st𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
426425, 122nsyli 154 . . . . . . . . . . . . . . . . 17 (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st𝑡)))
427426impcom 445 . . . . . . . . . . . . . . . 16 ((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st𝑡))
428 difsn 4269 . . . . . . . . . . . . . . . 16 (¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st𝑡) → ((1st𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st𝑡))
429427, 428syl 17 . . . . . . . . . . . . . . 15 ((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((1st𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st𝑡))
430 xp1st 7089 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (1st𝑛) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)))
431 elmapfn 7766 . . . . . . . . . . . . . . . . . . 19 ((1st𝑛) ∈ ((0..^𝐾) ↑𝑚 (1...𝑀)) → (1st𝑛) Fn (1...𝑀))
432 fnop 5908 . . . . . . . . . . . . . . . . . . . 20 (((1st𝑛) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), 0⟩ ∈ (1st𝑛)) → (𝑀 + 1) ∈ (1...𝑀))
433432ex 449 . . . . . . . . . . . . . . . . . . 19 ((1st𝑛) Fn (1...𝑀) → (⟨(𝑀 + 1), 0⟩ ∈ (1st𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
434430, 431, 4333syl 18 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), 0⟩ ∈ (1st𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
435434, 122nsyli 154 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st𝑛)))
436435impcom 445 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st𝑛))
437 difsn 4269 . . . . . . . . . . . . . . . 16 (¬ ⟨(𝑀 + 1), 0⟩ ∈ (1st𝑛) → ((1st𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st𝑛))
438436, 437syl 17 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((1st𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) = (1st𝑛))
439429, 438eqeqan12d 2626 . . . . . . . . . . . . . 14 (((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) ∧ (𝜑𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((1st𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ↔ (1st𝑡) = (1st𝑛)))
440439anandis 869 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((1st𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ↔ (1st𝑡) = (1st𝑛)))
441 f1ofn 6051 . . . . . . . . . . . . . . . . . . 19 ((2nd𝑡):(1...𝑀)–1-1-onto→(1...𝑀) → (2nd𝑡) Fn (1...𝑀))
442 fnop 5908 . . . . . . . . . . . . . . . . . . . 20 (((2nd𝑡) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd𝑡)) → (𝑀 + 1) ∈ (1...𝑀))
443442ex 449 . . . . . . . . . . . . . . . . . . 19 ((2nd𝑡) Fn (1...𝑀) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
44417, 441, 4433syl 18 . . . . . . . . . . . . . . . . . 18 (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd𝑡) → (𝑀 + 1) ∈ (1...𝑀)))
445444, 122nsyli 154 . . . . . . . . . . . . . . . . 17 (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd𝑡)))
446445impcom 445 . . . . . . . . . . . . . . . 16 ((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd𝑡))
447 difsn 4269 . . . . . . . . . . . . . . . 16 (¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd𝑡) → ((2nd𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd𝑡))
448446, 447syl 17 . . . . . . . . . . . . . . 15 ((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((2nd𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd𝑡))
449 xp2nd 7090 . . . . . . . . . . . . . . . . . . . 20 (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd𝑛) ∈ {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})
450 fvex 6113 . . . . . . . . . . . . . . . . . . . . 21 (2nd𝑛) ∈ V
451 f1oeq1 6040 . . . . . . . . . . . . . . . . . . . . 21 (𝑓 = (2nd𝑛) → (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) ↔ (2nd𝑛):(1...𝑀)–1-1-onto→(1...𝑀)))
452450, 451elab 3319 . . . . . . . . . . . . . . . . . . . 20 ((2nd𝑛) ∈ {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ↔ (2nd𝑛):(1...𝑀)–1-1-onto→(1...𝑀))
453449, 452sylib 207 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (2nd𝑛):(1...𝑀)–1-1-onto→(1...𝑀))
454 f1ofn 6051 . . . . . . . . . . . . . . . . . . 19 ((2nd𝑛):(1...𝑀)–1-1-onto→(1...𝑀) → (2nd𝑛) Fn (1...𝑀))
455 fnop 5908 . . . . . . . . . . . . . . . . . . . 20 (((2nd𝑛) Fn (1...𝑀) ∧ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd𝑛)) → (𝑀 + 1) ∈ (1...𝑀))
456455ex 449 . . . . . . . . . . . . . . . . . . 19 ((2nd𝑛) Fn (1...𝑀) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
457453, 454, 4563syl 18 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd𝑛) → (𝑀 + 1) ∈ (1...𝑀)))
458457, 122nsyli 154 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) → (𝜑 → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd𝑛)))
459458impcom 445 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd𝑛))
460 difsn 4269 . . . . . . . . . . . . . . . 16 (¬ ⟨(𝑀 + 1), (𝑀 + 1)⟩ ∈ (2nd𝑛) → ((2nd𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd𝑛))
461459, 460syl 17 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → ((2nd𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = (2nd𝑛))
462448, 461eqeqan12d 2626 . . . . . . . . . . . . . 14 (((𝜑𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) ∧ (𝜑𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((2nd𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ↔ (2nd𝑡) = (2nd𝑛)))
463462anandis 869 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((2nd𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) ↔ (2nd𝑡) = (2nd𝑛)))
464440, 463anbi12d 743 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → ((((1st𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})) ↔ ((1st𝑡) = (1st𝑛) ∧ (2nd𝑡) = (2nd𝑛))))
465 xpopth 7098 . . . . . . . . . . . . 13 ((𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})) → (((1st𝑡) = (1st𝑛) ∧ (2nd𝑡) = (2nd𝑛)) ↔ 𝑡 = 𝑛))
466465adantl 481 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → (((1st𝑡) = (1st𝑛) ∧ (2nd𝑡) = (2nd𝑛)) ↔ 𝑡 = 𝑛))
467464, 466bitrd 267 . . . . . . . . . . 11 ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → ((((1st𝑡) ∖ {⟨(𝑀 + 1), 0⟩}) = ((1st𝑛) ∖ {⟨(𝑀 + 1), 0⟩}) ∧ ((2nd𝑡) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd𝑛) ∖ {⟨(𝑀 + 1), (𝑀 + 1)⟩})) ↔ 𝑡 = 𝑛))
468421, 467syl5ib 233 . . . . . . . . . 10 ((𝜑 ∧ (𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∧ 𝑛 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}))) → ((𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
469408, 468sylan2 490 . . . . . . . . 9 ((𝜑 ∧ (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ∧ 𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵})) → ((𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
470469ralrimivva 2954 . . . . . . . 8 (𝜑 → ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ((𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
471470adantr 480 . . . . . . 7 ((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ((𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))
472405, 471jctird 565 . . . . . 6 ((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → (∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ((𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛))))
473 fveq2 6103 . . . . . . . . . . 11 (𝑡 = 𝑛 → (1st𝑡) = (1st𝑛))
474473uneq1d 3728 . . . . . . . . . 10 (𝑡 = 𝑛 → ((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}) = ((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}))
475 fveq2 6103 . . . . . . . . . . 11 (𝑡 = 𝑛 → (2nd𝑡) = (2nd𝑛))
476475uneq1d 3728 . . . . . . . . . 10 (𝑡 = 𝑛 → ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}) = ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩}))
477474, 476opeq12d 4348 . . . . . . . . 9 (𝑡 = 𝑛 → ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ = ⟨((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
478477eqeq2d 2620 . . . . . . . 8 (𝑡 = 𝑛 → (𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ 𝑘 = ⟨((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
479478reu4 3367 . . . . . . 7 (∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ (∃𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ((𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)))
48058rexrab 3337 . . . . . . . 8 (∃𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ ∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
481480anbi1i 727 . . . . . . 7 ((∃𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ((𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)) ↔ (∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ((𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)))
482479, 481bitri 263 . . . . . 6 (∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ (∃𝑡 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)})(∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑡) ∘𝑓 + ((((2nd𝑡) “ (1...𝑗)) × {1}) ∪ (((2nd𝑡) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) ∧ ∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}∀𝑛 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ((𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∧ 𝑘 = ⟨((1st𝑛) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑛) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) → 𝑡 = 𝑛)))
483472, 482syl6ibr 241 . . . . 5 ((𝜑𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})) → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
484483ralrimiva 2949 . . . 4 (𝜑 → ∀𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
485 fveq2 6103 . . . . . . . . . . . 12 (𝑠 = 𝑘 → (1st𝑠) = (1st𝑘))
486 fveq2 6103 . . . . . . . . . . . . . . 15 (𝑠 = 𝑘 → (2nd𝑠) = (2nd𝑘))
487486imaeq1d 5384 . . . . . . . . . . . . . 14 (𝑠 = 𝑘 → ((2nd𝑠) “ (1...𝑗)) = ((2nd𝑘) “ (1...𝑗)))
488487xpeq1d 5062 . . . . . . . . . . . . 13 (𝑠 = 𝑘 → (((2nd𝑠) “ (1...𝑗)) × {1}) = (((2nd𝑘) “ (1...𝑗)) × {1}))
489486imaeq1d 5384 . . . . . . . . . . . . . 14 (𝑠 = 𝑘 → ((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) = ((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))))
490489xpeq1d 5062 . . . . . . . . . . . . 13 (𝑠 = 𝑘 → (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}) = (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))
491488, 490uneq12d 3730 . . . . . . . . . . . 12 (𝑠 = 𝑘 → ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})) = ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0})))
492485, 491oveq12d 6567 . . . . . . . . . . 11 (𝑠 = 𝑘 → ((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) = ((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))))
493492uneq1d 3728 . . . . . . . . . 10 (𝑠 = 𝑘 → (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})))
494493csbeq1d 3506 . . . . . . . . 9 (𝑠 = 𝑘(((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵)
495494eqeq2d 2620 . . . . . . . 8 (𝑠 = 𝑘 → (𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵))
496495rexbidv 3034 . . . . . . 7 (𝑠 = 𝑘 → (∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ↔ ∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵))
497496ralbidv 2969 . . . . . 6 (𝑠 = 𝑘 → (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ↔ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵))
498485fveq1d 6105 . . . . . . 7 (𝑠 = 𝑘 → ((1st𝑠)‘(𝑀 + 1)) = ((1st𝑘)‘(𝑀 + 1)))
499498eqeq1d 2612 . . . . . 6 (𝑠 = 𝑘 → (((1st𝑠)‘(𝑀 + 1)) = 0 ↔ ((1st𝑘)‘(𝑀 + 1)) = 0))
500486fveq1d 6105 . . . . . . 7 (𝑠 = 𝑘 → ((2nd𝑠)‘(𝑀 + 1)) = ((2nd𝑘)‘(𝑀 + 1)))
501500eqeq1d 2612 . . . . . 6 (𝑠 = 𝑘 → (((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1) ↔ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)))
502497, 499, 5013anbi123d 1391 . . . . 5 (𝑠 = 𝑘 → ((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1)) ↔ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1))))
503502ralrab 3335 . . . 4 (∀𝑘 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ↔ ∀𝑘 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))})((∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑘) ∘𝑓 + ((((2nd𝑘) “ (1...𝑗)) × {1}) ∪ (((2nd𝑘) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑘)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑘)‘(𝑀 + 1)) = (𝑀 + 1)) → ∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
504484, 503sylibr 223 . . 3 (𝜑 → ∀𝑘 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
505 eqid 2610 . . . 4 (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ↦ ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩) = (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ↦ ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩)
506505f1ompt 6290 . . 3 ((𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ↦ ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩):{𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}–1-1-onto→{𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ↔ (∀𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩ ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} ∧ ∀𝑘 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))}∃!𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}𝑘 = ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩))
50760, 504, 506sylanbrc 695 . 2 (𝜑 → (𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ↦ ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩):{𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}–1-1-onto→{𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
508 ovex 6577 . . . . 5 ((0..^𝐾) ↑𝑚 (1...𝑀)) ∈ V
509 ovex 6577 . . . . . 6 ((1...𝑀) ↑𝑚 (1...𝑀)) ∈ V
510 f1of 6050 . . . . . . . 8 (𝑓:(1...𝑀)–1-1-onto→(1...𝑀) → 𝑓:(1...𝑀)⟶(1...𝑀))
511510ss2abi 3637 . . . . . . 7 {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ⊆ {𝑓𝑓:(1...𝑀)⟶(1...𝑀)}
51268, 68mapval 7756 . . . . . . 7 ((1...𝑀) ↑𝑚 (1...𝑀)) = {𝑓𝑓:(1...𝑀)⟶(1...𝑀)}
513511, 512sseqtr4i 3601 . . . . . 6 {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ⊆ ((1...𝑀) ↑𝑚 (1...𝑀))
514509, 513ssexi 4731 . . . . 5 {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)} ∈ V
515508, 514xpex 6860 . . . 4 (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∈ V
516515rabex 4740 . . 3 {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ∈ V
517516f1oen 7862 . 2 ((𝑡 ∈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ↦ ⟨((1st𝑡) ∪ {⟨(𝑀 + 1), 0⟩}), ((2nd𝑡) ∪ {⟨(𝑀 + 1), (𝑀 + 1)⟩})⟩):{𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵}–1-1-onto→{𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))} → {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ≈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
518507, 517syl 17 1 (𝜑 → {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...𝑀)) × {𝑓𝑓:(1...𝑀)–1-1-onto→(1...𝑀)}) ∣ ∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...𝑀)) × {0}))) ∪ (((𝑀 + 1)...𝑁) × {0})) / 𝑝𝐵} ≈ {𝑠 ∈ (((0..^𝐾) ↑𝑚 (1...(𝑀 + 1))) × {𝑓𝑓:(1...(𝑀 + 1))–1-1-onto→(1...(𝑀 + 1))}) ∣ (∀𝑖 ∈ (0...𝑀)∃𝑗 ∈ (0...𝑀)𝑖 = (((1st𝑠) ∘𝑓 + ((((2nd𝑠) “ (1...𝑗)) × {1}) ∪ (((2nd𝑠) “ ((𝑗 + 1)...(𝑀 + 1))) × {0}))) ∪ ((((𝑀 + 1) + 1)...𝑁) × {0})) / 𝑝𝐵 ∧ ((1st𝑠)‘(𝑀 + 1)) = 0 ∧ ((2nd𝑠)‘(𝑀 + 1)) = (𝑀 + 1))})
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 195  wa 383  w3a 1031   = wceq 1475  wcel 1977  {cab 2596  wral 2896  wrex 2897  ∃!wreu 2898  {crab 2900  Vcvv 3173  csb 3499  cdif 3537  cun 3538  cin 3539  wss 3540  c0 3874  {csn 4125  cop 4131   class class class wbr 4583  cmpt 4643   × cxp 5036  ccnv 5037  cres 5040  cima 5041  Fun wfun 5798   Fn wfn 5799  wf 5800  1-1wf1 5801  ontowfo 5802  1-1-ontowf1o 5803  cfv 5804  (class class class)co 6549  𝑓 cof 6793  1st c1st 7057  2nd c2nd 7058  𝑚 cmap 7744  cen 7838  Fincfn 7841  cc 9813  cr 9814  0cc0 9815  1c1 9816   + caddc 9818   < clt 9953  cle 9954  cmin 10145  cn 10897  0cn0 11169  cz 11254  cuz 11563  ...cfz 12197  ..^cfzo 12334
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-cnex 9871  ax-resscn 9872  ax-1cn 9873  ax-icn 9874  ax-addcl 9875  ax-addrcl 9876  ax-mulcl 9877  ax-mulrcl 9878  ax-mulcom 9879  ax-addass 9880  ax-mulass 9881  ax-distr 9882  ax-i2m1 9883  ax-1ne0 9884  ax-1rid 9885  ax-rnegex 9886  ax-rrecex 9887  ax-cnre 9888  ax-pre-lttri 9889  ax-pre-lttrn 9890  ax-pre-ltadd 9891  ax-pre-mulgt0 9892
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-of 6795  df-om 6958  df-1st 7059  df-2nd 7060  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-1o 7447  df-er 7629  df-map 7746  df-en 7842  df-dom 7843  df-sdom 7844  df-fin 7845  df-pnf 9955  df-mnf 9956  df-xr 9957  df-ltxr 9958  df-le 9959  df-sub 10147  df-neg 10148  df-nn 10898  df-n0 11170  df-z 11255  df-uz 11564  df-fz 12198  df-fzo 12335
This theorem is referenced by:  poimirlem28  32607
  Copyright terms: Public domain W3C validator