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 37002
Description: Lemma for poimir 37034- 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 6827 . . . . 5 (π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ π‘ˆ:(1...𝑁)⟢(1...𝑁))
31, 2syl 17 . . . 4 (πœ‘ β†’ π‘ˆ:(1...𝑁)⟢(1...𝑁))
4 poimir.0 . . . . . . . . 9 (πœ‘ β†’ 𝑁 ∈ β„•)
54nncnd 12232 . . . . . . . 8 (πœ‘ β†’ 𝑁 ∈ β„‚)
6 npcan1 11643 . . . . . . . 8 (𝑁 ∈ β„‚ β†’ ((𝑁 βˆ’ 1) + 1) = 𝑁)
75, 6syl 17 . . . . . . 7 (πœ‘ β†’ ((𝑁 βˆ’ 1) + 1) = 𝑁)
84nnzd 12589 . . . . . . . 8 (πœ‘ β†’ 𝑁 ∈ β„€)
9 peano2zm 12609 . . . . . . . 8 (𝑁 ∈ β„€ β†’ (𝑁 βˆ’ 1) ∈ β„€)
10 uzid 12841 . . . . . . . 8 ((𝑁 βˆ’ 1) ∈ β„€ β†’ (𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
11 peano2uz 12889 . . . . . . . 8 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
128, 9, 10, 114syl 19 . . . . . . 7 (πœ‘ β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
137, 12eqeltrrd 2828 . . . . . 6 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
14 fzss2 13547 . . . . . 6 (𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)) β†’ (1...(𝑁 βˆ’ 1)) βŠ† (1...𝑁))
1513, 14syl 17 . . . . 5 (πœ‘ β†’ (1...(𝑁 βˆ’ 1)) βŠ† (1...𝑁))
16 poimirlem1.4 . . . . 5 (πœ‘ β†’ 𝑀 ∈ (1...(𝑁 βˆ’ 1)))
1715, 16sseldd 3978 . . . 4 (πœ‘ β†’ 𝑀 ∈ (1...𝑁))
183, 17ffvelcdmd 7081 . . 3 (πœ‘ β†’ (π‘ˆβ€˜π‘€) ∈ (1...𝑁))
19 fzp1elp1 13560 . . . . . 6 (𝑀 ∈ (1...(𝑁 βˆ’ 1)) β†’ (𝑀 + 1) ∈ (1...((𝑁 βˆ’ 1) + 1)))
2016, 19syl 17 . . . . 5 (πœ‘ β†’ (𝑀 + 1) ∈ (1...((𝑁 βˆ’ 1) + 1)))
217oveq2d 7421 . . . . 5 (πœ‘ β†’ (1...((𝑁 βˆ’ 1) + 1)) = (1...𝑁))
2220, 21eleqtrd 2829 . . . 4 (πœ‘ β†’ (𝑀 + 1) ∈ (1...𝑁))
233, 22ffvelcdmd 7081 . . 3 (πœ‘ β†’ (π‘ˆβ€˜(𝑀 + 1)) ∈ (1...𝑁))
24 imassrn 6064 . . . . . . . . . 10 (π‘ˆ β€œ (𝑀...(𝑀 + 1))) βŠ† ran π‘ˆ
25 frn 6718 . . . . . . . . . . 11 (π‘ˆ:(1...𝑁)⟢(1...𝑁) β†’ ran π‘ˆ βŠ† (1...𝑁))
261, 2, 253syl 18 . . . . . . . . . 10 (πœ‘ β†’ ran π‘ˆ βŠ† (1...𝑁))
2724, 26sstrid 3988 . . . . . . . . 9 (πœ‘ β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) βŠ† (1...𝑁))
2827sselda 3977 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ 𝑛 ∈ (1...𝑁))
29 poimirlem2.2 . . . . . . . . . . 11 (πœ‘ β†’ 𝑇:(1...𝑁)βŸΆβ„€)
3029ffvelcdmda 7080 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ (π‘‡β€˜π‘›) ∈ β„€)
3130zred 12670 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ (π‘‡β€˜π‘›) ∈ ℝ)
3231ltp1d 12148 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ (π‘‡β€˜π‘›) < ((π‘‡β€˜π‘›) + 1))
3331, 32ltned 11354 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ (π‘‡β€˜π‘›) β‰  ((π‘‡β€˜π‘›) + 1))
3428, 33syldan 590 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ (π‘‡β€˜π‘›) β‰  ((π‘‡β€˜π‘›) + 1))
35 poimirlem2.1 . . . . . . . . . . 11 (πœ‘ β†’ 𝐹 = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0})))))
36 breq1 5144 . . . . . . . . . . . . . . 15 (𝑦 = (𝑀 βˆ’ 1) β†’ (𝑦 < 𝑀 ↔ (𝑀 βˆ’ 1) < 𝑀))
37 id 22 . . . . . . . . . . . . . . 15 (𝑦 = (𝑀 βˆ’ 1) β†’ 𝑦 = (𝑀 βˆ’ 1))
3836, 37ifbieq1d 4547 . . . . . . . . . . . . . 14 (𝑦 = (𝑀 βˆ’ 1) β†’ if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) = if((𝑀 βˆ’ 1) < 𝑀, (𝑀 βˆ’ 1), (𝑦 + 1)))
39 elfzelz 13507 . . . . . . . . . . . . . . . . . 18 (𝑀 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑀 ∈ β„€)
4016, 39syl 17 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 𝑀 ∈ β„€)
4140zred 12670 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝑀 ∈ ℝ)
4241ltm1d 12150 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝑀 βˆ’ 1) < 𝑀)
4342iftrued 4531 . . . . . . . . . . . . . 14 (πœ‘ β†’ if((𝑀 βˆ’ 1) < 𝑀, (𝑀 βˆ’ 1), (𝑦 + 1)) = (𝑀 βˆ’ 1))
4438, 43sylan9eqr 2788 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 = (𝑀 βˆ’ 1)) β†’ if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) = (𝑀 βˆ’ 1))
4544csbeq1d 3892 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 = (𝑀 βˆ’ 1)) β†’ ⦋if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = ⦋(𝑀 βˆ’ 1) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))))
468, 9syl 17 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝑁 βˆ’ 1) ∈ β„€)
47 elfzm1b 13585 . . . . . . . . . . . . . . . 16 ((𝑀 ∈ β„€ ∧ (𝑁 βˆ’ 1) ∈ β„€) β†’ (𝑀 ∈ (1...(𝑁 βˆ’ 1)) ↔ (𝑀 βˆ’ 1) ∈ (0...((𝑁 βˆ’ 1) βˆ’ 1))))
4840, 46, 47syl2anc 583 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝑀 ∈ (1...(𝑁 βˆ’ 1)) ↔ (𝑀 βˆ’ 1) ∈ (0...((𝑁 βˆ’ 1) βˆ’ 1))))
4916, 48mpbid 231 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝑀 βˆ’ 1) ∈ (0...((𝑁 βˆ’ 1) βˆ’ 1)))
50 oveq2 7413 . . . . . . . . . . . . . . . . . . 19 (𝑗 = (𝑀 βˆ’ 1) β†’ (1...𝑗) = (1...(𝑀 βˆ’ 1)))
5150imaeq2d 6053 . . . . . . . . . . . . . . . . . 18 (𝑗 = (𝑀 βˆ’ 1) β†’ (π‘ˆ β€œ (1...𝑗)) = (π‘ˆ β€œ (1...(𝑀 βˆ’ 1))))
5251xpeq1d 5698 . . . . . . . . . . . . . . . . 17 (𝑗 = (𝑀 βˆ’ 1) β†’ ((π‘ˆ β€œ (1...𝑗)) Γ— {1}) = ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}))
5352adantl 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ ((π‘ˆ β€œ (1...𝑗)) Γ— {1}) = ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}))
54 oveq1 7412 . . . . . . . . . . . . . . . . . . . 20 (𝑗 = (𝑀 βˆ’ 1) β†’ (𝑗 + 1) = ((𝑀 βˆ’ 1) + 1))
5540zcnd 12671 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝑀 ∈ β„‚)
56 npcan1 11643 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 ∈ β„‚ β†’ ((𝑀 βˆ’ 1) + 1) = 𝑀)
5755, 56syl 17 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ ((𝑀 βˆ’ 1) + 1) = 𝑀)
5854, 57sylan9eqr 2788 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ (𝑗 + 1) = 𝑀)
5958oveq1d 7420 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ ((𝑗 + 1)...𝑁) = (𝑀...𝑁))
6059imaeq2d 6053 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ (π‘ˆ β€œ ((𝑗 + 1)...𝑁)) = (π‘ˆ β€œ (𝑀...𝑁)))
6160xpeq1d 5698 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}) = ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))
6253, 61uneq12d 4159 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0})) = (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})))
6362oveq2d 7421 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 = (𝑀 βˆ’ 1)) β†’ (𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))))
6449, 63csbied 3926 . . . . . . . . . . . . 13 (πœ‘ β†’ ⦋(𝑀 βˆ’ 1) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))))
6564adantr 480 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 = (𝑀 βˆ’ 1)) β†’ ⦋(𝑀 βˆ’ 1) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))))
6645, 65eqtrd 2766 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 = (𝑀 βˆ’ 1)) β†’ ⦋if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))))
6746zcnd 12671 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝑁 βˆ’ 1) ∈ β„‚)
68 npcan1 11643 . . . . . . . . . . . . . . 15 ((𝑁 βˆ’ 1) ∈ β„‚ β†’ (((𝑁 βˆ’ 1) βˆ’ 1) + 1) = (𝑁 βˆ’ 1))
6967, 68syl 17 . . . . . . . . . . . . . 14 (πœ‘ β†’ (((𝑁 βˆ’ 1) βˆ’ 1) + 1) = (𝑁 βˆ’ 1))
70 peano2zm 12609 . . . . . . . . . . . . . . 15 ((𝑁 βˆ’ 1) ∈ β„€ β†’ ((𝑁 βˆ’ 1) βˆ’ 1) ∈ β„€)
71 uzid 12841 . . . . . . . . . . . . . . 15 (((𝑁 βˆ’ 1) βˆ’ 1) ∈ β„€ β†’ ((𝑁 βˆ’ 1) βˆ’ 1) ∈ (β„€β‰₯β€˜((𝑁 βˆ’ 1) βˆ’ 1)))
72 peano2uz 12889 . . . . . . . . . . . . . . 15 (((𝑁 βˆ’ 1) βˆ’ 1) ∈ (β„€β‰₯β€˜((𝑁 βˆ’ 1) βˆ’ 1)) β†’ (((𝑁 βˆ’ 1) βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜((𝑁 βˆ’ 1) βˆ’ 1)))
7346, 70, 71, 724syl 19 . . . . . . . . . . . . . 14 (πœ‘ β†’ (((𝑁 βˆ’ 1) βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜((𝑁 βˆ’ 1) βˆ’ 1)))
7469, 73eqeltrrd 2828 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜((𝑁 βˆ’ 1) βˆ’ 1)))
75 fzss2 13547 . . . . . . . . . . . . 13 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜((𝑁 βˆ’ 1) βˆ’ 1)) β†’ (0...((𝑁 βˆ’ 1) βˆ’ 1)) βŠ† (0...(𝑁 βˆ’ 1)))
7674, 75syl 17 . . . . . . . . . . . 12 (πœ‘ β†’ (0...((𝑁 βˆ’ 1) βˆ’ 1)) βŠ† (0...(𝑁 βˆ’ 1)))
7776, 49sseldd 3978 . . . . . . . . . . 11 (πœ‘ β†’ (𝑀 βˆ’ 1) ∈ (0...(𝑁 βˆ’ 1)))
78 ovexd 7440 . . . . . . . . . . 11 (πœ‘ β†’ (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))) ∈ V)
7935, 66, 77, 78fvmptd 6999 . . . . . . . . . 10 (πœ‘ β†’ (πΉβ€˜(𝑀 βˆ’ 1)) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))))
8079fveq1d 6887 . . . . . . . . 9 (πœ‘ β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) = ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})))β€˜π‘›))
8180adantr 480 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) = ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})))β€˜π‘›))
8229ffnd 6712 . . . . . . . . . . 11 (πœ‘ β†’ 𝑇 Fn (1...𝑁))
8382adantr 480 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ 𝑇 Fn (1...𝑁))
84 1ex 11214 . . . . . . . . . . . . . . 15 1 ∈ V
85 fnconstg 6773 . . . . . . . . . . . . . . 15 (1 ∈ V β†’ ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 βˆ’ 1))))
8684, 85ax-mp 5 . . . . . . . . . . . . . 14 ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 βˆ’ 1)))
87 c0ex 11212 . . . . . . . . . . . . . . 15 0 ∈ V
88 fnconstg 6773 . . . . . . . . . . . . . . 15 (0 ∈ V β†’ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (𝑀...𝑁)))
8987, 88ax-mp 5 . . . . . . . . . . . . . 14 ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (𝑀...𝑁))
9086, 89pm3.2i 470 . . . . . . . . . . . . 13 (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∧ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (𝑀...𝑁)))
91 dff1o3 6833 . . . . . . . . . . . . . . . 16 (π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁) ↔ (π‘ˆ:(1...𝑁)–ontoβ†’(1...𝑁) ∧ Fun β—‘π‘ˆ))
9291simprbi 496 . . . . . . . . . . . . . . 15 (π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ Fun β—‘π‘ˆ)
93 imain 6627 . . . . . . . . . . . . . . 15 (Fun β—‘π‘ˆ β†’ (π‘ˆ β€œ ((1...(𝑀 βˆ’ 1)) ∩ (𝑀...𝑁))) = ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))))
941, 92, 933syl 18 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ ((1...(𝑀 βˆ’ 1)) ∩ (𝑀...𝑁))) = ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))))
95 fzdisj 13534 . . . . . . . . . . . . . . . . 17 ((𝑀 βˆ’ 1) < 𝑀 β†’ ((1...(𝑀 βˆ’ 1)) ∩ (𝑀...𝑁)) = βˆ…)
9642, 95syl 17 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((1...(𝑀 βˆ’ 1)) ∩ (𝑀...𝑁)) = βˆ…)
9796imaeq2d 6053 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘ˆ β€œ ((1...(𝑀 βˆ’ 1)) ∩ (𝑀...𝑁))) = (π‘ˆ β€œ βˆ…))
98 ima0 6070 . . . . . . . . . . . . . . 15 (π‘ˆ β€œ βˆ…) = βˆ…
9997, 98eqtrdi 2782 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ ((1...(𝑀 βˆ’ 1)) ∩ (𝑀...𝑁))) = βˆ…)
10094, 99eqtr3d 2768 . . . . . . . . . . . . 13 (πœ‘ β†’ ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))) = βˆ…)
101 fnun 6657 . . . . . . . . . . . . 13 (((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∧ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (𝑀...𝑁))) ∧ ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))) = βˆ…) β†’ (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})) Fn ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) βˆͺ (π‘ˆ β€œ (𝑀...𝑁))))
10290, 100, 101sylancr 586 . . . . . . . . . . . 12 (πœ‘ β†’ (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})) Fn ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) βˆͺ (π‘ˆ β€œ (𝑀...𝑁))))
103 elfzuz 13503 . . . . . . . . . . . . . . . . . . . 20 (𝑀 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑀 ∈ (β„€β‰₯β€˜1))
10416, 103syl 17 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝑀 ∈ (β„€β‰₯β€˜1))
10557, 104eqeltrd 2827 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ ((𝑀 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜1))
106 peano2zm 12609 . . . . . . . . . . . . . . . . . . . . . 22 (𝑀 ∈ β„€ β†’ (𝑀 βˆ’ 1) ∈ β„€)
107 uzid 12841 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑀 βˆ’ 1) ∈ β„€ β†’ (𝑀 βˆ’ 1) ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
108 peano2uz 12889 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑀 βˆ’ 1) ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)) β†’ ((𝑀 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
10940, 106, 107, 1084syl 19 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ ((𝑀 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
11057, 109eqeltrrd 2828 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 𝑀 ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
111 peano2uz 12889 . . . . . . . . . . . . . . . . . . . 20 (𝑀 ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)) β†’ (𝑀 + 1) ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
112 uzss 12849 . . . . . . . . . . . . . . . . . . . 20 ((𝑀 + 1) ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)) β†’ (β„€β‰₯β€˜(𝑀 + 1)) βŠ† (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
113110, 111, 1123syl 18 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (β„€β‰₯β€˜(𝑀 + 1)) βŠ† (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
114 elfzuz3 13504 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 ∈ (1...(𝑁 βˆ’ 1)) β†’ (𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜π‘€))
115 eluzp1p1 12854 . . . . . . . . . . . . . . . . . . . . 21 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜π‘€) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑀 + 1)))
11616, 114, 1153syl 18 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑀 + 1)))
1177, 116eqeltrrd 2828 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝑀 + 1)))
118113, 117sseldd 3978 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1)))
119 fzsplit2 13532 . . . . . . . . . . . . . . . . . 18 ((((𝑀 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜1) ∧ 𝑁 ∈ (β„€β‰₯β€˜(𝑀 βˆ’ 1))) β†’ (1...𝑁) = ((1...(𝑀 βˆ’ 1)) βˆͺ (((𝑀 βˆ’ 1) + 1)...𝑁)))
120105, 118, 119syl2anc 583 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (1...𝑁) = ((1...(𝑀 βˆ’ 1)) βˆͺ (((𝑀 βˆ’ 1) + 1)...𝑁)))
12157oveq1d 7420 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (((𝑀 βˆ’ 1) + 1)...𝑁) = (𝑀...𝑁))
122121uneq2d 4158 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ ((1...(𝑀 βˆ’ 1)) βˆͺ (((𝑀 βˆ’ 1) + 1)...𝑁)) = ((1...(𝑀 βˆ’ 1)) βˆͺ (𝑀...𝑁)))
123120, 122eqtrd 2766 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (1...𝑁) = ((1...(𝑀 βˆ’ 1)) βˆͺ (𝑀...𝑁)))
124123imaeq2d 6053 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘ˆ β€œ (1...𝑁)) = (π‘ˆ β€œ ((1...(𝑀 βˆ’ 1)) βˆͺ (𝑀...𝑁))))
125 imaundi 6143 . . . . . . . . . . . . . . 15 (π‘ˆ β€œ ((1...(𝑀 βˆ’ 1)) βˆͺ (𝑀...𝑁))) = ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) βˆͺ (π‘ˆ β€œ (𝑀...𝑁)))
126124, 125eqtrdi 2782 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ (1...𝑁)) = ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) βˆͺ (π‘ˆ β€œ (𝑀...𝑁))))
127 f1ofo 6834 . . . . . . . . . . . . . . 15 (π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ π‘ˆ:(1...𝑁)–ontoβ†’(1...𝑁))
128 foima 6804 . . . . . . . . . . . . . . 15 (π‘ˆ:(1...𝑁)–ontoβ†’(1...𝑁) β†’ (π‘ˆ β€œ (1...𝑁)) = (1...𝑁))
1291, 127, 1283syl 18 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ (1...𝑁)) = (1...𝑁))
130126, 129eqtr3d 2768 . . . . . . . . . . . . 13 (πœ‘ β†’ ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) βˆͺ (π‘ˆ β€œ (𝑀...𝑁))) = (1...𝑁))
131130fneq2d 6637 . . . . . . . . . . . 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 480 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})) Fn (1...𝑁))
134 ovexd 7440 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ (1...𝑁) ∈ V)
135 inidm 4213 . . . . . . . . . 10 ((1...𝑁) ∩ (1...𝑁)) = (1...𝑁)
136 eqidd 2727 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) ∧ 𝑛 ∈ (1...𝑁)) β†’ (π‘‡β€˜π‘›) = (π‘‡β€˜π‘›))
137100adantr 480 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))) = βˆ…)
138 fzss2 13547 . . . . . . . . . . . . . . 15 (𝑁 ∈ (β„€β‰₯β€˜(𝑀 + 1)) β†’ (𝑀...(𝑀 + 1)) βŠ† (𝑀...𝑁))
139 imass2 6095 . . . . . . . . . . . . . . 15 ((𝑀...(𝑀 + 1)) βŠ† (𝑀...𝑁) β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) βŠ† (π‘ˆ β€œ (𝑀...𝑁)))
140117, 138, 1393syl 18 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) βŠ† (π‘ˆ β€œ (𝑀...𝑁)))
141140sselda 3977 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ 𝑛 ∈ (π‘ˆ β€œ (𝑀...𝑁)))
142 fvun2 6977 . . . . . . . . . . . . . 14 ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∧ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (𝑀...𝑁)) ∧ (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))) = βˆ… ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...𝑁)))) β†’ ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))β€˜π‘›) = (((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})β€˜π‘›))
14386, 89, 142mp3an12 1447 . . . . . . . . . . . . 13 ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) ∩ (π‘ˆ β€œ (𝑀...𝑁))) = βˆ… ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...𝑁))) β†’ ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))β€˜π‘›) = (((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})β€˜π‘›))
144137, 141, 143syl2anc 583 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))β€˜π‘›) = (((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})β€˜π‘›))
14587fvconst2 7201 . . . . . . . . . . . . 13 (𝑛 ∈ (π‘ˆ β€œ (𝑀...𝑁)) β†’ (((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})β€˜π‘›) = 0)
146141, 145syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ (((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})β€˜π‘›) = 0)
147144, 146eqtrd 2766 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))β€˜π‘›) = 0)
148147adantr 480 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0}))β€˜π‘›) = 0)
14983, 133, 134, 134, 135, 136, 148ofval 7678 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})))β€˜π‘›) = ((π‘‡β€˜π‘›) + 0))
15028, 149mpdan 684 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 βˆ’ 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (𝑀...𝑁)) Γ— {0})))β€˜π‘›) = ((π‘‡β€˜π‘›) + 0))
15130zcnd 12671 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ (π‘‡β€˜π‘›) ∈ β„‚)
152151addridd 11418 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ ((π‘‡β€˜π‘›) + 0) = (π‘‡β€˜π‘›))
15328, 152syldan 590 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((π‘‡β€˜π‘›) + 0) = (π‘‡β€˜π‘›))
15481, 150, 1533eqtrd 2770 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) = (π‘‡β€˜π‘›))
155 breq1 5144 . . . . . . . . . . . . . . 15 (𝑦 = 𝑀 β†’ (𝑦 < 𝑀 ↔ 𝑀 < 𝑀))
156 oveq1 7412 . . . . . . . . . . . . . . 15 (𝑦 = 𝑀 β†’ (𝑦 + 1) = (𝑀 + 1))
157155, 156ifbieq2d 4549 . . . . . . . . . . . . . 14 (𝑦 = 𝑀 β†’ if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) = if(𝑀 < 𝑀, 𝑦, (𝑀 + 1)))
15841ltnrd 11352 . . . . . . . . . . . . . . 15 (πœ‘ β†’ Β¬ 𝑀 < 𝑀)
159158iffalsed 4534 . . . . . . . . . . . . . 14 (πœ‘ β†’ if(𝑀 < 𝑀, 𝑦, (𝑀 + 1)) = (𝑀 + 1))
160157, 159sylan9eqr 2788 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 = 𝑀) β†’ if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) = (𝑀 + 1))
161160csbeq1d 3892 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 = 𝑀) β†’ ⦋if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = ⦋(𝑀 + 1) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))))
162 ovex 7438 . . . . . . . . . . . . 13 (𝑀 + 1) ∈ V
163 oveq2 7413 . . . . . . . . . . . . . . . . 17 (𝑗 = (𝑀 + 1) β†’ (1...𝑗) = (1...(𝑀 + 1)))
164163imaeq2d 6053 . . . . . . . . . . . . . . . 16 (𝑗 = (𝑀 + 1) β†’ (π‘ˆ β€œ (1...𝑗)) = (π‘ˆ β€œ (1...(𝑀 + 1))))
165164xpeq1d 5698 . . . . . . . . . . . . . . 15 (𝑗 = (𝑀 + 1) β†’ ((π‘ˆ β€œ (1...𝑗)) Γ— {1}) = ((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}))
166 oveq1 7412 . . . . . . . . . . . . . . . . . 18 (𝑗 = (𝑀 + 1) β†’ (𝑗 + 1) = ((𝑀 + 1) + 1))
167166oveq1d 7420 . . . . . . . . . . . . . . . . 17 (𝑗 = (𝑀 + 1) β†’ ((𝑗 + 1)...𝑁) = (((𝑀 + 1) + 1)...𝑁))
168167imaeq2d 6053 . . . . . . . . . . . . . . . 16 (𝑗 = (𝑀 + 1) β†’ (π‘ˆ β€œ ((𝑗 + 1)...𝑁)) = (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)))
169168xpeq1d 5698 . . . . . . . . . . . . . . 15 (𝑗 = (𝑀 + 1) β†’ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}) = ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))
170165, 169uneq12d 4159 . . . . . . . . . . . . . 14 (𝑗 = (𝑀 + 1) β†’ (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0})) = (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})))
171170oveq2d 7421 . . . . . . . . . . . . 13 (𝑗 = (𝑀 + 1) β†’ (𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))))
172162, 171csbie 3924 . . . . . . . . . . . 12 ⦋(𝑀 + 1) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})))
173161, 172eqtrdi 2782 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 = 𝑀) β†’ ⦋if(𝑦 < 𝑀, 𝑦, (𝑦 + 1)) / π‘—β¦Œ(𝑇 ∘f + (((π‘ˆ β€œ (1...𝑗)) Γ— {1}) βˆͺ ((π‘ˆ β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))))
174 fz1ssfz0 13603 . . . . . . . . . . . 12 (1...(𝑁 βˆ’ 1)) βŠ† (0...(𝑁 βˆ’ 1))
175174, 16sselid 3975 . . . . . . . . . . 11 (πœ‘ β†’ 𝑀 ∈ (0...(𝑁 βˆ’ 1)))
176 ovexd 7440 . . . . . . . . . . 11 (πœ‘ β†’ (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))) ∈ V)
17735, 173, 175, 176fvmptd 6999 . . . . . . . . . 10 (πœ‘ β†’ (πΉβ€˜π‘€) = (𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))))
178177fveq1d 6887 . . . . . . . . 9 (πœ‘ β†’ ((πΉβ€˜π‘€)β€˜π‘›) = ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})))β€˜π‘›))
179178adantr 480 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((πΉβ€˜π‘€)β€˜π‘›) = ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})))β€˜π‘›))
180 fnconstg 6773 . . . . . . . . . . . . . . 15 (1 ∈ V β†’ ((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 + 1))))
18184, 180ax-mp 5 . . . . . . . . . . . . . 14 ((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 + 1)))
182 fnconstg 6773 . . . . . . . . . . . . . . 15 (0 ∈ V β†’ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)))
18387, 182ax-mp 5 . . . . . . . . . . . . . 14 ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))
184181, 183pm3.2i 470 . . . . . . . . . . . . 13 (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) Fn (π‘ˆ β€œ (1...(𝑀 + 1))) ∧ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}) Fn (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)))
185 imain 6627 . . . . . . . . . . . . . . . 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 11391 . . . . . . . . . . . . . . . . . . 19 (𝑀 ∈ ℝ β†’ (𝑀 + 1) ∈ ℝ)
18841, 187syl 17 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (𝑀 + 1) ∈ ℝ)
189188ltp1d 12148 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑀 + 1) < ((𝑀 + 1) + 1))
190 fzdisj 13534 . . . . . . . . . . . . . . . . 17 ((𝑀 + 1) < ((𝑀 + 1) + 1) β†’ ((1...(𝑀 + 1)) ∩ (((𝑀 + 1) + 1)...𝑁)) = βˆ…)
191189, 190syl 17 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((1...(𝑀 + 1)) ∩ (((𝑀 + 1) + 1)...𝑁)) = βˆ…)
192191imaeq2d 6053 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘ˆ β€œ ((1...(𝑀 + 1)) ∩ (((𝑀 + 1) + 1)...𝑁))) = (π‘ˆ β€œ βˆ…))
193186, 192eqtr3d 2768 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((π‘ˆ β€œ (1...(𝑀 + 1))) ∩ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) = (π‘ˆ β€œ βˆ…))
194193, 98eqtrdi 2782 . . . . . . . . . . . . 13 (πœ‘ β†’ ((π‘ˆ β€œ (1...(𝑀 + 1))) ∩ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) = βˆ…)
195 fnun 6657 . . . . . . . . . . . . 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 586 . . . . . . . . . . . 12 (πœ‘ β†’ (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})) Fn ((π‘ˆ β€œ (1...(𝑀 + 1))) βˆͺ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))))
197 fzsplit 13533 . . . . . . . . . . . . . . . . 17 ((𝑀 + 1) ∈ (1...𝑁) β†’ (1...𝑁) = ((1...(𝑀 + 1)) βˆͺ (((𝑀 + 1) + 1)...𝑁)))
19822, 197syl 17 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (1...𝑁) = ((1...(𝑀 + 1)) βˆͺ (((𝑀 + 1) + 1)...𝑁)))
199198imaeq2d 6053 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘ˆ β€œ (1...𝑁)) = (π‘ˆ β€œ ((1...(𝑀 + 1)) βˆͺ (((𝑀 + 1) + 1)...𝑁))))
200 imaundi 6143 . . . . . . . . . . . . . . 15 (π‘ˆ β€œ ((1...(𝑀 + 1)) βˆͺ (((𝑀 + 1) + 1)...𝑁))) = ((π‘ˆ β€œ (1...(𝑀 + 1))) βˆͺ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)))
201199, 200eqtrdi 2782 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ (1...𝑁)) = ((π‘ˆ β€œ (1...(𝑀 + 1))) βˆͺ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))))
202201, 129eqtr3d 2768 . . . . . . . . . . . . 13 (πœ‘ β†’ ((π‘ˆ β€œ (1...(𝑀 + 1))) βˆͺ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) = (1...𝑁))
203202fneq2d 6637 . . . . . . . . . . . 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 480 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})) Fn (1...𝑁))
206194adantr 480 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((π‘ˆ β€œ (1...(𝑀 + 1))) ∩ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) = βˆ…)
207 fzss1 13546 . . . . . . . . . . . . . . 15 (𝑀 ∈ (β„€β‰₯β€˜1) β†’ (𝑀...(𝑀 + 1)) βŠ† (1...(𝑀 + 1)))
208 imass2 6095 . . . . . . . . . . . . . . 15 ((𝑀...(𝑀 + 1)) βŠ† (1...(𝑀 + 1)) β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) βŠ† (π‘ˆ β€œ (1...(𝑀 + 1))))
209104, 207, 2083syl 18 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) βŠ† (π‘ˆ β€œ (1...(𝑀 + 1))))
210209sselda 3977 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ 𝑛 ∈ (π‘ˆ β€œ (1...(𝑀 + 1))))
211 fvun1 6976 . . . . . . . . . . . . . 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 1447 . . . . . . . . . . . . 13 ((((π‘ˆ β€œ (1...(𝑀 + 1))) ∩ (π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁))) = βˆ… ∧ 𝑛 ∈ (π‘ˆ β€œ (1...(𝑀 + 1)))) β†’ ((((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1})β€˜π‘›))
213206, 210, 212syl2anc 583 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1})β€˜π‘›))
21484fvconst2 7201 . . . . . . . . . . . . 13 (𝑛 ∈ (π‘ˆ β€œ (1...(𝑀 + 1))) β†’ (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1})β€˜π‘›) = 1)
215210, 214syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1})β€˜π‘›) = 1)
216213, 215eqtrd 2766 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = 1)
217216adantr 480 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = 1)
21883, 205, 134, 134, 135, 136, 217ofval 7678 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})))β€˜π‘›) = ((π‘‡β€˜π‘›) + 1))
21928, 218mpdan 684 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((𝑇 ∘f + (((π‘ˆ β€œ (1...(𝑀 + 1))) Γ— {1}) βˆͺ ((π‘ˆ β€œ (((𝑀 + 1) + 1)...𝑁)) Γ— {0})))β€˜π‘›) = ((π‘‡β€˜π‘›) + 1))
220179, 219eqtrd 2766 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((πΉβ€˜π‘€)β€˜π‘›) = ((π‘‡β€˜π‘›) + 1))
22134, 154, 2203netr4d 3012 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))) β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›))
222221ralrimiva 3140 . . . . 5 (πœ‘ β†’ βˆ€π‘› ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›))
223 fzpr 13562 . . . . . . . . 9 (𝑀 ∈ β„€ β†’ (𝑀...(𝑀 + 1)) = {𝑀, (𝑀 + 1)})
22416, 39, 2233syl 18 . . . . . . . 8 (πœ‘ β†’ (𝑀...(𝑀 + 1)) = {𝑀, (𝑀 + 1)})
225224imaeq2d 6053 . . . . . . 7 (πœ‘ β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) = (π‘ˆ β€œ {𝑀, (𝑀 + 1)}))
226 f1ofn 6828 . . . . . . . . 9 (π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ π‘ˆ Fn (1...𝑁))
2271, 226syl 17 . . . . . . . 8 (πœ‘ β†’ π‘ˆ Fn (1...𝑁))
228 fnimapr 6969 . . . . . . . 8 ((π‘ˆ Fn (1...𝑁) ∧ 𝑀 ∈ (1...𝑁) ∧ (𝑀 + 1) ∈ (1...𝑁)) β†’ (π‘ˆ β€œ {𝑀, (𝑀 + 1)}) = {(π‘ˆβ€˜π‘€), (π‘ˆβ€˜(𝑀 + 1))})
229227, 17, 22, 228syl3anc 1368 . . . . . . 7 (πœ‘ β†’ (π‘ˆ β€œ {𝑀, (𝑀 + 1)}) = {(π‘ˆβ€˜π‘€), (π‘ˆβ€˜(𝑀 + 1))})
230225, 229eqtrd 2766 . . . . . 6 (πœ‘ β†’ (π‘ˆ β€œ (𝑀...(𝑀 + 1))) = {(π‘ˆβ€˜π‘€), (π‘ˆβ€˜(𝑀 + 1))})
231230raleqdv 3319 . . . . 5 (πœ‘ β†’ (βˆ€π‘› ∈ (π‘ˆ β€œ (𝑀...(𝑀 + 1)))((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ↔ βˆ€π‘› ∈ {(π‘ˆβ€˜π‘€), (π‘ˆβ€˜(𝑀 + 1))} ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›)))
232222, 231mpbid 231 . . . 4 (πœ‘ β†’ βˆ€π‘› ∈ {(π‘ˆβ€˜π‘€), (π‘ˆβ€˜(𝑀 + 1))} ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›))
233 fvex 6898 . . . . 5 (π‘ˆβ€˜π‘€) ∈ V
234 fvex 6898 . . . . 5 (π‘ˆβ€˜(𝑀 + 1)) ∈ V
235 fveq2 6885 . . . . . 6 (𝑛 = (π‘ˆβ€˜π‘€) β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) = ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)))
236 fveq2 6885 . . . . . 6 (𝑛 = (π‘ˆβ€˜π‘€) β†’ ((πΉβ€˜π‘€)β€˜π‘›) = ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)))
237235, 236neeq12d 2996 . . . . 5 (𝑛 = (π‘ˆβ€˜π‘€) β†’ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ↔ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€))))
238 fveq2 6885 . . . . . 6 (𝑛 = (π‘ˆβ€˜(𝑀 + 1)) β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) = ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))))
239 fveq2 6885 . . . . . 6 (𝑛 = (π‘ˆβ€˜(𝑀 + 1)) β†’ ((πΉβ€˜π‘€)β€˜π‘›) = ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1))))
240238, 239neeq12d 2996 . . . . 5 (𝑛 = (π‘ˆβ€˜(𝑀 + 1)) β†’ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ↔ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1)))))
241233, 234, 237, 240ralpr 4699 . . . 4 (βˆ€π‘› ∈ {(π‘ˆβ€˜π‘€), (π‘ˆβ€˜(𝑀 + 1))} ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ↔ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1)))))
242232, 241sylib 217 . . 3 (πœ‘ β†’ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1)))))
24341ltp1d 12148 . . . . 5 (πœ‘ β†’ 𝑀 < (𝑀 + 1))
24441, 243ltned 11354 . . . 4 (πœ‘ β†’ 𝑀 β‰  (𝑀 + 1))
245 f1of1 6826 . . . . . . 7 (π‘ˆ:(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ π‘ˆ:(1...𝑁)–1-1β†’(1...𝑁))
2461, 245syl 17 . . . . . 6 (πœ‘ β†’ π‘ˆ:(1...𝑁)–1-1β†’(1...𝑁))
247 f1veqaeq 7252 . . . . . 6 ((π‘ˆ:(1...𝑁)–1-1β†’(1...𝑁) ∧ (𝑀 ∈ (1...𝑁) ∧ (𝑀 + 1) ∈ (1...𝑁))) β†’ ((π‘ˆβ€˜π‘€) = (π‘ˆβ€˜(𝑀 + 1)) β†’ 𝑀 = (𝑀 + 1)))
248246, 17, 22, 247syl12anc 834 . . . . 5 (πœ‘ β†’ ((π‘ˆβ€˜π‘€) = (π‘ˆβ€˜(𝑀 + 1)) β†’ 𝑀 = (𝑀 + 1)))
249248necon3d 2955 . . . 4 (πœ‘ β†’ (𝑀 β‰  (𝑀 + 1) β†’ (π‘ˆβ€˜π‘€) β‰  (π‘ˆβ€˜(𝑀 + 1))))
250244, 249mpd 15 . . 3 (πœ‘ β†’ (π‘ˆβ€˜π‘€) β‰  (π‘ˆβ€˜(𝑀 + 1)))
251237anbi1d 629 . . . . 5 (𝑛 = (π‘ˆβ€˜π‘€) β†’ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ↔ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š))))
252 neeq1 2997 . . . . 5 (𝑛 = (π‘ˆβ€˜π‘€) β†’ (𝑛 β‰  π‘š ↔ (π‘ˆβ€˜π‘€) β‰  π‘š))
253251, 252anbi12d 630 . . . 4 (𝑛 = (π‘ˆβ€˜π‘€) β†’ (((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š) ↔ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ (π‘ˆβ€˜π‘€) β‰  π‘š)))
254 fveq2 6885 . . . . . . 7 (π‘š = (π‘ˆβ€˜(𝑀 + 1)) β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) = ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))))
255 fveq2 6885 . . . . . . 7 (π‘š = (π‘ˆβ€˜(𝑀 + 1)) β†’ ((πΉβ€˜π‘€)β€˜π‘š) = ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1))))
256254, 255neeq12d 2996 . . . . . 6 (π‘š = (π‘ˆβ€˜(𝑀 + 1)) β†’ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š) ↔ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1)))))
257256anbi2d 628 . . . . 5 (π‘š = (π‘ˆβ€˜(𝑀 + 1)) β†’ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ↔ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1))))))
258 neeq2 2998 . . . . 5 (π‘š = (π‘ˆβ€˜(𝑀 + 1)) β†’ ((π‘ˆβ€˜π‘€) β‰  π‘š ↔ (π‘ˆβ€˜π‘€) β‰  (π‘ˆβ€˜(𝑀 + 1))))
259257, 258anbi12d 630 . . . 4 (π‘š = (π‘ˆβ€˜(𝑀 + 1)) β†’ (((((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ (π‘ˆβ€˜π‘€) β‰  π‘š) ↔ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1)))) ∧ (π‘ˆβ€˜π‘€) β‰  (π‘ˆβ€˜(𝑀 + 1)))))
260253, 259rspc2ev 3619 . . 3 (((π‘ˆβ€˜π‘€) ∈ (1...𝑁) ∧ (π‘ˆβ€˜(𝑀 + 1)) ∈ (1...𝑁) ∧ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜π‘€)) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜π‘€)) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜(π‘ˆβ€˜(𝑀 + 1))) β‰  ((πΉβ€˜π‘€)β€˜(π‘ˆβ€˜(𝑀 + 1)))) ∧ (π‘ˆβ€˜π‘€) β‰  (π‘ˆβ€˜(𝑀 + 1)))) β†’ βˆƒπ‘› ∈ (1...𝑁)βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š))
26118, 23, 242, 250, 260syl112anc 1371 . 2 (πœ‘ β†’ βˆƒπ‘› ∈ (1...𝑁)βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š))
262 dfrex2 3067 . . 3 (βˆƒπ‘› ∈ (1...𝑁)βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š) ↔ Β¬ βˆ€π‘› ∈ (1...𝑁) Β¬ βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š))
263 fveq2 6885 . . . . . 6 (𝑛 = π‘š β†’ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) = ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š))
264 fveq2 6885 . . . . . 6 (𝑛 = π‘š β†’ ((πΉβ€˜π‘€)β€˜π‘›) = ((πΉβ€˜π‘€)β€˜π‘š))
265263, 264neeq12d 2996 . . . . 5 (𝑛 = π‘š β†’ (((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ↔ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)))
266265rmo4 3721 . . . 4 (βˆƒ*𝑛 ∈ (1...𝑁)((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ↔ βˆ€π‘› ∈ (1...𝑁)βˆ€π‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š))
267 dfral2 3093 . . . . . 6 (βˆ€π‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š) ↔ Β¬ βˆƒπ‘š ∈ (1...𝑁) Β¬ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š))
268 df-ne 2935 . . . . . . . . 9 (𝑛 β‰  π‘š ↔ Β¬ 𝑛 = π‘š)
269268anbi2i 622 . . . . . . . 8 (((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š) ↔ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ Β¬ 𝑛 = π‘š))
270 annim 403 . . . . . . . 8 (((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ Β¬ 𝑛 = π‘š) ↔ Β¬ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š))
271269, 270bitri 275 . . . . . . 7 (((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š) ↔ Β¬ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š))
272271rexbii 3088 . . . . . 6 (βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š) ↔ βˆƒπ‘š ∈ (1...𝑁) Β¬ ((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š))
273267, 272xchbinxr 335 . . . . 5 (βˆ€π‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) β†’ 𝑛 = π‘š) ↔ Β¬ βˆƒπ‘š ∈ (1...𝑁)((((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘›) β‰  ((πΉβ€˜π‘€)β€˜π‘›) ∧ ((πΉβ€˜(𝑀 βˆ’ 1))β€˜π‘š) β‰  ((πΉβ€˜π‘€)β€˜π‘š)) ∧ 𝑛 β‰  π‘š))
274273ralbii 3087 . . . 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 395   = wceq 1533   ∈ wcel 2098   β‰  wne 2934  βˆ€wral 3055  βˆƒwrex 3064  βˆƒ*wrmo 3369  Vcvv 3468  β¦‹csb 3888   βˆͺ cun 3941   ∩ cin 3942   βŠ† wss 3943  βˆ…c0 4317  ifcif 4523  {csn 4623  {cpr 4625   class class class wbr 5141   ↦ cmpt 5224   Γ— cxp 5667  β—‘ccnv 5668  ran crn 5670   β€œ cima 5672  Fun wfun 6531   Fn wfn 6532  βŸΆwf 6533  β€“1-1β†’wf1 6534  β€“ontoβ†’wfo 6535  β€“1-1-ontoβ†’wf1o 6536  β€˜cfv 6537  (class class class)co 7405   ∘f cof 7665  β„‚cc 11110  β„cr 11111  0cc0 11112  1c1 11113   + caddc 11115   < clt 11252   βˆ’ cmin 11448  β„•cn 12216  β„€cz 12562  β„€β‰₯cuz 12826  ...cfz 13490
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2697  ax-rep 5278  ax-sep 5292  ax-nul 5299  ax-pow 5356  ax-pr 5420  ax-un 7722  ax-cnex 11168  ax-resscn 11169  ax-1cn 11170  ax-icn 11171  ax-addcl 11172  ax-addrcl 11173  ax-mulcl 11174  ax-mulrcl 11175  ax-mulcom 11176  ax-addass 11177  ax-mulass 11178  ax-distr 11179  ax-i2m1 11180  ax-1ne0 11181  ax-1rid 11182  ax-rnegex 11183  ax-rrecex 11184  ax-cnre 11185  ax-pre-lttri 11186  ax-pre-lttrn 11187  ax-pre-ltadd 11188  ax-pre-mulgt0 11189
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2704  df-cleq 2718  df-clel 2804  df-nfc 2879  df-ne 2935  df-nel 3041  df-ral 3056  df-rex 3065  df-rmo 3370  df-reu 3371  df-rab 3427  df-v 3470  df-sbc 3773  df-csb 3889  df-dif 3946  df-un 3948  df-in 3950  df-ss 3960  df-pss 3962  df-nul 4318  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-op 4630  df-uni 4903  df-iun 4992  df-br 5142  df-opab 5204  df-mpt 5225  df-tr 5259  df-id 5567  df-eprel 5573  df-po 5581  df-so 5582  df-fr 5624  df-we 5626  df-xp 5675  df-rel 5676  df-cnv 5677  df-co 5678  df-dm 5679  df-rn 5680  df-res 5681  df-ima 5682  df-pred 6294  df-ord 6361  df-on 6362  df-lim 6363  df-suc 6364  df-iota 6489  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7667  df-om 7853  df-1st 7974  df-2nd 7975  df-frecs 8267  df-wrecs 8298  df-recs 8372  df-rdg 8411  df-er 8705  df-en 8942  df-dom 8943  df-sdom 8944  df-pnf 11254  df-mnf 11255  df-xr 11256  df-ltxr 11257  df-le 11258  df-sub 11450  df-neg 11451  df-nn 12217  df-n0 12477  df-z 12563  df-uz 12827  df-fz 13491
This theorem is referenced by:  poimirlem8  37009  poimirlem18  37019  poimirlem21  37022  poimirlem22  37023
  Copyright terms: Public domain W3C validator