MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  seqf1olem1 Structured version   Visualization version   GIF version

Theorem seqf1olem1 13690
Description: Lemma for seqf1o 13692. (Contributed by Mario Carneiro, 26-Feb-2014.) (Revised by Mario Carneiro, 27-May-2014.)
Hypotheses
Ref Expression
seqf1o.1 ((𝜑 ∧ (𝑥𝑆𝑦𝑆)) → (𝑥 + 𝑦) ∈ 𝑆)
seqf1o.2 ((𝜑 ∧ (𝑥𝐶𝑦𝐶)) → (𝑥 + 𝑦) = (𝑦 + 𝑥))
seqf1o.3 ((𝜑 ∧ (𝑥𝑆𝑦𝑆𝑧𝑆)) → ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧)))
seqf1o.4 (𝜑𝑁 ∈ (ℤ𝑀))
seqf1o.5 (𝜑𝐶𝑆)
seqf1olem.5 (𝜑𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)))
seqf1olem.6 (𝜑𝐺:(𝑀...(𝑁 + 1))⟶𝐶)
seqf1olem.7 𝐽 = (𝑘 ∈ (𝑀...𝑁) ↦ (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))))
seqf1olem.8 𝐾 = (𝐹‘(𝑁 + 1))
Assertion
Ref Expression
seqf1olem1 (𝜑𝐽:(𝑀...𝑁)–1-1-onto→(𝑀...𝑁))
Distinct variable groups:   𝑥,𝑘,𝑦,𝑧,𝐹   𝑘,𝐺,𝑥,𝑦,𝑧   𝑘,𝑀,𝑥,𝑦,𝑧   + ,𝑘,𝑥,𝑦,𝑧   𝑥,𝐽,𝑦,𝑧   𝑘,𝑁,𝑥,𝑦,𝑧   𝑘,𝐾,𝑥,𝑦,𝑧   𝜑,𝑘,𝑥,𝑦,𝑧   𝑆,𝑘,𝑥,𝑦,𝑧   𝐶,𝑘,𝑥,𝑦,𝑧
Allowed substitution hint:   𝐽(𝑘)

