Intuitionistic Logic Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  ILE Home  >  Th. List  >  zfz1iso GIF version

Theorem zfz1iso 10596
 Description: A finite set of integers has an order isomorphism to a one-based finite sequence. (Contributed by Jim Kingdon, 3-Sep-2022.)
Assertion
Ref Expression
zfz1iso ((𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝐴)), 𝐴))
Distinct variable group:   𝐴,𝑓

Proof of Theorem zfz1iso
Dummy variables 𝑛 𝑥 𝑎 𝑘 𝑚 𝑤 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 isfi 6655 . . . 4 (𝐴 ∈ Fin ↔ ∃𝑛 ∈ ω 𝐴𝑛)
21biimpi 119 . . 3 (𝐴 ∈ Fin → ∃𝑛 ∈ ω 𝐴𝑛)
32adantl 275 . 2 ((𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin) → ∃𝑛 ∈ ω 𝐴𝑛)
4 simprlr 527 . . . 4 ((𝑛 ∈ ω ∧ ((𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin) ∧ 𝐴𝑛)) → 𝐴 ∈ Fin)
5 breq2 3933 . . . . . . . . 9 (𝑤 = ∅ → (𝑥𝑤𝑥 ≈ ∅))
65anbi2d 459 . . . . . . . 8 (𝑤 = ∅ → (((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑤) ↔ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ ∅)))
76imbi1d 230 . . . . . . 7 (𝑤 = ∅ → ((((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑤) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)) ↔ (((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ ∅) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))))
87albidv 1796 . . . . . 6 (𝑤 = ∅ → (∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑤) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)) ↔ ∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ ∅) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))))
9 breq2 3933 . . . . . . . . 9 (𝑤 = 𝑘 → (𝑥𝑤𝑥𝑘))
109anbi2d 459 . . . . . . . 8 (𝑤 = 𝑘 → (((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑤) ↔ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑘)))
1110imbi1d 230 . . . . . . 7 (𝑤 = 𝑘 → ((((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑤) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)) ↔ (((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))))
1211albidv 1796 . . . . . 6 (𝑤 = 𝑘 → (∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑤) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)) ↔ ∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))))
13 breq2 3933 . . . . . . . . 9 (𝑤 = suc 𝑘 → (𝑥𝑤𝑥 ≈ suc 𝑘))
1413anbi2d 459 . . . . . . . 8 (𝑤 = suc 𝑘 → (((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑤) ↔ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)))
1514imbi1d 230 . . . . . . 7 (𝑤 = suc 𝑘 → ((((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑤) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)) ↔ (((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))))
1615albidv 1796 . . . . . 6 (𝑤 = suc 𝑘 → (∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑤) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)) ↔ ∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))))
17 breq2 3933 . . . . . . . . 9 (𝑤 = 𝑛 → (𝑥𝑤𝑥𝑛))
1817anbi2d 459 . . . . . . . 8 (𝑤 = 𝑛 → (((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑤) ↔ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑛)))
1918imbi1d 230 . . . . . . 7 (𝑤 = 𝑛 → ((((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑤) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)) ↔ (((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑛) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))))
2019albidv 1796 . . . . . 6 (𝑤 = 𝑛 → (∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑤) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)) ↔ ∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑛) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))))
21 iso0 5718 . . . . . . . . . 10 ∅ Isom < , < (∅, ∅)
22 en0 6689 . . . . . . . . . . . . . . . . 17 (𝑥 ≈ ∅ ↔ 𝑥 = ∅)
2322biimpi 119 . . . . . . . . . . . . . . . 16 (𝑥 ≈ ∅ → 𝑥 = ∅)
2423fveq2d 5425 . . . . . . . . . . . . . . 15 (𝑥 ≈ ∅ → (♯‘𝑥) = (♯‘∅))
25 hash0 10555 . . . . . . . . . . . . . . 15 (♯‘∅) = 0
2624, 25syl6eq 2188 . . . . . . . . . . . . . 14 (𝑥 ≈ ∅ → (♯‘𝑥) = 0)
2726oveq2d 5790 . . . . . . . . . . . . 13 (𝑥 ≈ ∅ → (1...(♯‘𝑥)) = (1...0))
28 fz10 9838 . . . . . . . . . . . . 13 (1...0) = ∅
2927, 28syl6eq 2188 . . . . . . . . . . . 12 (𝑥 ≈ ∅ → (1...(♯‘𝑥)) = ∅)
30 isoeq4 5705 . . . . . . . . . . . 12 ((1...(♯‘𝑥)) = ∅ → (∅ Isom < , < ((1...(♯‘𝑥)), 𝑥) ↔ ∅ Isom < , < (∅, 𝑥)))
3129, 30syl 14 . . . . . . . . . . 11 (𝑥 ≈ ∅ → (∅ Isom < , < ((1...(♯‘𝑥)), 𝑥) ↔ ∅ Isom < , < (∅, 𝑥)))
32 isoeq5 5706 . . . . . . . . . . . 12 (𝑥 = ∅ → (∅ Isom < , < (∅, 𝑥) ↔ ∅ Isom < , < (∅, ∅)))
3323, 32syl 14 . . . . . . . . . . 11 (𝑥 ≈ ∅ → (∅ Isom < , < (∅, 𝑥) ↔ ∅ Isom < , < (∅, ∅)))
3431, 33bitrd 187 . . . . . . . . . 10 (𝑥 ≈ ∅ → (∅ Isom < , < ((1...(♯‘𝑥)), 𝑥) ↔ ∅ Isom < , < (∅, ∅)))
3521, 34mpbiri 167 . . . . . . . . 9 (𝑥 ≈ ∅ → ∅ Isom < , < ((1...(♯‘𝑥)), 𝑥))
36 0ex 4055 . . . . . . . . . 10 ∅ ∈ V
37 isoeq1 5702 . . . . . . . . . 10 (𝑓 = ∅ → (𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥) ↔ ∅ Isom < , < ((1...(♯‘𝑥)), 𝑥)))
3836, 37spcev 2780 . . . . . . . . 9 (∅ Isom < , < ((1...(♯‘𝑥)), 𝑥) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))
3935, 38syl 14 . . . . . . . 8 (𝑥 ≈ ∅ → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))
4039adantl 275 . . . . . . 7 (((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ ∅) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))
4140ax-gen 1425 . . . . . 6 𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ ∅) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))
42 sseq1 3120 . . . . . . . . . . 11 (𝑎 = 𝑥 → (𝑎 ⊆ ℤ ↔ 𝑥 ⊆ ℤ))
43 eleq1 2202 . . . . . . . . . . 11 (𝑎 = 𝑥 → (𝑎 ∈ Fin ↔ 𝑥 ∈ Fin))
4442, 43anbi12d 464 . . . . . . . . . 10 (𝑎 = 𝑥 → ((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ↔ (𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin)))
45 breq1 3932 . . . . . . . . . 10 (𝑎 = 𝑥 → (𝑎𝑘𝑥𝑘))
4644, 45anbi12d 464 . . . . . . . . 9 (𝑎 = 𝑥 → (((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) ↔ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑘)))
47 fveq2 5421 . . . . . . . . . . . . 13 (𝑎 = 𝑥 → (♯‘𝑎) = (♯‘𝑥))
4847oveq2d 5790 . . . . . . . . . . . 12 (𝑎 = 𝑥 → (1...(♯‘𝑎)) = (1...(♯‘𝑥)))
49 isoeq4 5705 . . . . . . . . . . . 12 ((1...(♯‘𝑎)) = (1...(♯‘𝑥)) → (𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎) ↔ 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑎)))
5048, 49syl 14 . . . . . . . . . . 11 (𝑎 = 𝑥 → (𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎) ↔ 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑎)))
51 isoeq5 5706 . . . . . . . . . . 11 (𝑎 = 𝑥 → (𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑎) ↔ 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)))
5250, 51bitrd 187 . . . . . . . . . 10 (𝑎 = 𝑥 → (𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎) ↔ 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)))
5352exbidv 1797 . . . . . . . . 9 (𝑎 = 𝑥 → (∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎) ↔ ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)))
5446, 53imbi12d 233 . . . . . . . 8 (𝑎 = 𝑥 → ((((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎)) ↔ (((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))))
5554cbvalv 1889 . . . . . . 7 (∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎)) ↔ ∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)))
56 simprll 526 . . . . . . . . . . . . 13 (((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) → 𝑥 ⊆ ℤ)
57 zssq 9431 . . . . . . . . . . . . 13 ℤ ⊆ ℚ
5856, 57sstrdi 3109 . . . . . . . . . . . 12 (((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) → 𝑥 ⊆ ℚ)
59 simprlr 527 . . . . . . . . . . . 12 (((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) → 𝑥 ∈ Fin)
60 vex 2689 . . . . . . . . . . . . . . . 16 𝑘 ∈ V
61 nsuceq0g 4340 . . . . . . . . . . . . . . . 16 (𝑘 ∈ V → suc 𝑘 ≠ ∅)
6260, 61ax-mp 5 . . . . . . . . . . . . . . 15 suc 𝑘 ≠ ∅
6362neii 2310 . . . . . . . . . . . . . 14 ¬ suc 𝑘 = ∅
64 simplrr 525 . . . . . . . . . . . . . . . . . 18 ((((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) ∧ 𝑥 = ∅) → 𝑥 ≈ suc 𝑘)
6564ensymd 6677 . . . . . . . . . . . . . . . . 17 ((((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) ∧ 𝑥 = ∅) → suc 𝑘𝑥)
66 simpr 109 . . . . . . . . . . . . . . . . 17 ((((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) ∧ 𝑥 = ∅) → 𝑥 = ∅)
6765, 66breqtrd 3954 . . . . . . . . . . . . . . . 16 ((((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) ∧ 𝑥 = ∅) → suc 𝑘 ≈ ∅)
68 en0 6689 . . . . . . . . . . . . . . . 16 (suc 𝑘 ≈ ∅ ↔ suc 𝑘 = ∅)
6967, 68sylib 121 . . . . . . . . . . . . . . 15 ((((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) ∧ 𝑥 = ∅) → suc 𝑘 = ∅)
7069ex 114 . . . . . . . . . . . . . 14 (((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) → (𝑥 = ∅ → suc 𝑘 = ∅))
7163, 70mtoi 653 . . . . . . . . . . . . 13 (((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) → ¬ 𝑥 = ∅)
7271neqned 2315 . . . . . . . . . . . 12 (((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) → 𝑥 ≠ ∅)
73 fimaxq 10585 . . . . . . . . . . . 12 ((𝑥 ⊆ ℚ ∧ 𝑥 ∈ Fin ∧ 𝑥 ≠ ∅) → ∃𝑚𝑥𝑧𝑥 𝑧𝑚)
7458, 59, 72, 73syl3anc 1216 . . . . . . . . . . 11 (((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) → ∃𝑚𝑥𝑧𝑥 𝑧𝑚)
75 simplll 522 . . . . . . . . . . . 12 ((((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) ∧ (𝑚𝑥 ∧ ∀𝑧𝑥 𝑧𝑚)) → 𝑘 ∈ ω)
76 simpllr 523 . . . . . . . . . . . 12 ((((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) ∧ (𝑚𝑥 ∧ ∀𝑧𝑥 𝑧𝑚)) → ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎)))
7756adantr 274 . . . . . . . . . . . 12 ((((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) ∧ (𝑚𝑥 ∧ ∀𝑧𝑥 𝑧𝑚)) → 𝑥 ⊆ ℤ)
7859adantr 274 . . . . . . . . . . . 12 ((((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) ∧ (𝑚𝑥 ∧ ∀𝑧𝑥 𝑧𝑚)) → 𝑥 ∈ Fin)
79 simplrr 525 . . . . . . . . . . . 12 ((((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) ∧ (𝑚𝑥 ∧ ∀𝑧𝑥 𝑧𝑚)) → 𝑥 ≈ suc 𝑘)
80 simprl 520 . . . . . . . . . . . 12 ((((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) ∧ (𝑚𝑥 ∧ ∀𝑧𝑥 𝑧𝑚)) → 𝑚𝑥)
81 simprr 521 . . . . . . . . . . . 12 ((((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) ∧ (𝑚𝑥 ∧ ∀𝑧𝑥 𝑧𝑚)) → ∀𝑧𝑥 𝑧𝑚)
8275, 76, 77, 78, 79, 80, 81zfz1isolem1 10595 . . . . . . . . . . 11 ((((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) ∧ (𝑚𝑥 ∧ ∀𝑧𝑥 𝑧𝑚)) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))
8374, 82rexlimddv 2554 . . . . . . . . . 10 (((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) ∧ ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘)) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))
8483ex 114 . . . . . . . . 9 ((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) → (((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)))
8584alrimiv 1846 . . . . . . . 8 ((𝑘 ∈ ω ∧ ∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎))) → ∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)))
8685ex 114 . . . . . . 7 (𝑘 ∈ ω → (∀𝑎(((𝑎 ⊆ ℤ ∧ 𝑎 ∈ Fin) ∧ 𝑎𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑎)), 𝑎)) → ∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))))
8755, 86syl5bir 152 . . . . . 6 (𝑘 ∈ ω → (∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)) → ∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥 ≈ suc 𝑘) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥))))
888, 12, 16, 20, 41, 87finds 4514 . . . . 5 (𝑛 ∈ ω → ∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑛) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)))
8988adantr 274 . . . 4 ((𝑛 ∈ ω ∧ ((𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin) ∧ 𝐴𝑛)) → ∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑛) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)))
90 simpr 109 . . . 4 ((𝑛 ∈ ω ∧ ((𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin) ∧ 𝐴𝑛)) → ((𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin) ∧ 𝐴𝑛))
91 sseq1 3120 . . . . . . . 8 (𝑥 = 𝐴 → (𝑥 ⊆ ℤ ↔ 𝐴 ⊆ ℤ))
92 eleq1 2202 . . . . . . . 8 (𝑥 = 𝐴 → (𝑥 ∈ Fin ↔ 𝐴 ∈ Fin))
9391, 92anbi12d 464 . . . . . . 7 (𝑥 = 𝐴 → ((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ↔ (𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin)))
94 breq1 3932 . . . . . . 7 (𝑥 = 𝐴 → (𝑥𝑛𝐴𝑛))
9593, 94anbi12d 464 . . . . . 6 (𝑥 = 𝐴 → (((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑛) ↔ ((𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin) ∧ 𝐴𝑛)))
96 fveq2 5421 . . . . . . . . . 10 (𝑥 = 𝐴 → (♯‘𝑥) = (♯‘𝐴))
9796oveq2d 5790 . . . . . . . . 9 (𝑥 = 𝐴 → (1...(♯‘𝑥)) = (1...(♯‘𝐴)))
98 isoeq4 5705 . . . . . . . . 9 ((1...(♯‘𝑥)) = (1...(♯‘𝐴)) → (𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥) ↔ 𝑓 Isom < , < ((1...(♯‘𝐴)), 𝑥)))
9997, 98syl 14 . . . . . . . 8 (𝑥 = 𝐴 → (𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥) ↔ 𝑓 Isom < , < ((1...(♯‘𝐴)), 𝑥)))
100 isoeq5 5706 . . . . . . . 8 (𝑥 = 𝐴 → (𝑓 Isom < , < ((1...(♯‘𝐴)), 𝑥) ↔ 𝑓 Isom < , < ((1...(♯‘𝐴)), 𝐴)))
10199, 100bitrd 187 . . . . . . 7 (𝑥 = 𝐴 → (𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥) ↔ 𝑓 Isom < , < ((1...(♯‘𝐴)), 𝐴)))
102101exbidv 1797 . . . . . 6 (𝑥 = 𝐴 → (∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥) ↔ ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝐴)), 𝐴)))
10395, 102imbi12d 233 . . . . 5 (𝑥 = 𝐴 → ((((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑛) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)) ↔ (((𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin) ∧ 𝐴𝑛) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝐴)), 𝐴))))
104103spcgv 2773 . . . 4 (𝐴 ∈ Fin → (∀𝑥(((𝑥 ⊆ ℤ ∧ 𝑥 ∈ Fin) ∧ 𝑥𝑛) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝑥)), 𝑥)) → (((𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin) ∧ 𝐴𝑛) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝐴)), 𝐴))))
1054, 89, 90, 104syl3c 63 . . 3 ((𝑛 ∈ ω ∧ ((𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin) ∧ 𝐴𝑛)) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝐴)), 𝐴))
106105an12s 554 . 2 (((𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin) ∧ (𝑛 ∈ ω ∧ 𝐴𝑛)) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝐴)), 𝐴))
1073, 106rexlimddv 2554 1 ((𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin) → ∃𝑓 𝑓 Isom < , < ((1...(♯‘𝐴)), 𝐴))
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104  ∀wal 1329   = wceq 1331  ∃wex 1468   ∈ wcel 1480   ≠ wne 2308  ∀wral 2416  ∃wrex 2417  Vcvv 2686   ⊆ wss 3071  ∅c0 3363   class class class wbr 3929  suc csuc 4287  ωcom 4504  ‘cfv 5123   Isom wiso 5124  (class class class)co 5774   ≈ cen 6632  Fincfn 6634  0cc0 7632  1c1 7633   < clt 7812   ≤ cle 7813  ℤcz 9066  ℚcq 9423  ...cfz 9802  ♯chash 10533 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 603  ax-in2 604  ax-io 698  ax-5 1423  ax-7 1424  ax-gen 1425  ax-ie1 1469  ax-ie2 1470  ax-8 1482  ax-10 1483  ax-11 1484  ax-i12 1485  ax-bndl 1486  ax-4 1487  ax-13 1491  ax-14 1492  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-ext 2121  ax-coll 4043  ax-sep 4046  ax-nul 4054  ax-pow 4098  ax-pr 4131  ax-un 4355  ax-setind 4452  ax-iinf 4502  ax-cnex 7723  ax-resscn 7724  ax-1cn 7725  ax-1re 7726  ax-icn 7727  ax-addcl 7728  ax-addrcl 7729  ax-mulcl 7730  ax-mulrcl 7731  ax-addcom 7732  ax-mulcom 7733  ax-addass 7734  ax-mulass 7735  ax-distr 7736  ax-i2m1 7737  ax-0lt1 7738  ax-1rid 7739  ax-0id 7740  ax-rnegex 7741  ax-precex 7742  ax-cnre 7743  ax-pre-ltirr 7744  ax-pre-ltwlin 7745  ax-pre-lttrn 7746  ax-pre-apti 7747  ax-pre-ltadd 7748  ax-pre-mulgt0 7749  ax-pre-mulext 7750 This theorem depends on definitions:  df-bi 116  df-dc 820  df-3or 963  df-3an 964  df-tru 1334  df-fal 1337  df-nf 1437  df-sb 1736  df-eu 2002  df-mo 2003  df-clab 2126  df-cleq 2132  df-clel 2135  df-nfc 2270  df-ne 2309  df-nel 2404  df-ral 2421  df-rex 2422  df-reu 2423  df-rmo 2424  df-rab 2425  df-v 2688  df-sbc 2910  df-csb 3004  df-dif 3073  df-un 3075  df-in 3077  df-ss 3084  df-nul 3364  df-if 3475  df-pw 3512  df-sn 3533  df-pr 3534  df-op 3536  df-uni 3737  df-int 3772  df-iun 3815  df-br 3930  df-opab 3990  df-mpt 3991  df-tr 4027  df-id 4215  df-po 4218  df-iso 4219  df-iord 4288  df-on 4290  df-ilim 4291  df-suc 4293  df-iom 4505  df-xp 4545  df-rel 4546  df-cnv 4547  df-co 4548  df-dm 4549  df-rn 4550  df-res 4551  df-ima 4552  df-iota 5088  df-fun 5125  df-fn 5126  df-f 5127  df-f1 5128  df-fo 5129  df-f1o 5130  df-fv 5131  df-isom 5132  df-riota 5730  df-ov 5777  df-oprab 5778  df-mpo 5779  df-1st 6038  df-2nd 6039  df-recs 6202  df-irdg 6267  df-frec 6288  df-1o 6313  df-oadd 6317  df-er 6429  df-en 6635  df-dom 6636  df-fin 6637  df-pnf 7814  df-mnf 7815  df-xr 7816  df-ltxr 7817  df-le 7818  df-sub 7947  df-neg 7948  df-reap 8349  df-ap 8356  df-div 8445  df-inn 8733  df-n0 8990  df-z 9067  df-uz 9339  df-q 9424  df-rp 9454  df-fz 9803  df-ihash 10534 This theorem is referenced by:  summodclem2  11163  zsumdc  11165  prodmodclem2  11358
 Copyright terms: Public domain W3C validator