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

Theorem poimirlem1 36108
Description: Lemma for poimir 36140- the vertices on either side of a skipped vertex differ in at least two dimensions. (Contributed by Brendan Leahy, 21-Aug-2020.)
Hypotheses
Ref Expression
poimir.0 (πœ‘ β†’ 𝑁 ∈ β„•)
poimirlem2.1 (πœ‘ β†’ 𝐹 = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0})))))
poimirlem2.2 (πœ‘ β†’ 𝑇:(1...𝑁)βŸΆβ„€)
poimirlem2.3 (πœ‘ β†’ π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁))
poimirlem1.4 (πœ‘ β†’ 𝑀 ∈ (1...(𝑁 βˆ’ 1)))
Assertion
Ref Expression
poimirlem1 (πœ‘ β†’ Β¬ βˆƒ*𝑛 ∈ (1...𝑁)((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›))
Distinct variable groups:   𝑗,𝑛,𝑦,πœ‘   𝑗,𝐹,𝑛,𝑦   𝑗,𝑀,𝑛,𝑦   𝑗,𝑁,𝑛,𝑦   𝑇,𝑗,𝑛,𝑦   π‘ˆ,𝑗,𝑛,𝑦

Proof of Theorem poimirlem1
Dummy variable π‘š is distinct from all other variables.
StepHypRef Expression
1 poimirlem2.3 . . . . 5 (πœ‘ β†’ π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁))
2 f1of 6789 . . . . 5 (π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ π‘ˆ:(1...𝑁)⟢(1...𝑁))
31, 2syl 17 . . . 4 (πœ‘ β†’ π‘ˆ:(1...𝑁)⟢(1...𝑁))
4 poimir.0 . . . . . . . . 9 (πœ‘ β†’ 𝑁 ∈ β„•)
54nncnd 12176 . . . . . . . 8 (πœ‘ β†’ 𝑁 ∈ β„‚)
6 npcan1 11587 . . . . . . . 8 (𝑁 ∈ β„‚ β†’ ((𝑁 βˆ’ 1) + 1) = 𝑁)
75, 6syl 17 . . . . . . 7 (πœ‘ β†’ ((𝑁 βˆ’ 1) + 1) = 𝑁)
84nnzd 12533 . . . . . . . 8 (πœ‘ β†’ 𝑁 ∈ β„€)
9 peano2zm 12553 . . . . . . . 8 (𝑁 ∈ β„€ β†’ (𝑁 βˆ’ 1) ∈ β„€)
10 uzid 12785 . . . . . . . 8 ((𝑁 βˆ’ 1) ∈ β„€ β†’ (𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
11 peano2uz 12833 . . . . . . . 8 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
128, 9, 10, 114syl 19 . . . . . . 7 (πœ‘ β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
137, 12eqeltrrd 2839 . . . . . 6 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
14 fzss2 13488 . . . . . 6 (𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)) β†’ (1...(𝑁 βˆ’ 1)) βŠ† (1...𝑁))
1513, 14syl 17 . . . . 5 (πœ‘ β†’ (1...(𝑁 βˆ’ 1)) βŠ† (1...𝑁))
16 poimirlem1.4 . . . . 5 (πœ‘ β†’ 𝑀 ∈ (1...(𝑁 βˆ’ 1)))
1715, 16sseldd 3950 . . . 4 (πœ‘ β†’ 𝑀 ∈ (1...𝑁))
183, 17ffvelcdmd 7041 . . 3 (πœ‘ β†’ (π‘ˆβ€˜π‘€) ∈ (1...𝑁))
19 fzp1elp1 13501 . . . . . 6 (𝑀 ∈ (1...(𝑁 βˆ’ 1)) β†’ (𝑀 + 1) ∈ (1...((𝑁 βˆ’ 1) + 1)))
2016, 19syl 17 . . . . 5 (πœ‘ β†’ (𝑀 + 1) ∈ (1...((𝑁 βˆ’ 1) + 1)))
217oveq2d 7378 . . . . 5 (πœ‘ β†’ (1...((𝑁 βˆ’ 1) + 1)) = (1...𝑁))
2220, 21eleqtrd 2840 . . . 4 (πœ‘ β†’ (𝑀 + 1) ∈ (1...𝑁))
233, 22ffvelcdmd 7041 . . 3 (πœ‘ β†’ (π‘ˆβ€˜(𝑀 + 1)) ∈ (1...𝑁))
24 imassrn 6029 . . . . . . . . . 10 (π‘ˆ β€œ (𝑀...(𝑀 + 1))) βŠ† ran π‘ˆ
25 frn 6680 . . . . . . . . . . 11 (π‘ˆ:(1...𝑁)⟢(1...𝑁) β†’ ran π‘ˆ βŠ† (1...𝑁))
261, 2, 253syl 18 . . . . . . . . . 10 (πœ‘ β†’ ran π‘ˆ βŠ† (1...𝑁))
2724, 26sstrid 3960 . . . . . . . . 9 (πœ‘ β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) βŠ† (1...𝑁))
2827sselda 3949 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ 𝑛 ∈ (1...𝑁))
29 poimirlem2.2 . . . . . . . . . . 11 (πœ‘ β†’ 𝑇:(1...𝑁)βŸΆβ„€)
3029ffvelcdmda 7040 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ (π‘‡β€˜π‘›) ∈ β„€)
3130zred 12614 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ (π‘‡β€˜π‘›) ∈ ℝ)
3231ltp1d 12092 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ (π‘‡β€˜π‘›) < ((π‘‡β€˜π‘›) + 1))
3331, 32ltned 11298 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ (π‘‡β€˜π‘›) β‰  ((π‘‡β€˜π‘›) + 1))
3428, 33syldan 592 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ (π‘‡β€˜π‘›) β‰  ((π‘‡β€˜π‘›) + 1))
35 poimirlem2.1 . . . . . . . . . . 11 (πœ‘ β†’ 𝐹 = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0})))))
36 breq1 5113 . . . . . . . . . . . . . . 15 (𝑦 = (𝑀 βˆ’ 1) β†’ (𝑦 < 𝑀 ↔ (𝑀 βˆ’ 1) < 𝑀))
37 id 22 . . . . . . . . . . . . . . 15 (𝑦 = (𝑀 βˆ’ 1) β†’ 𝑦 = (𝑀 βˆ’ 1))
3836, 37ifbieq1d 4515 . . . . . . . . . . . . . 14 (𝑦 = (𝑀 βˆ’ 1) β†’ if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) = if((𝑀 βˆ’ 1) < 𝑀, (𝑀 βˆ’ 1), (𝑦 + 1)))
39 elfzelz 13448 . . . . . . . . . . . . . . . . . 18 (𝑀 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑀 ∈ β„€)
4016, 39syl 17 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 𝑀 ∈ β„€)
4140zred 12614 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝑀 ∈ ℝ)
4241ltm1d 12094 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝑀 βˆ’ 1) < 𝑀)
4342iftrued 4499 . . . . . . . . . . . . . 14 (πœ‘ β†’ if((𝑀 βˆ’ 1) < 𝑀, (𝑀 βˆ’ 1), (𝑦 + 1)) = (𝑀 βˆ’ 1))
4438, 43sylan9eqr 2799 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 = (𝑀 βˆ’ 1)) β†’ if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) = (𝑀 βˆ’ 1))
4544csbeq1d 3864 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 = (𝑀 βˆ’ 1)) β†’ ⦋if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = ⦋(𝑀 βˆ’ 1) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))))
468, 9syl 17 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝑁 βˆ’ 1) ∈ β„€)
47 elfzm1b 13526 . . . . . . . . . . . . . . . 16 ((𝑀 ∈ β„€ ∧ (𝑁 βˆ’ 1) ∈ β„€) β†’ (𝑀 ∈ (1...(𝑁 βˆ’ 1)) ↔ (𝑀 βˆ’ 1) ∈ (0...((𝑁 βˆ’ 1) βˆ’ 1))))
4840, 46, 47syl2anc 585 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝑀 ∈ (1...(𝑁 βˆ’ 1)) ↔ (𝑀 βˆ’ 1) ∈ (0...((𝑁 βˆ’ 1) βˆ’ 1))))
4916, 48mpbid 231 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝑀 βˆ’ 1) ∈ (0...((𝑁 βˆ’ 1) βˆ’ 1)))
50 oveq2 7370 . . . . . . . . . . . . . . . . . . 19 (𝑗 = (𝑀 βˆ’ 1) β†’ (1...𝑗) = (1...(𝑀 βˆ’ 1)))
5150imaeq2d 6018 . . . . . . . . . . . . . . . . . 18 (𝑗 = (𝑀 βˆ’ 1) β†’ (π‘ˆ β€œ (1...𝑗)) = (π‘ˆ β€œ (1...(𝑀 βˆ’ 1))))
5251xpeq1d 5667 . . . . . . . . . . . . . . . . 17 (𝑗 = (𝑀 βˆ’ 1) β†’ ((π‘ˆ β€œ (1...𝑗)) Γ— {1}) = ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}))
5352adantl 483 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ ((π‘ˆ β€œ (1...𝑗)) Γ— {1}) = ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}))
54 oveq1 7369 . . . . . . . . . . . . . . . . . . . 20 (𝑗 = (𝑀 βˆ’ 1) β†’ (𝑗 + 1) = ((𝑀 βˆ’ 1) + 1))
5540zcnd 12615 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝑀 ∈ β„‚)
56 npcan1 11587 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 ∈ β„‚ β†’ ((𝑀 βˆ’ 1) + 1) = 𝑀)
5755, 56syl 17 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ ((𝑀 βˆ’ 1) + 1) = 𝑀)
5854, 57sylan9eqr 2799 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ (𝑗 + 1) = 𝑀)
5958oveq1d 7377 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ ((𝑗 + 1)...𝑁) = (𝑀...𝑁))
6059imaeq2d 6018 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ (π‘ˆ β€œ ((𝑗 + 1)...𝑁)) = (π‘ˆ β€œ (𝑀...𝑁)))
6160xpeq1d 5667 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}) = ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))
6253, 61uneq12d 4129 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0})) = (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})))
6362oveq2d 7378 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ (𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))))
6449, 63csbied 3898 . . . . . . . . . . . . 13 (πœ‘ β†’ ⦋(𝑀 βˆ’ 1) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))))
6564adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 = (𝑀 βˆ’ 1)) β†’ ⦋(𝑀 βˆ’ 1) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))))
6645, 65eqtrd 2777 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 = (𝑀 βˆ’ 1)) β†’ ⦋if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))))
6746zcnd 12615 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝑁 βˆ’ 1) ∈ β„‚)
68 npcan1 11587 . . . . . . . . . . . . . . 15 ((𝑁 βˆ’ 1) ∈ β„‚ β†’ (((𝑁 βˆ’ 1) βˆ’ 1) + 1) = (𝑁 βˆ’ 1))
6967, 68syl 17 . . . . . . . . . . . . . 14 (πœ‘ β†’ (((𝑁 βˆ’ 1) βˆ’ 1) + 1) = (𝑁 βˆ’ 1))
70 peano2zm 12553 . . . . . . . . . . . . . . 15 ((𝑁 βˆ’ 1) ∈ β„€ β†’ ((𝑁 βˆ’ 1) βˆ’ 1) ∈ β„€)
71 uzid 12785 . . . . . . . . . . . . . . 15 (((𝑁 βˆ’ 1) βˆ’ 1) ∈ β„€ β†’ ((𝑁 βˆ’ 1) βˆ’ 1) ∈ (β„€β‰₯β€˜((𝑁 βˆ’ 1) βˆ’ 1)))
72 peano2uz 12833 . . . . . . . . . . . . . . 15 (((𝑁 βˆ’ 1) βˆ’ 1) ∈ (β„€β‰₯β€˜((𝑁 βˆ’ 1) βˆ’ 1)) β†’ (((𝑁 βˆ’ 1) βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜((𝑁 βˆ’ 1) βˆ’ 1)))
7346, 70, 71, 724syl 19 . . . . . . . . . . . . . 14 (πœ‘ β†’ (((𝑁 βˆ’ 1) βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜((𝑁 βˆ’ 1) βˆ’ 1)))
7469, 73eqeltrrd 2839 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜((𝑁 βˆ’ 1) βˆ’ 1)))
75 fzss2 13488 . . . . . . . . . . . . 13 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜((𝑁 βˆ’ 1) βˆ’ 1)) β†’ (0...((𝑁 βˆ’ 1) βˆ’ 1)) βŠ† (0...(𝑁 βˆ’ 1)))
7674, 75syl 17 . . . . . . . . . . . 12 (πœ‘ β†’ (0...((𝑁 βˆ’ 1) βˆ’ 1)) βŠ† (0...(𝑁 βˆ’ 1)))
7776, 49sseldd 3950 . . . . . . . . . . 11 (πœ‘ β†’ (𝑀 βˆ’ 1) ∈ (0...(𝑁 βˆ’ 1)))
78 ovexd 7397 . . . . . . . . . . 11 (πœ‘ β†’ (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))) ∈ V)
7935, 66, 77, 78fvmptd 6960 . . . . . . . . . 10 (πœ‘ β†’ (πΉβ€˜(𝑀 βˆ’ 1)) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))))
8079fveq1d 6849 . . . . . . . . 9 (πœ‘ β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) = ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})))β€˜π‘›))
8180adantr 482 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) = ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})))β€˜π‘›))
8229ffnd 6674 . . . . . . . . . . 11 (πœ‘ β†’ 𝑇 Fn (1...𝑁))
8382adantr 482 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ 𝑇 Fn (1...𝑁))
84 1ex 11158 . . . . . . . . . . . . . . 15 1 ∈ V
85 fnconstg 6735 . . . . . . . . . . . . . . 15 (1 ∈ V β†’ ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 βˆ’ 1))))
8684, 85ax-mp 5 . . . . . . . . . . . . . 14 ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 βˆ’ 1)))
87 c0ex 11156 . . . . . . . . . . . . . . 15 0 ∈ V
88 fnconstg 6735 . . . . . . . . . . . . . . 15 (0 ∈ V β†’ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (𝑀...𝑁)))
8987, 88ax-mp 5 . . . . . . . . . . . . . 14 ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (𝑀...𝑁))
9086, 89pm3.2i 472 . . . . . . . . . . . . 13 (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∧ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (𝑀...𝑁)))
91 dff1o3 6795 . . . . . . . . . . . . . . . 16 (π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁) ↔ (π‘ˆ:(1...𝑁)–ontoβ†’(1...𝑁) ∧ Fun β—‘π‘ˆ))
9291simprbi 498 . . . . . . . . . . . . . . 15 (π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ Fun β—‘π‘ˆ)
93 imain 6591 . . . . . . . . . . . . . . 15 (Fun β—‘π‘ˆ β†’ (π‘ˆ β€œ ((1...(𝑀 βˆ’ 1)) ∩ (𝑀...𝑁))) = ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))))
941, 92, 933syl 18 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ ((1...(𝑀 βˆ’ 1)) ∩ (𝑀...𝑁))) = ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))))
95 fzdisj 13475 . . . . . . . . . . . . . . . . 17 ((𝑀 βˆ’ 1) < 𝑀 β†’ ((1...(𝑀 βˆ’ 1)) ∩ (𝑀...𝑁)) = βˆ…)
9642, 95syl 17 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((1...(𝑀 βˆ’ 1)) ∩ (𝑀...𝑁)) = βˆ…)
9796imaeq2d 6018 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘ˆ β€œ ((1...(𝑀 βˆ’ 1)) ∩ (𝑀...𝑁))) = (π‘ˆ β€œ βˆ…))
98 ima0 6034 . . . . . . . . . . . . . . 15 (π‘ˆ β€œ βˆ…) = βˆ…
9997, 98eqtrdi 2793 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ ((1...(𝑀 βˆ’ 1)) ∩ (𝑀...𝑁))) = βˆ…)
10094, 99eqtr3d 2779 . . . . . . . . . . . . 13 (πœ‘ β†’ ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))) = βˆ…)
101 fnun 6619 . . . . . . . . . . . . 13 (((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∧ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (𝑀...𝑁))) ∧ ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))) = βˆ…) β†’ (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})) Fn ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) βˆͺ (π‘ˆ β€œ (𝑀...𝑁))))
10290, 100, 101sylancr 588 . . . . . . . . . . . 12 (πœ‘ β†’ (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})) Fn ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) βˆͺ (π‘ˆ β€œ (𝑀...𝑁))))
103 elfzuz 13444 . . . . . . . . . . . . . . . . . . . 20 (𝑀 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑀 ∈ (β„€β‰₯β€˜1))
10416, 103syl 17 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝑀 ∈ (β„€β‰₯β€˜1))
10557, 104eqeltrd 2838 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ ((𝑀 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜1))
106 peano2zm 12553 . . . . . . . . . . . . . . . . . . . . . 22 (𝑀 ∈ β„€ β†’ (𝑀 βˆ’ 1) ∈ β„€)
107 uzid 12785 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑀 βˆ’ 1) ∈ β„€ β†’ (𝑀 βˆ’ 1) ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
108 peano2uz 12833 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑀 βˆ’ 1) ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)) β†’ ((𝑀 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
10940, 106, 107, 1084syl 19 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ ((𝑀 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
11057, 109eqeltrrd 2839 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 𝑀 ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
111 peano2uz 12833 . . . . . . . . . . . . . . . . . . . 20 (𝑀 ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)) β†’ (𝑀 + 1) ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
112 uzss 12793 . . . . . . . . . . . . . . . . . . . 20 ((𝑀 + 1) ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)) β†’ (β„€β‰₯β€˜(𝑀 + 1)) βŠ† (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
113110, 111, 1123syl 18 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (β„€β‰₯β€˜(𝑀 + 1)) βŠ† (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
114 elfzuz3 13445 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 ∈ (1...(𝑁 βˆ’ 1)) β†’ (𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜π‘€))
115 eluzp1p1 12798 . . . . . . . . . . . . . . . . . . . . 21 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜π‘€) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑀 + 1)))
11616, 114, 1153syl 18 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑀 + 1)))
1177, 116eqeltrrd 2839 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝑀 + 1)))
118113, 117sseldd 3950 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
119 fzsplit2 13473 . . . . . . . . . . . . . . . . . 18 ((((𝑀 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜1) ∧ 𝑁 ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1))) β†’ (1...𝑁) = ((1...(𝑀 βˆ’ 1)) βˆͺ (((𝑀 βˆ’ 1) + 1)...𝑁)))
120105, 118, 119syl2anc 585 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (1...𝑁) = ((1...(𝑀 βˆ’ 1)) βˆͺ (((𝑀 βˆ’ 1) + 1)...𝑁)))
12157oveq1d 7377 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (((𝑀 βˆ’ 1) + 1)...𝑁) = (𝑀...𝑁))
122121uneq2d 4128 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ ((1...(𝑀 βˆ’ 1)) βˆͺ (((𝑀 βˆ’ 1) + 1)...𝑁)) = ((1...(𝑀 βˆ’ 1)) βˆͺ (𝑀...𝑁)))
123120, 122eqtrd 2777 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (1...𝑁) = ((1...(𝑀 βˆ’ 1)) βˆͺ (𝑀...𝑁)))
124123imaeq2d 6018 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘ˆ β€œ (1...𝑁)) = (π‘ˆ β€œ ((1...(𝑀 βˆ’ 1)) βˆͺ (𝑀...𝑁))))
125 imaundi 6107 . . . . . . . . . . . . . . 15 (π‘ˆ β€œ ((1...(𝑀 βˆ’ 1)) βˆͺ (𝑀...𝑁))) = ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) βˆͺ (π‘ˆ β€œ (𝑀...𝑁)))
126124, 125eqtrdi 2793 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ (1...𝑁)) = ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) βˆͺ (π‘ˆ β€œ (𝑀...𝑁))))
127 f1ofo 6796 . . . . . . . . . . . . . . 15 (π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ π‘ˆ:(1...𝑁)–ontoβ†’(1...𝑁))
128 foima 6766 . . . . . . . . . . . . . . 15 (π‘ˆ:(1...𝑁)–ontoβ†’(1...𝑁) β†’ (π‘ˆ β€œ (1...𝑁)) = (1...𝑁))
1291, 127, 1283syl 18 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ (1...𝑁)) = (1...𝑁))
130126, 129eqtr3d 2779 . . . . . . . . . . . . 13 (πœ‘ β†’ ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) βˆͺ (π‘ˆ β€œ (𝑀...𝑁))) = (1...𝑁))
131130fneq2d 6601 . . . . . . . . . . . 12 (πœ‘ β†’ ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})) Fn ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) βˆͺ (π‘ˆ β€œ (𝑀...𝑁))) ↔ (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})) Fn (1...𝑁)))
132102, 131mpbid 231 . . . . . . . . . . 11 (πœ‘ β†’ (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})) Fn (1...𝑁))
133132adantr 482 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})) Fn (1...𝑁))
134 ovexd 7397 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ (1...𝑁) ∈ V)
135 inidm 4183 . . . . . . . . . 10 ((1...𝑁) ∩ (1...𝑁)) = (1...𝑁)
136 eqidd 2738 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) ∧ 𝑛 ∈ (1...𝑁)) β†’ (π‘‡β€˜π‘›) = (π‘‡β€˜π‘›))
137100adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))) = βˆ…)
138 fzss2 13488 . . . . . . . . . . . . . . 15 (𝑁 ∈ (β„€β‰₯β€˜(𝑀 + 1)) β†’ (𝑀...(𝑀 + 1)) βŠ† (𝑀...𝑁))
139 imass2 6059 . . . . . . . . . . . . . . 15 ((𝑀...(𝑀 + 1)) βŠ† (𝑀...𝑁) β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) βŠ† (π‘ˆ β€œ (𝑀...𝑁)))
140117, 138, 1393syl 18 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) βŠ† (π‘ˆ β€œ (𝑀...𝑁)))
141140sselda 3949 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ 𝑛 ∈ (π‘ˆ β€œ (𝑀...𝑁)))
142 fvun2 6938 . . . . . . . . . . . . . 14 ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∧ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (𝑀...𝑁)) ∧ (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))) = βˆ… ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...𝑁)))) β†’ ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))β€˜π‘›) = (((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})β€˜π‘›))
14386, 89, 142mp3an12 1452 . . . . . . . . . . . . 13 ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))) = βˆ… ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...𝑁))) β†’ ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))β€˜π‘›) = (((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})β€˜π‘›))
144137, 141, 143syl2anc 585 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))β€˜π‘›) = (((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})β€˜π‘›))
14587fvconst2 7158 . . . . . . . . . . . . 13 (𝑛 ∈ (π‘ˆ β€œ (𝑀...𝑁)) β†’ (((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})β€˜π‘›) = 0)
146141, 145syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ (((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})β€˜π‘›) = 0)
147144, 146eqtrd 2777 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))β€˜π‘›) = 0)
148147adantr 482 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))β€˜π‘›) = 0)
14983, 133, 134, 134, 135, 136, 148ofval 7633 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})))β€˜π‘›) = ((π‘‡β€˜π‘›) + 0))
15028, 149mpdan 686 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})))β€˜π‘›) = ((π‘‡β€˜π‘›) + 0))
15130zcnd 12615 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ (π‘‡β€˜π‘›) ∈ β„‚)
152151addid1d 11362 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ ((π‘‡β€˜π‘›) + 0) = (π‘‡β€˜π‘›))
15328, 152syldan 592 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((π‘‡β€˜π‘›) + 0) = (π‘‡β€˜π‘›))
15481, 150, 1533eqtrd 2781 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) = (π‘‡β€˜π‘›))
155 breq1 5113 . . . . . . . . . . . . . . 15 (𝑦 = 𝑀 β†’ (𝑦 < 𝑀 ↔ 𝑀 < 𝑀))
156 oveq1 7369 . . . . . . . . . . . . . . 15 (𝑦 = 𝑀 β†’ (𝑦 + 1) = (𝑀 + 1))
157155, 156ifbieq2d 4517 . . . . . . . . . . . . . 14 (𝑦 = 𝑀 β†’ if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) = if(𝑀 < 𝑀, 𝑦, (𝑀 + 1)))
15841ltnrd 11296 . . . . . . . . . . . . . . 15 (πœ‘ β†’ Β¬ 𝑀 < 𝑀)
159158iffalsed 4502 . . . . . . . . . . . . . 14 (πœ‘ β†’ if(𝑀 < 𝑀, 𝑦, (𝑀 + 1)) = (𝑀 + 1))
160157, 159sylan9eqr 2799 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 = 𝑀) β†’ if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) = (𝑀 + 1))
161160csbeq1d 3864 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 = 𝑀) β†’ ⦋if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = ⦋(𝑀 + 1) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))))
162 ovex 7395 . . . . . . . . . . . . 13 (𝑀 + 1) ∈ V
163 oveq2 7370 . . . . . . . . . . . . . . . . 17 (𝑗 = (𝑀 + 1) β†’ (1...𝑗) = (1...(𝑀 + 1)))
164163imaeq2d 6018 . . . . . . . . . . . . . . . 16 (𝑗 = (𝑀 + 1) β†’ (π‘ˆ β€œ (1...𝑗)) = (π‘ˆ β€œ (1...(𝑀 + 1))))
165164xpeq1d 5667 . . . . . . . . . . . . . . 15 (𝑗 = (𝑀 + 1) β†’ ((π‘ˆ β€œ (1...𝑗)) Γ— {1}) = ((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}))
166 oveq1 7369 . . . . . . . . . . . . . . . . . 18 (𝑗 = (𝑀 + 1) β†’ (𝑗 + 1) = ((𝑀 + 1) + 1))
167166oveq1d 7377 . . . . . . . . . . . . . . . . 17 (𝑗 = (𝑀 + 1) β†’ ((𝑗 + 1)...𝑁) = (((𝑀 + 1) + 1)...𝑁))
168167imaeq2d 6018 . . . . . . . . . . . . . . . 16 (𝑗 = (𝑀 + 1) β†’ (π‘ˆ β€œ ((𝑗 + 1)...𝑁)) = (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)))
169168xpeq1d 5667 . . . . . . . . . . . . . . 15 (𝑗 = (𝑀 + 1) β†’ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}) = ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))
170165, 169uneq12d 4129 . . . . . . . . . . . . . 14 (𝑗 = (𝑀 + 1) β†’ (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0})) = (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})))
171170oveq2d 7378 . . . . . . . . . . . . 13 (𝑗 = (𝑀 + 1) β†’ (𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))))
172162, 171csbie 3896 . . . . . . . . . . . 12 ⦋(𝑀 + 1) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})))
173161, 172eqtrdi 2793 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 = 𝑀) β†’ ⦋if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))))
174 fz1ssfz0 13544 . . . . . . . . . . . 12 (1...(𝑁 βˆ’ 1)) βŠ† (0...(𝑁 βˆ’ 1))
175174, 16sselid 3947 . . . . . . . . . . 11 (πœ‘ β†’ 𝑀 ∈ (0...(𝑁 βˆ’ 1)))
176 ovexd 7397 . . . . . . . . . . 11 (πœ‘ β†’ (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))) ∈ V)
17735, 173, 175, 176fvmptd 6960 . . . . . . . . . 10 (πœ‘ β†’ (πΉβ€˜π‘€) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))))
178177fveq1d 6849 . . . . . . . . 9 (πœ‘ β†’ ((πΉβ€˜π‘€)β€˜π‘›) = ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})))β€˜π‘›))
179178adantr 482 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((πΉβ€˜π‘€)β€˜π‘›) = ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})))β€˜π‘›))
180 fnconstg 6735 . . . . . . . . . . . . . . 15 (1 ∈ V β†’ ((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 + 1))))
18184, 180ax-mp 5 . . . . . . . . . . . . . 14 ((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 + 1)))
182 fnconstg 6735 . . . . . . . . . . . . . . 15 (0 ∈ V β†’ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)))
18387, 182ax-mp 5 . . . . . . . . . . . . . 14 ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))
184181, 183pm3.2i 472 . . . . . . . . . . . . 13 (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 + 1))) ∧ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)))
185 imain 6591 . . . . . . . . . . . . . . . 16 (Fun β—‘π‘ˆ β†’ (π‘ˆ β€œ ((1...(𝑀 + 1)) ∩ (((𝑀 + 1) + 1)...𝑁))) = ((π‘ˆ β€œ (1...(𝑀 + 1))) ∩ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))))
1861, 92, 1853syl 18 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘ˆ β€œ ((1...(𝑀 + 1)) ∩ (((𝑀 + 1) + 1)...𝑁))) = ((π‘ˆ β€œ (1...(𝑀 + 1))) ∩ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))))
187 peano2re 11335 . . . . . . . . . . . . . . . . . . 19 (𝑀 ∈ ℝ β†’ (𝑀 + 1) ∈ ℝ)
18841, 187syl 17 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (𝑀 + 1) ∈ ℝ)
189188ltp1d 12092 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑀 + 1) < ((𝑀 + 1) + 1))
190 fzdisj 13475 . . . . . . . . . . . . . . . . 17 ((𝑀 + 1) < ((𝑀 + 1) + 1) β†’ ((1...(𝑀 + 1)) ∩ (((𝑀 + 1) + 1)...𝑁)) = βˆ…)
191189, 190syl 17 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((1...(𝑀 + 1)) ∩ (((𝑀 + 1) + 1)...𝑁)) = βˆ…)
192191imaeq2d 6018 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘ˆ β€œ ((1...(𝑀 + 1)) ∩ (((𝑀 + 1) + 1)...𝑁))) = (π‘ˆ β€œ βˆ…))
193186, 192eqtr3d 2779 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((π‘ˆ β€œ (1...(𝑀 + 1))) ∩ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) = (π‘ˆ β€œ βˆ…))
194193, 98eqtrdi 2793 . . . . . . . . . . . . 13 (πœ‘ β†’ ((π‘ˆ β€œ (1...(𝑀 + 1))) ∩ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) = βˆ…)
195 fnun 6619 . . . . . . . . . . . . 13 (((((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 + 1))) ∧ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) ∧ ((π‘ˆ β€œ (1...(𝑀 + 1))) ∩ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) = βˆ…) β†’ (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})) Fn ((π‘ˆ β€œ (1...(𝑀 + 1))) βˆͺ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))))
196184, 194, 195sylancr 588 . . . . . . . . . . . 12 (πœ‘ β†’ (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})) Fn ((π‘ˆ β€œ (1...(𝑀 + 1))) βˆͺ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))))
197 fzsplit 13474 . . . . . . . . . . . . . . . . 17 ((𝑀 + 1) ∈ (1...𝑁) β†’ (1...𝑁) = ((1...(𝑀 + 1)) βˆͺ (((𝑀 + 1) + 1)...𝑁)))
19822, 197syl 17 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (1...𝑁) = ((1...(𝑀 + 1)) βˆͺ (((𝑀 + 1) + 1)...𝑁)))
199198imaeq2d 6018 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘ˆ β€œ (1...𝑁)) = (π‘ˆ β€œ ((1...(𝑀 + 1)) βˆͺ (((𝑀 + 1) + 1)...𝑁))))
200 imaundi 6107 . . . . . . . . . . . . . . 15 (π‘ˆ β€œ ((1...(𝑀 + 1)) βˆͺ (((𝑀 + 1) + 1)...𝑁))) = ((π‘ˆ β€œ (1...(𝑀 + 1))) βˆͺ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)))
201199, 200eqtrdi 2793 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ (1...𝑁)) = ((π‘ˆ β€œ (1...(𝑀 + 1))) βˆͺ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))))
202201, 129eqtr3d 2779 . . . . . . . . . . . . 13 (πœ‘ β†’ ((π‘ˆ β€œ (1...(𝑀 + 1))) βˆͺ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) = (1...𝑁))
203202fneq2d 6601 . . . . . . . . . . . 12 (πœ‘ β†’ ((((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})) Fn ((π‘ˆ β€œ (1...(𝑀 + 1))) βˆͺ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) ↔ (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})) Fn (1...𝑁)))
204196, 203mpbid 231 . . . . . . . . . . 11 (πœ‘ β†’ (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})) Fn (1...𝑁))
205204adantr 482 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})) Fn (1...𝑁))
206194adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((π‘ˆ β€œ (1...(𝑀 + 1))) ∩ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) = βˆ…)
207 fzss1 13487 . . . . . . . . . . . . . . 15 (𝑀 ∈ (β„€β‰₯β€˜1) β†’ (𝑀...(𝑀 + 1)) βŠ† (1...(𝑀 + 1)))
208 imass2 6059 . . . . . . . . . . . . . . 15 ((𝑀...(𝑀 + 1)) βŠ† (1...(𝑀 + 1)) β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) βŠ† (π‘ˆ β€œ (1...(𝑀 + 1))))
209104, 207, 2083syl 18 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) βŠ† (π‘ˆ β€œ (1...(𝑀 + 1))))
210209sselda 3949 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ 𝑛 ∈ (π‘ˆ β€œ (1...(𝑀 + 1))))
211 fvun1 6937 . . . . . . . . . . . . . 14 ((((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 + 1))) ∧ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) ∧ (((π‘ˆ β€œ (1...(𝑀 + 1))) ∩ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) = βˆ… ∧ 𝑛 ∈ (π‘ˆ β€œ (1...(𝑀 + 1))))) β†’ ((((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1})β€˜π‘›))
212181, 183, 211mp3an12 1452 . . . . . . . . . . . . 13 ((((π‘ˆ β€œ (1...(𝑀 + 1))) ∩ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) = βˆ… ∧ 𝑛 ∈ (π‘ˆ β€œ (1...(𝑀 + 1)))) β†’ ((((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1})β€˜π‘›))
213206, 210, 212syl2anc 585 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1})β€˜π‘›))
21484fvconst2 7158 . . . . . . . . . . . . 13 (𝑛 ∈ (π‘ˆ β€œ (1...(𝑀 + 1))) β†’ (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1})β€˜π‘›) = 1)
215210, 214syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1})β€˜π‘›) = 1)
216213, 215eqtrd 2777 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = 1)
217216adantr 482 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = 1)
21883, 205, 134, 134, 135, 136, 217ofval 7633 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})))β€˜π‘›) = ((π‘‡β€˜π‘›) + 1))
21928, 218mpdan 686 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})))β€˜π‘›) = ((π‘‡β€˜π‘›) + 1))
220179, 219eqtrd 2777 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((πΉβ€˜π‘€)β€˜π‘›) = ((π‘‡β€˜π‘›) + 1))
22134, 154, 2203netr4d 3022 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›))
222221ralrimiva 3144 . . . . 5 (πœ‘ β†’ βˆ€π‘› ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›))
223 fzpr 13503 . . . . . . . . 9 (𝑀 ∈ β„€ β†’ (𝑀...(𝑀 + 1)) = {𝑀, (𝑀 + 1)})
22416, 39, 2233syl 18 . . . . . . . 8 (πœ‘ β†’ (𝑀...(𝑀 + 1)) = {𝑀, (𝑀 + 1)})
225224imaeq2d 6018 . . . . . . 7 (πœ‘ β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) = (π‘ˆ β€œ {𝑀, (𝑀 + 1)}))
226 f1ofn 6790 . . . . . . . . 9 (π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ π‘ˆ Fn (1...𝑁))
2271, 226syl 17 . . . . . . . 8 (πœ‘ β†’ π‘ˆ Fn (1...𝑁))
228 fnimapr 6930 . . . . . . . 8 ((π‘ˆ Fn (1...𝑁) ∧ 𝑀 ∈ (1...𝑁) ∧ (𝑀 + 1) ∈ (1...𝑁)) β†’ (π‘ˆ β€œ {𝑀, (𝑀 + 1)}) = {(π‘ˆβ€˜π‘€), (π‘ˆβ€˜(𝑀 + 1))})
229227, 17, 22, 228syl3anc 1372 . . . . . . 7 (πœ‘ β†’ (π‘ˆ β€œ {𝑀, (𝑀 + 1)}) = {(π‘ˆβ€˜π‘€), (π‘ˆβ€˜(𝑀 + 1))})
230225, 229eqtrd 2777 . . . . . 6 (πœ‘ β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) = {(π‘ˆβ€˜π‘€), (π‘ˆβ€˜(𝑀 + 1))})
231230raleqdv 3316 . . . . 5 (πœ‘ β†’ (βˆ€π‘› ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ↔ βˆ€π‘› ∈ {(π‘ˆβ€˜π‘€), (π‘ˆβ€˜(𝑀 + 1))} ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›)))
232222, 231mpbid 231 . . . 4 (πœ‘ β†’ βˆ€π‘› ∈ {(π‘ˆβ€˜π‘€), (π‘ˆβ€˜(𝑀 + 1))} ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›))
233 fvex 6860 . . . . 5 (π‘ˆβ€˜π‘€) ∈ V
234 fvex 6860 . . . . 5 (π‘ˆβ€˜(𝑀 + 1)) ∈ V
235 fveq2 6847 . . . . . 6 (𝑛 = (π‘ˆβ€˜π‘€) β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) = ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)))
236 fveq2 6847 . . . . . 6 (𝑛 = (π‘ˆβ€˜π‘€) β†’ ((πΉβ€˜π‘€)β€˜π‘›) = ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)))
237235, 236neeq12d 3006 . . . . 5 (𝑛 = (π‘ˆβ€˜π‘€) β†’ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ↔ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€))))
238 fveq2 6847 . . . . . 6 (𝑛 = (π‘ˆβ€˜(𝑀 + 1)) β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) = ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))))
239 fveq2 6847 . . . . . 6 (𝑛 = (π‘ˆβ€˜(𝑀 + 1)) β†’ ((πΉβ€˜π‘€)β€˜π‘›) = ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1))))
240238, 239neeq12d 3006 . . . . 5 (𝑛 = (π‘ˆβ€˜(𝑀 + 1)) β†’ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ↔ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1)))))
241233, 234, 237, 240ralpr 4666 . . . 4 (βˆ€π‘› ∈ {(π‘ˆβ€˜π‘€), (π‘ˆβ€˜(𝑀 + 1))} ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ↔ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1)))))
242232, 241sylib 217 . . 3 (πœ‘ β†’ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1)))))
24341ltp1d 12092 . . . . 5 (πœ‘ β†’ 𝑀 < (𝑀 + 1))
24441, 243ltned 11298 . . . 4 (πœ‘ β†’ 𝑀 β‰  (𝑀 + 1))
245 f1of1 6788 . . . . . . 7 (π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ π‘ˆ:(1...𝑁)–1-1β†’(1...𝑁))
2461, 245syl 17 . . . . . 6 (πœ‘ β†’ π‘ˆ:(1...𝑁)–1-1β†’(1...𝑁))
247 f1veqaeq 7209 . . . . . 6 ((π‘ˆ:(1...𝑁)–1-1β†’(1...𝑁) ∧ (𝑀 ∈ (1...𝑁) ∧ (𝑀 + 1) ∈ (1...𝑁))) β†’ ((π‘ˆβ€˜π‘€) = (π‘ˆβ€˜(𝑀 + 1)) β†’ 𝑀 = (𝑀 + 1)))
248246, 17, 22, 247syl12anc 836 . . . . 5 (πœ‘ β†’ ((π‘ˆβ€˜π‘€) = (π‘ˆβ€˜(𝑀 + 1)) β†’ 𝑀 = (𝑀 + 1)))
249248necon3d 2965 . . . 4 (πœ‘ β†’ (𝑀 β‰  (𝑀 + 1) β†’ (π‘ˆβ€˜π‘€) β‰  (π‘ˆβ€˜(𝑀 + 1))))
250244, 249mpd 15 . . 3 (πœ‘ β†’ (π‘ˆβ€˜π‘€) β‰  (π‘ˆβ€˜(𝑀 + 1)))
251237anbi1d 631 . . . . 5 (𝑛 = (π‘ˆβ€˜π‘€) β†’ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ↔ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š))))
252 neeq1 3007 . . . . 5 (𝑛 = (π‘ˆβ€˜π‘€) β†’ (𝑛 β‰  π‘š ↔ (π‘ˆβ€˜π‘€) β‰  π‘š))
253251, 252anbi12d 632 . . . 4 (𝑛 = (π‘ˆβ€˜π‘€) β†’ (((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š) ↔ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ (π‘ˆβ€˜π‘€) β‰  π‘š)))
254 fveq2 6847 . . . . . . 7 (π‘š = (π‘ˆβ€˜(𝑀 + 1)) β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) = ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))))
255 fveq2 6847 . . . . . . 7 (π‘š = (π‘ˆβ€˜(𝑀 + 1)) β†’ ((πΉβ€˜π‘€)β€˜π‘š) = ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1))))
256254, 255neeq12d 3006 . . . . . 6 (π‘š = (π‘ˆβ€˜(𝑀 + 1)) β†’ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š) ↔ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1)))))
257256anbi2d 630 . . . . 5 (π‘š = (π‘ˆβ€˜(𝑀 + 1)) β†’ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ↔ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1))))))
258 neeq2 3008 . . . . 5 (π‘š = (π‘ˆβ€˜(𝑀 + 1)) β†’ ((π‘ˆβ€˜π‘€) β‰  π‘š ↔ (π‘ˆβ€˜π‘€) β‰  (π‘ˆβ€˜(𝑀 + 1))))
259257, 258anbi12d 632 . . . 4 (π‘š = (π‘ˆβ€˜(𝑀 + 1)) β†’ (((((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ (π‘ˆβ€˜π‘€) β‰  π‘š) ↔ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1)))) ∧ (π‘ˆβ€˜π‘€) β‰  (π‘ˆβ€˜(𝑀 + 1)))))
260253, 259rspc2ev 3595 . . 3 (((π‘ˆβ€˜π‘€) ∈ (1...𝑁) ∧ (π‘ˆβ€˜(𝑀 + 1)) ∈ (1...𝑁) ∧ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1)))) ∧ (π‘ˆβ€˜π‘€) β‰  (π‘ˆβ€˜(𝑀 + 1)))) β†’ βˆƒπ‘› ∈ (1...𝑁)βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š))
26118, 23, 242, 250, 260syl112anc 1375 . 2 (πœ‘ β†’ βˆƒπ‘› ∈ (1...𝑁)βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š))
262 dfrex2 3077 . . 3 (βˆƒπ‘› ∈ (1...𝑁)βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š) ↔ Β¬ βˆ€π‘› ∈ (1...𝑁) Β¬ βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š))
263 fveq2 6847 . . . . . 6 (𝑛 = π‘š β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) = ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š))
264 fveq2 6847 . . . . . 6 (𝑛 = π‘š β†’ ((πΉβ€˜π‘€)β€˜π‘›) = ((πΉβ€˜π‘€)β€˜π‘š))
265263, 264neeq12d 3006 . . . . 5 (𝑛 = π‘š β†’ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ↔ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)))
266265rmo4 3693 . . . 4 (βˆƒ*𝑛 ∈ (1...𝑁)((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ↔ βˆ€π‘› ∈ (1...𝑁)βˆ€π‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š))
267 dfral2 3103 . . . . . 6 (βˆ€π‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š) ↔ Β¬ βˆƒπ‘š ∈ (1...𝑁) Β¬ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š))
268 df-ne 2945 . . . . . . . . 9 (𝑛 β‰  π‘š ↔ Β¬ 𝑛 = π‘š)
269268anbi2i 624 . . . . . . . 8 (((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š) ↔ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ Β¬ 𝑛 = π‘š))
270 annim 405 . . . . . . . 8 (((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ Β¬ 𝑛 = π‘š) ↔ Β¬ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š))
271269, 270bitri 275 . . . . . . 7 (((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š) ↔ Β¬ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š))
272271rexbii 3098 . . . . . 6 (βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š) ↔ βˆƒπ‘š ∈ (1...𝑁) Β¬ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š))
273267, 272xchbinxr 335 . . . . 5 (βˆ€π‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š) ↔ Β¬ βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š))
274273ralbii 3097 . . . 4 (βˆ€π‘› ∈ (1...𝑁)βˆ€π‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š) ↔ βˆ€π‘› ∈ (1...𝑁) Β¬ βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š))
275266, 274bitri 275 . . 3 (βˆƒ*𝑛 ∈ (1...𝑁)((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ↔ βˆ€π‘› ∈ (1...𝑁) Β¬ βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š))
276262, 275xchbinxr 335 . 2 (βˆƒπ‘› ∈ (1...𝑁)βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š) ↔ Β¬ βˆƒ*𝑛 ∈ (1...𝑁)((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›))
277261, 276sylib 217 1 (πœ‘ β†’ Β¬ βˆƒ*𝑛 ∈ (1...𝑁)((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   = wceq 1542   ∈ wcel 2107   β‰  wne 2944  βˆ€wral 3065  βˆƒwrex 3074  βˆƒ*wrmo 3355  Vcvv 3448  β¦‹csb 3860   βˆͺ cun 3913   ∩ cin 3914   βŠ† wss 3915  βˆ…c0 4287  ifcif 4491  {csn 4591  {cpr 4593   class class class wbr 5110   ↦ cmpt 5193   Γ— cxp 5636  β—‘ccnv 5637  ran crn 5639   β€œ cima 5641  Fun wfun 6495   Fn wfn 6496  βŸΆwf 6497  β€“1-1β†’wf1 6498  β€“ontoβ†’wfo 6499  β€“1-1-ontoβ†’wf1o 6500  β€˜cfv 6501  (class class class)co 7362   ∘f cof 7620  β„‚cc 11056  β„cr 11057  0cc0 11058  1c1 11059   + caddc 11061   < clt 11196   βˆ’ cmin 11392  β„•cn 12160  β„€cz 12506  β„€β‰₯cuz 12770  ...cfz 13431
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2708  ax-rep 5247  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677  ax-cnex 11114  ax-resscn 11115  ax-1cn 11116  ax-icn 11117  ax-addcl 11118  ax-addrcl 11119  ax-mulcl 11120  ax-mulrcl 11121  ax-mulcom 11122  ax-addass 11123  ax-mulass 11124  ax-distr 11125  ax-i2m1 11126  ax-1ne0 11127  ax-1rid 11128  ax-rnegex 11129  ax-rrecex 11130  ax-cnre 11131  ax-pre-lttri 11132  ax-pre-lttrn 11133  ax-pre-ltadd 11134  ax-pre-mulgt0 11135
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2890  df-ne 2945  df-nel 3051  df-ral 3066  df-rex 3075  df-rmo 3356  df-reu 3357  df-rab 3411  df-v 3450  df-sbc 3745  df-csb 3861  df-dif 3918  df-un 3920  df-in 3922  df-ss 3932  df-pss 3934  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4871  df-iun 4961  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6258  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-riota 7318  df-ov 7365  df-oprab 7366  df-mpo 7367  df-of 7622  df-om 7808  df-1st 7926  df-2nd 7927  df-frecs 8217  df-wrecs 8248  df-recs 8322  df-rdg 8361  df-er 8655  df-en 8891  df-dom 8892  df-sdom 8893  df-pnf 11198  df-mnf 11199  df-xr 11200  df-ltxr 11201  df-le 11202  df-sub 11394  df-neg 11395  df-nn 12161  df-n0 12421  df-z 12507  df-uz 12771  df-fz 13432
This theorem is referenced by:  poimirlem8  36115  poimirlem18  36125  poimirlem21  36128  poimirlem22  36129
  Copyright terms: Public domain W3C validator