Proof of Theorem ennnfonelemg
Step | Hyp | Ref
| Expression |
1 | | ennnfonelemh.g |
. . . 4
⊢ 𝐺 = (𝑥 ∈ (𝐴 ↑pm ω), 𝑦 ∈ ω ↦
if((𝐹‘𝑦) ∈ (𝐹 “ 𝑦), 𝑥, (𝑥 ∪ {〈dom 𝑥, (𝐹‘𝑦)〉}))) |
2 | 1 | a1i 9 |
. . 3
⊢ ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) →
𝐺 = (𝑥 ∈ (𝐴 ↑pm ω), 𝑦 ∈ ω ↦
if((𝐹‘𝑦) ∈ (𝐹 “ 𝑦), 𝑥, (𝑥 ∪ {〈dom 𝑥, (𝐹‘𝑦)〉})))) |
3 | | simpr 109 |
. . . . . . 7
⊢ ((𝑥 = 𝑓 ∧ 𝑦 = 𝑗) → 𝑦 = 𝑗) |
4 | 3 | fveq2d 5500 |
. . . . . 6
⊢ ((𝑥 = 𝑓 ∧ 𝑦 = 𝑗) → (𝐹‘𝑦) = (𝐹‘𝑗)) |
5 | 3 | imaeq2d 4953 |
. . . . . 6
⊢ ((𝑥 = 𝑓 ∧ 𝑦 = 𝑗) → (𝐹 “ 𝑦) = (𝐹 “ 𝑗)) |
6 | 4, 5 | eleq12d 2241 |
. . . . 5
⊢ ((𝑥 = 𝑓 ∧ 𝑦 = 𝑗) → ((𝐹‘𝑦) ∈ (𝐹 “ 𝑦) ↔ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗))) |
7 | | simpl 108 |
. . . . 5
⊢ ((𝑥 = 𝑓 ∧ 𝑦 = 𝑗) → 𝑥 = 𝑓) |
8 | 7 | dmeqd 4813 |
. . . . . . . 8
⊢ ((𝑥 = 𝑓 ∧ 𝑦 = 𝑗) → dom 𝑥 = dom 𝑓) |
9 | 8, 4 | opeq12d 3773 |
. . . . . . 7
⊢ ((𝑥 = 𝑓 ∧ 𝑦 = 𝑗) → 〈dom 𝑥, (𝐹‘𝑦)〉 = 〈dom 𝑓, (𝐹‘𝑗)〉) |
10 | 9 | sneqd 3596 |
. . . . . 6
⊢ ((𝑥 = 𝑓 ∧ 𝑦 = 𝑗) → {〈dom 𝑥, (𝐹‘𝑦)〉} = {〈dom 𝑓, (𝐹‘𝑗)〉}) |
11 | 7, 10 | uneq12d 3282 |
. . . . 5
⊢ ((𝑥 = 𝑓 ∧ 𝑦 = 𝑗) → (𝑥 ∪ {〈dom 𝑥, (𝐹‘𝑦)〉}) = (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉})) |
12 | 6, 7, 11 | ifbieq12d 3552 |
. . . 4
⊢ ((𝑥 = 𝑓 ∧ 𝑦 = 𝑗) → if((𝐹‘𝑦) ∈ (𝐹 “ 𝑦), 𝑥, (𝑥 ∪ {〈dom 𝑥, (𝐹‘𝑦)〉})) = if((𝐹‘𝑗) ∈ (𝐹 “ 𝑗), 𝑓, (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉}))) |
13 | 12 | adantl 275 |
. . 3
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
(𝑥 = 𝑓 ∧ 𝑦 = 𝑗)) → if((𝐹‘𝑦) ∈ (𝐹 “ 𝑦), 𝑥, (𝑥 ∪ {〈dom 𝑥, (𝐹‘𝑦)〉})) = if((𝐹‘𝑗) ∈ (𝐹 “ 𝑗), 𝑓, (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉}))) |
14 | | ssrab2 3232 |
. . . 4
⊢ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω}
⊆ (𝐴
↑pm ω) |
15 | | simprl 526 |
. . . 4
⊢ ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) →
𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈
ω}) |
16 | 14, 15 | sselid 3145 |
. . 3
⊢ ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) →
𝑓 ∈ (𝐴 ↑pm
ω)) |
17 | | simprr 527 |
. . 3
⊢ ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) →
𝑗 ∈
ω) |
18 | | simplrl 530 |
. . . 4
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
(𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → 𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈
ω}) |
19 | | dmeq 4811 |
. . . . . 6
⊢ (𝑔 = (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉}) → dom 𝑔 = dom (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉})) |
20 | 19 | eleq1d 2239 |
. . . . 5
⊢ (𝑔 = (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉}) → (dom 𝑔 ∈ ω ↔ dom (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉}) ∈ ω)) |
21 | | omex 4577 |
. . . . . . . 8
⊢ ω
∈ V |
22 | | ennnfonelemh.f |
. . . . . . . 8
⊢ (𝜑 → 𝐹:ω–onto→𝐴) |
23 | | focdmex 10721 |
. . . . . . . 8
⊢ ((ω
∈ V ∧ 𝐹:ω–onto→𝐴) → 𝐴 ∈ V) |
24 | 21, 22, 23 | sylancr 412 |
. . . . . . 7
⊢ (𝜑 → 𝐴 ∈ V) |
25 | 24 | ad2antrr 485 |
. . . . . 6
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → 𝐴 ∈ V) |
26 | 21 | a1i 9 |
. . . . . 6
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → ω ∈ V) |
27 | | simplrl 530 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → 𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈
ω}) |
28 | | elrabi 2883 |
. . . . . . . . . 10
⊢ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω}
→ 𝑓 ∈ (𝐴 ↑pm
ω)) |
29 | | elpmi 6645 |
. . . . . . . . . 10
⊢ (𝑓 ∈ (𝐴 ↑pm ω) →
(𝑓:dom 𝑓⟶𝐴 ∧ dom 𝑓 ⊆ ω)) |
30 | 28, 29 | syl 14 |
. . . . . . . . 9
⊢ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω}
→ (𝑓:dom 𝑓⟶𝐴 ∧ dom 𝑓 ⊆ ω)) |
31 | 30 | simpld 111 |
. . . . . . . 8
⊢ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω}
→ 𝑓:dom 𝑓⟶𝐴) |
32 | 27, 31 | syl 14 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → 𝑓:dom 𝑓⟶𝐴) |
33 | | dmeq 4811 |
. . . . . . . . . . 11
⊢ (𝑔 = 𝑓 → dom 𝑔 = dom 𝑓) |
34 | 33 | eleq1d 2239 |
. . . . . . . . . 10
⊢ (𝑔 = 𝑓 → (dom 𝑔 ∈ ω ↔ dom 𝑓 ∈ ω)) |
35 | 34 | elrab 2886 |
. . . . . . . . 9
⊢ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω}
↔ (𝑓 ∈ (𝐴 ↑pm
ω) ∧ dom 𝑓 ∈
ω)) |
36 | 35 | simprbi 273 |
. . . . . . . 8
⊢ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω}
→ dom 𝑓 ∈
ω) |
37 | 27, 36 | syl 14 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → dom 𝑓 ∈ ω) |
38 | | nnord 4596 |
. . . . . . . . 9
⊢ (dom
𝑓 ∈ ω → Ord
dom 𝑓) |
39 | 37, 38 | syl 14 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → Ord dom 𝑓) |
40 | | ordirr 4526 |
. . . . . . . 8
⊢ (Ord dom
𝑓 → ¬ dom 𝑓 ∈ dom 𝑓) |
41 | 39, 40 | syl 14 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → ¬ dom 𝑓 ∈ dom 𝑓) |
42 | 22 | adantr 274 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) →
𝐹:ω–onto→𝐴) |
43 | | fof 5420 |
. . . . . . . . . 10
⊢ (𝐹:ω–onto→𝐴 → 𝐹:ω⟶𝐴) |
44 | 42, 43 | syl 14 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) →
𝐹:ω⟶𝐴) |
45 | 44, 17 | ffvelrnd 5632 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) →
(𝐹‘𝑗) ∈ 𝐴) |
46 | 45 | adantr 274 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → (𝐹‘𝑗) ∈ 𝐴) |
47 | | fsnunf 5696 |
. . . . . . 7
⊢ ((𝑓:dom 𝑓⟶𝐴 ∧ (dom 𝑓 ∈ ω ∧ ¬ dom 𝑓 ∈ dom 𝑓) ∧ (𝐹‘𝑗) ∈ 𝐴) → (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉}):(dom 𝑓 ∪ {dom 𝑓})⟶𝐴) |
48 | 32, 37, 41, 46, 47 | syl121anc 1238 |
. . . . . 6
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉}):(dom 𝑓 ∪ {dom 𝑓})⟶𝐴) |
49 | | df-suc 4356 |
. . . . . . . . 9
⊢ suc dom
𝑓 = (dom 𝑓 ∪ {dom 𝑓}) |
50 | | peano2 4579 |
. . . . . . . . 9
⊢ (dom
𝑓 ∈ ω → suc
dom 𝑓 ∈
ω) |
51 | 49, 50 | eqeltrrid 2258 |
. . . . . . . 8
⊢ (dom
𝑓 ∈ ω →
(dom 𝑓 ∪ {dom 𝑓}) ∈
ω) |
52 | 37, 51 | syl 14 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → (dom 𝑓 ∪ {dom 𝑓}) ∈ ω) |
53 | | omelon 4593 |
. . . . . . . 8
⊢ ω
∈ On |
54 | 53 | onelssi 4414 |
. . . . . . 7
⊢ ((dom
𝑓 ∪ {dom 𝑓}) ∈ ω → (dom
𝑓 ∪ {dom 𝑓}) ⊆
ω) |
55 | 52, 54 | syl 14 |
. . . . . 6
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → (dom 𝑓 ∪ {dom 𝑓}) ⊆ ω) |
56 | | elpm2r 6644 |
. . . . . 6
⊢ (((𝐴 ∈ V ∧ ω ∈
V) ∧ ((𝑓 ∪
{〈dom 𝑓, (𝐹‘𝑗)〉}):(dom 𝑓 ∪ {dom 𝑓})⟶𝐴 ∧ (dom 𝑓 ∪ {dom 𝑓}) ⊆ ω)) → (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉}) ∈ (𝐴 ↑pm
ω)) |
57 | 25, 26, 48, 55, 56 | syl22anc 1234 |
. . . . 5
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉}) ∈ (𝐴 ↑pm
ω)) |
58 | 48 | fdmd 5354 |
. . . . . 6
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → dom (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉}) = (dom 𝑓 ∪ {dom 𝑓})) |
59 | 58, 52 | eqeltrd 2247 |
. . . . 5
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → dom (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉}) ∈ ω) |
60 | 20, 57, 59 | elrabd 2888 |
. . . 4
⊢ (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) ∧
¬ (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) → (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉}) ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈
ω}) |
61 | | ennnfonelemh.dceq |
. . . . . 6
⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 DECID 𝑥 = 𝑦) |
62 | 61 | adantr 274 |
. . . . 5
⊢ ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) →
∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 DECID 𝑥 = 𝑦) |
63 | 62, 42, 17 | ennnfonelemdc 12354 |
. . . 4
⊢ ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) →
DECID (𝐹‘𝑗) ∈ (𝐹 “ 𝑗)) |
64 | 18, 60, 63 | ifcldadc 3555 |
. . 3
⊢ ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) →
if((𝐹‘𝑗) ∈ (𝐹 “ 𝑗), 𝑓, (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉})) ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈
ω}) |
65 | 2, 13, 16, 17, 64 | ovmpod 5980 |
. 2
⊢ ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) →
(𝑓𝐺𝑗) = if((𝐹‘𝑗) ∈ (𝐹 “ 𝑗), 𝑓, (𝑓 ∪ {〈dom 𝑓, (𝐹‘𝑗)〉}))) |
66 | 65, 64 | eqeltrd 2247 |
1
⊢ ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈ ω} ∧
𝑗 ∈ ω)) →
(𝑓𝐺𝑗) ∈ {𝑔 ∈ (𝐴 ↑pm ω) ∣
dom 𝑔 ∈
ω}) |