Proof of Theorem seqf1olem1
StepHypRef Expression
1 seqf1olem.7 . 2 𝐽 = (𝑘 ∈ (𝑀...𝑁) ↦ (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))))
2 fvexd 6771 . 2 ((𝜑𝑘 ∈ (𝑀...𝑁)) → (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))) ∈ V)
3 fvex 6769 . . . 4 (𝐹𝑥) ∈ V
4 ovex 7288 . . . 4 ((𝐹𝑥) − 1) ∈ V
53, 4ifex 4506 . . 3 if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)) ∈ V
65a1i 11 . 2 ((𝜑𝑥 ∈ (𝑀...𝑁)) → if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)) ∈ V)
7 iftrue 4462 . . . . . . . . 9 (𝑘 < 𝐾 → if(𝑘 < 𝐾, 𝑘, (𝑘 + 1)) = 𝑘)
87fveq2d 6760 . . . . . . . 8 (𝑘 < 𝐾 → (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))) = (𝐹𝑘))
98eqeq2d 2749 . . . . . . 7 (𝑘 < 𝐾 → (𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))) ↔ 𝑥 = (𝐹𝑘)))
109adantl 481 . . . . . 6 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ 𝑘 < 𝐾) → (𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))) ↔ 𝑥 = (𝐹𝑘)))
11 simprr 769 . . . . . . . . 9 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → 𝑥 = (𝐹𝑘))
12 elfzelz 13185 . . . . . . . . . . . . 13 (𝑘 ∈ (𝑀...𝑁) → 𝑘 ∈ ℤ)
1312zred 12355 . . . . . . . . . . . 12 (𝑘 ∈ (𝑀...𝑁) → 𝑘 ∈ ℝ)
1413ad2antlr 723 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → 𝑘 ∈ ℝ)
15 simprl 767 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → 𝑘 < 𝐾)
1614, 15gtned 11040 . . . . . . . . . 10 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → 𝐾𝑘)
17 seqf1olem.5 . . . . . . . . . . . . . . . . 17 (𝜑𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)))
18 f1of 6700 . . . . . . . . . . . . . . . . 17 (𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)) → 𝐹:(𝑀...(𝑁 + 1))⟶(𝑀...(𝑁 + 1)))
1917, 18syl 17 . . . . . . . . . . . . . . . 16 (𝜑𝐹:(𝑀...(𝑁 + 1))⟶(𝑀...(𝑁 + 1)))
2019ad2antrr 722 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → 𝐹:(𝑀...(𝑁 + 1))⟶(𝑀...(𝑁 + 1)))
21 fzssp1 13228 . . . . . . . . . . . . . . . 16 (𝑀...𝑁) ⊆ (𝑀...(𝑁 + 1))
22 simplr 765 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → 𝑘 ∈ (𝑀...𝑁))
2321, 22sselid 3915 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → 𝑘 ∈ (𝑀...(𝑁 + 1)))
2420, 23ffvelrnd 6944 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → (𝐹𝑘) ∈ (𝑀...(𝑁 + 1)))
25 seqf1o.4 . . . . . . . . . . . . . . . 16 (𝜑𝑁 ∈ (ℤ𝑀))
26 elfzp1 13235 . . . . . . . . . . . . . . . 16 (𝑁 ∈ (ℤ𝑀) → ((𝐹𝑘) ∈ (𝑀...(𝑁 + 1)) ↔ ((𝐹𝑘) ∈ (𝑀...𝑁) ∨ (𝐹𝑘) = (𝑁 + 1))))
2725, 26syl 17 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐹𝑘) ∈ (𝑀...(𝑁 + 1)) ↔ ((𝐹𝑘) ∈ (𝑀...𝑁) ∨ (𝐹𝑘) = (𝑁 + 1))))
2827ad2antrr 722 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → ((𝐹𝑘) ∈ (𝑀...(𝑁 + 1)) ↔ ((𝐹𝑘) ∈ (𝑀...𝑁) ∨ (𝐹𝑘) = (𝑁 + 1))))
2924, 28mpbid 231 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → ((𝐹𝑘) ∈ (𝑀...𝑁) ∨ (𝐹𝑘) = (𝑁 + 1)))
3029ord 860 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → (¬ (𝐹𝑘) ∈ (𝑀...𝑁) → (𝐹𝑘) = (𝑁 + 1)))
3117ad2antrr 722 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → 𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)))
32 f1ocnvfv 7131 . . . . . . . . . . . . . 14 ((𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)) ∧ 𝑘 ∈ (𝑀...(𝑁 + 1))) → ((𝐹𝑘) = (𝑁 + 1) → (𝐹‘(𝑁 + 1)) = 𝑘))
3331, 23, 32syl2anc 583 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → ((𝐹𝑘) = (𝑁 + 1) → (𝐹‘(𝑁 + 1)) = 𝑘))
34 seqf1olem.8 . . . . . . . . . . . . . 14 𝐾 = (𝐹‘(𝑁 + 1))
3534eqeq1i 2743 . . . . . . . . . . . . 13 (𝐾 = 𝑘 ↔ (𝐹‘(𝑁 + 1)) = 𝑘)
3633, 35syl6ibr 251 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → ((𝐹𝑘) = (𝑁 + 1) → 𝐾 = 𝑘))
3730, 36syld 47 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → (¬ (𝐹𝑘) ∈ (𝑀...𝑁) → 𝐾 = 𝑘))
3837necon1ad 2959 . . . . . . . . . 10 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → (𝐾𝑘 → (𝐹𝑘) ∈ (𝑀...𝑁)))
3916, 38mpd 15 . . . . . . . . 9 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → (𝐹𝑘) ∈ (𝑀...𝑁))
4011, 39eqeltrd 2839 . . . . . . . 8 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → 𝑥 ∈ (𝑀...𝑁))
4111eqcomd 2744 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → (𝐹𝑘) = 𝑥)
42 f1ocnvfv 7131 . . . . . . . . . . . . 13 ((𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)) ∧ 𝑘 ∈ (𝑀...(𝑁 + 1))) → ((𝐹𝑘) = 𝑥 → (𝐹𝑥) = 𝑘))
4331, 23, 42syl2anc 583 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → ((𝐹𝑘) = 𝑥 → (𝐹𝑥) = 𝑘))
4441, 43mpd 15 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → (𝐹𝑥) = 𝑘)
4544, 15eqbrtrd 5092 . . . . . . . . . 10 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → (𝐹𝑥) < 𝐾)
46 iftrue 4462 . . . . . . . . . 10 ((𝐹𝑥) < 𝐾 → if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)) = (𝐹𝑥))
4745, 46syl 17 . . . . . . . . 9 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)) = (𝐹𝑥))
4847, 44eqtr2d 2779 . . . . . . . 8 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → 𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)))
4940, 48jca 511 . . . . . . 7 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (𝑘 < 𝐾𝑥 = (𝐹𝑘))) → (𝑥 ∈ (𝑀...𝑁) ∧ 𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1))))
5049expr 456 . . . . . 6 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ 𝑘 < 𝐾) → (𝑥 = (𝐹𝑘) → (𝑥 ∈ (𝑀...𝑁) ∧ 𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)))))
5110, 50sylbid 239 . . . . 5 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ 𝑘 < 𝐾) → (𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))) → (𝑥 ∈ (𝑀...𝑁) ∧ 𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)))))
52 iffalse 4465 . . . . . . . . 9 𝑘 < 𝐾 → if(𝑘 < 𝐾, 𝑘, (𝑘 + 1)) = (𝑘 + 1))
5352fveq2d 6760 . . . . . . . 8 𝑘 < 𝐾 → (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))) = (𝐹‘(𝑘 + 1)))
5453eqeq2d 2749 . . . . . . 7 𝑘 < 𝐾 → (𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))) ↔ 𝑥 = (𝐹‘(𝑘 + 1))))
5554adantl 481 . . . . . 6 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ ¬ 𝑘 < 𝐾) → (𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))) ↔ 𝑥 = (𝐹‘(𝑘 + 1))))
56 simprr 769 . . . . . . . . 9 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → 𝑥 = (𝐹‘(𝑘 + 1)))
57 f1ocnv 6712 . . . . . . . . . . . . . . . . . . 19 (𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)) → 𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)))
5817, 57syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)))
59 f1of1 6699 . . . . . . . . . . . . . . . . . 18 (𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)) → 𝐹:(𝑀...(𝑁 + 1))–1-1→(𝑀...(𝑁 + 1)))
6058, 59syl 17 . . . . . . . . . . . . . . . . 17 (𝜑𝐹:(𝑀...(𝑁 + 1))–1-1→(𝑀...(𝑁 + 1)))
61 f1f 6654 . . . . . . . . . . . . . . . . 17 (𝐹:(𝑀...(𝑁 + 1))–1-1→(𝑀...(𝑁 + 1)) → 𝐹:(𝑀...(𝑁 + 1))⟶(𝑀...(𝑁 + 1)))
6260, 61syl 17 . . . . . . . . . . . . . . . 16 (𝜑𝐹:(𝑀...(𝑁 + 1))⟶(𝑀...(𝑁 + 1)))
63 peano2uz 12570 . . . . . . . . . . . . . . . . . 18 (𝑁 ∈ (ℤ𝑀) → (𝑁 + 1) ∈ (ℤ𝑀))
6425, 63syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑁 + 1) ∈ (ℤ𝑀))
65 eluzfz2 13193 . . . . . . . . . . . . . . . . 17 ((𝑁 + 1) ∈ (ℤ𝑀) → (𝑁 + 1) ∈ (𝑀...(𝑁 + 1)))
6664, 65syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑁 + 1) ∈ (𝑀...(𝑁 + 1)))
6762, 66ffvelrnd 6944 . . . . . . . . . . . . . . 15 (𝜑 → (𝐹‘(𝑁 + 1)) ∈ (𝑀...(𝑁 + 1)))
6834, 67eqeltrid 2843 . . . . . . . . . . . . . 14 (𝜑𝐾 ∈ (𝑀...(𝑁 + 1)))
6968elfzelzd 13186 . . . . . . . . . . . . 13 (𝜑𝐾 ∈ ℤ)
7069zred 12355 . . . . . . . . . . . 12 (𝜑𝐾 ∈ ℝ)
7170ad2antrr 722 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → 𝐾 ∈ ℝ)
7213ad2antlr 723 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → 𝑘 ∈ ℝ)
73 peano2re 11078 . . . . . . . . . . . . 13 (𝑘 ∈ ℝ → (𝑘 + 1) ∈ ℝ)
7472, 73syl 17 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → (𝑘 + 1) ∈ ℝ)
75 simprl 767 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → ¬ 𝑘 < 𝐾)
7671, 72, 75nltled 11055 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → 𝐾𝑘)
7772ltp1d 11835 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → 𝑘 < (𝑘 + 1))
7871, 72, 74, 76, 77lelttrd 11063 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → 𝐾 < (𝑘 + 1))
7971, 78ltned 11041 . . . . . . . . . 10 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → 𝐾 ≠ (𝑘 + 1))
8019ad2antrr 722 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → 𝐹:(𝑀...(𝑁 + 1))⟶(𝑀...(𝑁 + 1)))
81 fzp1elp1 13238 . . . . . . . . . . . . . . . 16 (𝑘 ∈ (𝑀...𝑁) → (𝑘 + 1) ∈ (𝑀...(𝑁 + 1)))
8281ad2antlr 723 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → (𝑘 + 1) ∈ (𝑀...(𝑁 + 1)))
8380, 82ffvelrnd 6944 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → (𝐹‘(𝑘 + 1)) ∈ (𝑀...(𝑁 + 1)))
84 elfzp1 13235 . . . . . . . . . . . . . . . 16 (𝑁 ∈ (ℤ𝑀) → ((𝐹‘(𝑘 + 1)) ∈ (𝑀...(𝑁 + 1)) ↔ ((𝐹‘(𝑘 + 1)) ∈ (𝑀...𝑁) ∨ (𝐹‘(𝑘 + 1)) = (𝑁 + 1))))
8525, 84syl 17 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐹‘(𝑘 + 1)) ∈ (𝑀...(𝑁 + 1)) ↔ ((𝐹‘(𝑘 + 1)) ∈ (𝑀...𝑁) ∨ (𝐹‘(𝑘 + 1)) = (𝑁 + 1))))
8685ad2antrr 722 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → ((𝐹‘(𝑘 + 1)) ∈ (𝑀...(𝑁 + 1)) ↔ ((𝐹‘(𝑘 + 1)) ∈ (𝑀...𝑁) ∨ (𝐹‘(𝑘 + 1)) = (𝑁 + 1))))
8783, 86mpbid 231 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → ((𝐹‘(𝑘 + 1)) ∈ (𝑀...𝑁) ∨ (𝐹‘(𝑘 + 1)) = (𝑁 + 1)))
8887ord 860 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → (¬ (𝐹‘(𝑘 + 1)) ∈ (𝑀...𝑁) → (𝐹‘(𝑘 + 1)) = (𝑁 + 1)))
8917ad2antrr 722 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → 𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)))
90 f1ocnvfv 7131 . . . . . . . . . . . . . 14 ((𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)) ∧ (𝑘 + 1) ∈ (𝑀...(𝑁 + 1))) → ((𝐹‘(𝑘 + 1)) = (𝑁 + 1) → (𝐹‘(𝑁 + 1)) = (𝑘 + 1)))
9189, 82, 90syl2anc 583 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → ((𝐹‘(𝑘 + 1)) = (𝑁 + 1) → (𝐹‘(𝑁 + 1)) = (𝑘 + 1)))
9234eqeq1i 2743 . . . . . . . . . . . . 13 (𝐾 = (𝑘 + 1) ↔ (𝐹‘(𝑁 + 1)) = (𝑘 + 1))
9391, 92syl6ibr 251 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → ((𝐹‘(𝑘 + 1)) = (𝑁 + 1) → 𝐾 = (𝑘 + 1)))
9488, 93syld 47 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → (¬ (𝐹‘(𝑘 + 1)) ∈ (𝑀...𝑁) → 𝐾 = (𝑘 + 1)))
9594necon1ad 2959 . . . . . . . . . 10 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → (𝐾 ≠ (𝑘 + 1) → (𝐹‘(𝑘 + 1)) ∈ (𝑀...𝑁)))
9679, 95mpd 15 . . . . . . . . 9 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → (𝐹‘(𝑘 + 1)) ∈ (𝑀...𝑁))
9756, 96eqeltrd 2839 . . . . . . . 8 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → 𝑥 ∈ (𝑀...𝑁))
9856eqcomd 2744 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → (𝐹‘(𝑘 + 1)) = 𝑥)
99 f1ocnvfv 7131 . . . . . . . . . . . . . . 15 ((𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)) ∧ (𝑘 + 1) ∈ (𝑀...(𝑁 + 1))) → ((𝐹‘(𝑘 + 1)) = 𝑥 → (𝐹𝑥) = (𝑘 + 1)))
10089, 82, 99syl2anc 583 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → ((𝐹‘(𝑘 + 1)) = 𝑥 → (𝐹𝑥) = (𝑘 + 1)))
10198, 100mpd 15 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → (𝐹𝑥) = (𝑘 + 1))
102101breq1d 5080 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → ((𝐹𝑥) < 𝐾 ↔ (𝑘 + 1) < 𝐾))
103 lttr 10982 . . . . . . . . . . . . . 14 ((𝑘 ∈ ℝ ∧ (𝑘 + 1) ∈ ℝ ∧ 𝐾 ∈ ℝ) → ((𝑘 < (𝑘 + 1) ∧ (𝑘 + 1) < 𝐾) → 𝑘 < 𝐾))
10472, 74, 71, 103syl3anc 1369 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → ((𝑘 < (𝑘 + 1) ∧ (𝑘 + 1) < 𝐾) → 𝑘 < 𝐾))
10577, 104mpand 691 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → ((𝑘 + 1) < 𝐾𝑘 < 𝐾))
106102, 105sylbid 239 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → ((𝐹𝑥) < 𝐾𝑘 < 𝐾))
10775, 106mtod 197 . . . . . . . . . 10 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → ¬ (𝐹𝑥) < 𝐾)
108 iffalse 4465 . . . . . . . . . 10 (¬ (𝐹𝑥) < 𝐾 → if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)) = ((𝐹𝑥) − 1))
109107, 108syl 17 . . . . . . . . 9 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)) = ((𝐹𝑥) − 1))
110101oveq1d 7270 . . . . . . . . 9 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → ((𝐹𝑥) − 1) = ((𝑘 + 1) − 1))
11172recnd 10934 . . . . . . . . . 10 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → 𝑘 ∈ ℂ)
112 ax-1cn 10860 . . . . . . . . . 10 1 ∈ ℂ
113 pncan 11157 . . . . . . . . . 10 ((𝑘 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑘 + 1) − 1) = 𝑘)
114111, 112, 113sylancl 585 . . . . . . . . 9 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → ((𝑘 + 1) − 1) = 𝑘)
115109, 110, 1143eqtrrd 2783 . . . . . . . 8 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → 𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)))
11697, 115jca 511 . . . . . . 7 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ (¬ 𝑘 < 𝐾𝑥 = (𝐹‘(𝑘 + 1)))) → (𝑥 ∈ (𝑀...𝑁) ∧ 𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1))))
117116expr 456 . . . . . 6 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ ¬ 𝑘 < 𝐾) → (𝑥 = (𝐹‘(𝑘 + 1)) → (𝑥 ∈ (𝑀...𝑁) ∧ 𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)))))
11855, 117sylbid 239 . . . . 5 (((𝜑𝑘 ∈ (𝑀...𝑁)) ∧ ¬ 𝑘 < 𝐾) → (𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))) → (𝑥 ∈ (𝑀...𝑁) ∧ 𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)))))
11951, 118pm2.61dan 809 . . . 4 ((𝜑𝑘 ∈ (𝑀...𝑁)) → (𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))) → (𝑥 ∈ (𝑀...𝑁) ∧ 𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)))))
120119expimpd 453 . . 3 (𝜑 → ((𝑘 ∈ (𝑀...𝑁) ∧ 𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1)))) → (𝑥 ∈ (𝑀...𝑁) ∧ 𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)))))
12146eqeq2d 2749 . . . . . . 7 ((𝐹𝑥) < 𝐾 → (𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)) ↔ 𝑘 = (𝐹𝑥)))
122121adantl 481 . . . . . 6 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (𝐹𝑥) < 𝐾) → (𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)) ↔ 𝑘 = (𝐹𝑥)))
123 eluzel2 12516 . . . . . . . . . . 11 (𝑁 ∈ (ℤ𝑀) → 𝑀 ∈ ℤ)
12425, 123syl 17 . . . . . . . . . 10 (𝜑𝑀 ∈ ℤ)
125124ad2antrr 722 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑀 ∈ ℤ)
126 eluzelz 12521 . . . . . . . . . . 11 (𝑁 ∈ (ℤ𝑀) → 𝑁 ∈ ℤ)
12725, 126syl 17 . . . . . . . . . 10 (𝜑𝑁 ∈ ℤ)
128127ad2antrr 722 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑁 ∈ ℤ)
129 simprr 769 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑘 = (𝐹𝑥))
13062ad2antrr 722 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝐹:(𝑀...(𝑁 + 1))⟶(𝑀...(𝑁 + 1)))
131 simplr 765 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑥 ∈ (𝑀...𝑁))
13221, 131sselid 3915 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑥 ∈ (𝑀...(𝑁 + 1)))
133130, 132ffvelrnd 6944 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → (𝐹𝑥) ∈ (𝑀...(𝑁 + 1)))
134129, 133eqeltrd 2839 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑘 ∈ (𝑀...(𝑁 + 1)))
135134elfzelzd 13186 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑘 ∈ ℤ)
136 elfzle1 13188 . . . . . . . . . 10 (𝑘 ∈ (𝑀...(𝑁 + 1)) → 𝑀𝑘)
137134, 136syl 17 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑀𝑘)
138135zred 12355 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑘 ∈ ℝ)
13970ad2antrr 722 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝐾 ∈ ℝ)
140127peano2zd 12358 . . . . . . . . . . . . 13 (𝜑 → (𝑁 + 1) ∈ ℤ)
141140zred 12355 . . . . . . . . . . . 12 (𝜑 → (𝑁 + 1) ∈ ℝ)
142141ad2antrr 722 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → (𝑁 + 1) ∈ ℝ)
143 simprl 767 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → (𝐹𝑥) < 𝐾)
144129, 143eqbrtrd 5092 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑘 < 𝐾)
145 elfzle2 13189 . . . . . . . . . . . . 13 (𝐾 ∈ (𝑀...(𝑁 + 1)) → 𝐾 ≤ (𝑁 + 1))
14668, 145syl 17 . . . . . . . . . . . 12 (𝜑𝐾 ≤ (𝑁 + 1))
147146ad2antrr 722 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝐾 ≤ (𝑁 + 1))
148138, 139, 142, 144, 147ltletrd 11065 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑘 < (𝑁 + 1))
149 zleltp1 12301 . . . . . . . . . . 11 ((𝑘 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑘𝑁𝑘 < (𝑁 + 1)))
150135, 128, 149syl2anc 583 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → (𝑘𝑁𝑘 < (𝑁 + 1)))
151148, 150mpbird 256 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑘𝑁)
152125, 128, 135, 137, 151elfzd 13176 . . . . . . . 8 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑘 ∈ (𝑀...𝑁))
153144, 8syl 17 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))) = (𝐹𝑘))
154129fveq2d 6760 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → (𝐹𝑘) = (𝐹‘(𝐹𝑥)))
15517ad2antrr 722 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)))
156 f1ocnvfv2 7130 . . . . . . . . . 10 ((𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)) ∧ 𝑥 ∈ (𝑀...(𝑁 + 1))) → (𝐹‘(𝐹𝑥)) = 𝑥)
157155, 132, 156syl2anc 583 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → (𝐹‘(𝐹𝑥)) = 𝑥)
158153, 154, 1573eqtrrd 2783 . . . . . . . 8 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → 𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))))
159152, 158jca 511 . . . . . . 7 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ((𝐹𝑥) < 𝐾𝑘 = (𝐹𝑥))) → (𝑘 ∈ (𝑀...𝑁) ∧ 𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1)))))
160159expr 456 . . . . . 6 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (𝐹𝑥) < 𝐾) → (𝑘 = (𝐹𝑥) → (𝑘 ∈ (𝑀...𝑁) ∧ 𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))))))
161122, 160sylbid 239 . . . . 5 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (𝐹𝑥) < 𝐾) → (𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)) → (𝑘 ∈ (𝑀...𝑁) ∧ 𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))))))
162108eqeq2d 2749 . . . . . . 7 (¬ (𝐹𝑥) < 𝐾 → (𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)) ↔ 𝑘 = ((𝐹𝑥) − 1)))
163162adantl 481 . . . . . 6 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ¬ (𝐹𝑥) < 𝐾) → (𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)) ↔ 𝑘 = ((𝐹𝑥) − 1)))
164124ad2antrr 722 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑀 ∈ ℤ)
165127ad2antrr 722 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑁 ∈ ℤ)
166 simprr 769 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑘 = ((𝐹𝑥) − 1))
16762ad2antrr 722 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝐹:(𝑀...(𝑁 + 1))⟶(𝑀...(𝑁 + 1)))
168 simplr 765 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑥 ∈ (𝑀...𝑁))
16921, 168sselid 3915 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑥 ∈ (𝑀...(𝑁 + 1)))
170167, 169ffvelrnd 6944 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝐹𝑥) ∈ (𝑀...(𝑁 + 1)))
171170elfzelzd 13186 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝐹𝑥) ∈ ℤ)
172 peano2zm 12293 . . . . . . . . . . 11 ((𝐹𝑥) ∈ ℤ → ((𝐹𝑥) − 1) ∈ ℤ)
173171, 172syl 17 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → ((𝐹𝑥) − 1) ∈ ℤ)
174166, 173eqeltrd 2839 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑘 ∈ ℤ)
175124zred 12355 . . . . . . . . . . 11 (𝜑𝑀 ∈ ℝ)
176175ad2antrr 722 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑀 ∈ ℝ)
17770ad2antrr 722 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝐾 ∈ ℝ)
178174zred 12355 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑘 ∈ ℝ)
179 elfzle1 13188 . . . . . . . . . . . 12 (𝐾 ∈ (𝑀...(𝑁 + 1)) → 𝑀𝐾)
18068, 179syl 17 . . . . . . . . . . 11 (𝜑𝑀𝐾)
181180ad2antrr 722 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑀𝐾)
182171zred 12355 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝐹𝑥) ∈ ℝ)
183 simprl 767 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → ¬ (𝐹𝑥) < 𝐾)
184177, 182, 183nltled 11055 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝐾 ≤ (𝐹𝑥))
185 elfzelz 13185 . . . . . . . . . . . . . . . . . . . 20 (𝑥 ∈ (𝑀...𝑁) → 𝑥 ∈ ℤ)
186185adantl 481 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (𝑀...𝑁)) → 𝑥 ∈ ℤ)
187186zred 12355 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥 ∈ (𝑀...𝑁)) → 𝑥 ∈ ℝ)
188127zred 12355 . . . . . . . . . . . . . . . . . . . 20 (𝜑𝑁 ∈ ℝ)
189188adantr 480 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (𝑀...𝑁)) → 𝑁 ∈ ℝ)
190141adantr 480 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (𝑀...𝑁)) → (𝑁 + 1) ∈ ℝ)
191 elfzle2 13189 . . . . . . . . . . . . . . . . . . . 20 (𝑥 ∈ (𝑀...𝑁) → 𝑥𝑁)
192191adantl 481 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (𝑀...𝑁)) → 𝑥𝑁)
193189ltp1d 11835 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (𝑀...𝑁)) → 𝑁 < (𝑁 + 1))
194187, 189, 190, 192, 193lelttrd 11063 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥 ∈ (𝑀...𝑁)) → 𝑥 < (𝑁 + 1))
195187, 194gtned 11040 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (𝑀...𝑁)) → (𝑁 + 1) ≠ 𝑥)
196195adantr 480 . . . . . . . . . . . . . . . 16 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝑁 + 1) ≠ 𝑥)
19760ad2antrr 722 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝐹:(𝑀...(𝑁 + 1))–1-1→(𝑀...(𝑁 + 1)))
19866ad2antrr 722 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝑁 + 1) ∈ (𝑀...(𝑁 + 1)))
199 f1fveq 7116 . . . . . . . . . . . . . . . . . 18 ((𝐹:(𝑀...(𝑁 + 1))–1-1→(𝑀...(𝑁 + 1)) ∧ ((𝑁 + 1) ∈ (𝑀...(𝑁 + 1)) ∧ 𝑥 ∈ (𝑀...(𝑁 + 1)))) → ((𝐹‘(𝑁 + 1)) = (𝐹𝑥) ↔ (𝑁 + 1) = 𝑥))
200197, 198, 169, 199syl12anc 833 . . . . . . . . . . . . . . . . 17 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → ((𝐹‘(𝑁 + 1)) = (𝐹𝑥) ↔ (𝑁 + 1) = 𝑥))
201200necon3bid 2987 . . . . . . . . . . . . . . . 16 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → ((𝐹‘(𝑁 + 1)) ≠ (𝐹𝑥) ↔ (𝑁 + 1) ≠ 𝑥))
202196, 201mpbird 256 . . . . . . . . . . . . . . 15 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝐹‘(𝑁 + 1)) ≠ (𝐹𝑥))
20334neeq1i 3007 . . . . . . . . . . . . . . 15 (𝐾 ≠ (𝐹𝑥) ↔ (𝐹‘(𝑁 + 1)) ≠ (𝐹𝑥))
204202, 203sylibr 233 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝐾 ≠ (𝐹𝑥))
205204necomd 2998 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝐹𝑥) ≠ 𝐾)
206177, 182, 184, 205leneltd 11059 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝐾 < (𝐹𝑥))
20769ad2antrr 722 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝐾 ∈ ℤ)
208 zltlem1 12303 . . . . . . . . . . . . 13 ((𝐾 ∈ ℤ ∧ (𝐹𝑥) ∈ ℤ) → (𝐾 < (𝐹𝑥) ↔ 𝐾 ≤ ((𝐹𝑥) − 1)))
209207, 171, 208syl2anc 583 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝐾 < (𝐹𝑥) ↔ 𝐾 ≤ ((𝐹𝑥) − 1)))
210206, 209mpbid 231 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝐾 ≤ ((𝐹𝑥) − 1))
211210, 166breqtrrd 5098 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝐾𝑘)
212176, 177, 178, 181, 211letrd 11062 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑀𝑘)
213 elfzle2 13189 . . . . . . . . . . . 12 ((𝐹𝑥) ∈ (𝑀...(𝑁 + 1)) → (𝐹𝑥) ≤ (𝑁 + 1))
214170, 213syl 17 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝐹𝑥) ≤ (𝑁 + 1))
215188ad2antrr 722 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑁 ∈ ℝ)
216 1re 10906 . . . . . . . . . . . . 13 1 ∈ ℝ
217 lesubadd 11377 . . . . . . . . . . . . 13 (((𝐹𝑥) ∈ ℝ ∧ 1 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (((𝐹𝑥) − 1) ≤ 𝑁 ↔ (𝐹𝑥) ≤ (𝑁 + 1)))
218216, 217mp3an2 1447 . . . . . . . . . . . 12 (((𝐹𝑥) ∈ ℝ ∧ 𝑁 ∈ ℝ) → (((𝐹𝑥) − 1) ≤ 𝑁 ↔ (𝐹𝑥) ≤ (𝑁 + 1)))
219182, 215, 218syl2anc 583 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (((𝐹𝑥) − 1) ≤ 𝑁 ↔ (𝐹𝑥) ≤ (𝑁 + 1)))
220214, 219mpbird 256 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → ((𝐹𝑥) − 1) ≤ 𝑁)
221166, 220eqbrtrd 5092 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑘𝑁)
222164, 165, 174, 212, 221elfzd 13176 . . . . . . . 8 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑘 ∈ (𝑀...𝑁))
223177, 178, 211lensymd 11056 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → ¬ 𝑘 < 𝐾)
224223, 53syl 17 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))) = (𝐹‘(𝑘 + 1)))
225166oveq1d 7270 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝑘 + 1) = (((𝐹𝑥) − 1) + 1))
226171zcnd 12356 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝐹𝑥) ∈ ℂ)
227 npcan 11160 . . . . . . . . . . . 12 (((𝐹𝑥) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐹𝑥) − 1) + 1) = (𝐹𝑥))
228226, 112, 227sylancl 585 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (((𝐹𝑥) − 1) + 1) = (𝐹𝑥))
229225, 228eqtrd 2778 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝑘 + 1) = (𝐹𝑥))
230229fveq2d 6760 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝐹‘(𝑘 + 1)) = (𝐹‘(𝐹𝑥)))
23117ad2antrr 722 . . . . . . . . . 10 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝐹:(𝑀...(𝑁 + 1))–1-1-onto→(𝑀...(𝑁 + 1)))
232231, 169, 156syl2anc 583 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝐹‘(𝐹𝑥)) = 𝑥)
233224, 230, 2323eqtrrd 2783 . . . . . . . 8 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → 𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))))
234222, 233jca 511 . . . . . . 7 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ (¬ (𝐹𝑥) < 𝐾𝑘 = ((𝐹𝑥) − 1))) → (𝑘 ∈ (𝑀...𝑁) ∧ 𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1)))))
235234expr 456 . . . . . 6 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ¬ (𝐹𝑥) < 𝐾) → (𝑘 = ((𝐹𝑥) − 1) → (𝑘 ∈ (𝑀...𝑁) ∧ 𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))))))
236163, 235sylbid 239 . . . . 5 (((𝜑𝑥 ∈ (𝑀...𝑁)) ∧ ¬ (𝐹𝑥) < 𝐾) → (𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)) → (𝑘 ∈ (𝑀...𝑁) ∧ 𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))))))
237161, 236pm2.61dan 809 . . . 4 ((𝜑𝑥 ∈ (𝑀...𝑁)) → (𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)) → (𝑘 ∈ (𝑀...𝑁) ∧ 𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))))))
238237expimpd 453 . . 3 (𝜑 → ((𝑥 ∈ (𝑀...𝑁) ∧ 𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1))) → (𝑘 ∈ (𝑀...𝑁) ∧ 𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1))))))
239120, 238impbid 211 . 2 (𝜑 → ((𝑘 ∈ (𝑀...𝑁) ∧ 𝑥 = (𝐹‘if(𝑘 < 𝐾, 𝑘, (𝑘 + 1)))) ↔ (𝑥 ∈ (𝑀...𝑁) ∧ 𝑘 = if((𝐹𝑥) < 𝐾, (𝐹𝑥), ((𝐹𝑥) − 1)))))
2401, 2, 6, 239f1od 7499 1 (𝜑𝐽:(𝑀...𝑁)–1-1-onto→(𝑀...𝑁))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 395  wo 843  w3a 1085   = wceq 1539  wcel 2108  wne 2942  Vcvv 3422  wss 3883  ifcif 4456   class class class wbr 5070  cmpt 5153  ccnv 5579  wf 6414  1-1wf1 6415  1-1-ontowf1o 6417  cfv 6418  (class class class)co 7255  cc 10800  cr 10801  1c1 10803   + caddc 10805   < clt 10940  cle 10941  cmin 11135  cz 12249  cuz 12511  ...cfz 13168
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-sep 5218  ax-nul 5225  ax-pow 5283  ax-pr 5347  ax-un 7566  ax-cnex 10858  ax-resscn 10859  ax-1cn 10860  ax-icn 10861  ax-addcl 10862  ax-addrcl 10863  ax-mulcl 10864  ax-mulrcl 10865  ax-mulcom 10866  ax-addass 10867  ax-mulass 10868  ax-distr 10869  ax-i2m1 10870  ax-1ne0 10871  ax-1rid 10872  ax-rnegex 10873  ax-rrecex 10874  ax-cnre 10875  ax-pre-lttri 10876  ax-pre-lttrn 10877  ax-pre-ltadd 10878  ax-pre-mulgt0 10879
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-nel 3049  df-ral 3068  df-rex 3069  df-reu 3070  df-rab 3072  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3902  df-nul 4254  df-if 4457  df-pw 4532  df-sn 4559  df-pr 4561  df-tp 4563  df-op 4565  df-uni 4837  df-iun 4923  df-br 5071  df-opab 5133  df-mpt 5154  df-tr 5188  df-id 5480  df-eprel 5486  df-po 5494  df-so 5495  df-fr 5535  df-we 5537  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-res 5592  df-ima 5593  df-pred 6191  df-ord 6254  df-on 6255  df-lim 6256  df-suc 6257  df-iota 6376  df-fun 6420  df-fn 6421  df-f 6422  df-f1 6423  df-fo 6424  df-f1o 6425  df-fv 6426  df-riota 7212  df-ov 7258  df-oprab 7259  df-mpo 7260  df-om 7688  df-1st 7804  df-2nd 7805  df-frecs 8068  df-wrecs 8099  df-recs 8173  df-rdg 8212  df-er 8456  df-en 8692  df-dom 8693  df-sdom 8694  df-pnf 10942  df-mnf 10943  df-xr 10944  df-ltxr 10945  df-le 10946  df-sub 11137  df-neg 11138  df-nn 11904  df-n0 12164  df-z 12250  df-uz 12512  df-fz 13169
This theorem is referenced by:  seqf1olem2  13691
  Copyright terms: Public domain W3C validator