Proof of Theorem onf1oracwevd
| Step | Hyp | Ref
| Expression |
| 1 | | simpr 490 |
. . . . 5
⊢ ((𝜑 ∧ 𝐹:𝑊–1-1→On) → 𝐹:𝑊–1-1→On) |
| 2 | 1 | a1d 26 |
. . . 4
⊢ ((𝜑 ∧ 𝐹:𝑊–1-1→On) → (¬ 𝑊 ∈ V → 𝐹:𝑊–1-1→On)) |
| 3 | | onf1oracwevd.2 |
. . . . . . 7
⊢ (𝜑 → ∀𝑣(∃𝑓 𝑓:𝑣–1-1→On ∨ ∃ℎ ℎ:On–1-1→𝑣)) |
| 4 | | onprc 7792 |
. . . . . . . . . 10
⊢ ¬ On
∈ V |
| 5 | | f1dmex 7969 |
. . . . . . . . . . 11
⊢ ((ℎ:On–1-1→𝑣 ∧ 𝑣 ∈ V) → On ∈
V) |
| 6 | 5 | elvd 3456 |
. . . . . . . . . 10
⊢ (ℎ:On–1-1→𝑣 → On ∈ V) |
| 7 | 4, 6 | mto 200 |
. . . . . . . . 9
⊢ ¬
ℎ:On–1-1→𝑣 |
| 8 | 7 | nex 1832 |
. . . . . . . 8
⊢ ¬
∃ℎ ℎ:On–1-1→𝑣 |
| 9 | | orel2 904 |
. . . . . . . 8
⊢ (¬
∃ℎ ℎ:On–1-1→𝑣 → ((∃𝑓 𝑓:𝑣–1-1→On ∨ ∃ℎ ℎ:On–1-1→𝑣) → ∃𝑓 𝑓:𝑣–1-1→On)) |
| 10 | 8, 9 | ax-mp 5 |
. . . . . . 7
⊢
((∃𝑓 𝑓:𝑣–1-1→On ∨ ∃ℎ ℎ:On–1-1→𝑣) → ∃𝑓 𝑓:𝑣–1-1→On) |
| 11 | 3, 10 | sylg 1855 |
. . . . . 6
⊢ (𝜑 → ∀𝑣∃𝑓 𝑓:𝑣–1-1→On) |
| 12 | | dfac15 35802 |
. . . . . 6
⊢
(CHOICE ↔ ∀𝑣∃𝑓 𝑓:𝑣–1-1→On) |
| 13 | 11, 12 | sylibr 237 |
. . . . 5
⊢ (𝜑 →
CHOICE) |
| 14 | 13 | adantr 486 |
. . . 4
⊢ ((𝜑 ∧ 𝐹:𝑊–1-1→On) →
CHOICE) |
| 15 | | onf1oracwevd.3 |
. . . 4
⊢ 𝑊 = {𝑟 ∣ ∃𝑥 ∈ On (𝑟 ⊆ ((𝑅1‘𝑥) ×
(𝑅1‘𝑥)) ∧ 𝑟 We (𝑅1‘𝑥))} |
| 16 | | eqid 2760 |
. . . 4
⊢
{〈𝑦, 𝑧〉 ∣
((rank‘𝑦) ∈
(rank‘𝑧) ∨
((rank‘𝑦) =
(rank‘𝑧) ∧ 𝑦(◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))})𝑧))} = {〈𝑦, 𝑧〉 ∣ ((rank‘𝑦) ∈ (rank‘𝑧) ∨ ((rank‘𝑦) = (rank‘𝑧) ∧ 𝑦(◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))})𝑧))} |
| 17 | | eqid 2760 |
. . . 4
⊢ (◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))}) = (◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))}) |
| 18 | 2, 14, 15, 16, 17 | prconf1acwevd 35960 |
. . 3
⊢ ((𝜑 ∧ 𝐹:𝑊–1-1→On) → {〈𝑦, 𝑧〉 ∣ ((rank‘𝑦) ∈ (rank‘𝑧) ∨ ((rank‘𝑦) = (rank‘𝑧) ∧ 𝑦(◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))})𝑧))} We V) |
| 19 | | onf1oracwevd.4 |
. . . . . 6
⊢ 𝑅 = {〈𝑦, 𝑧〉 ∣ ((rank‘𝑦) ∈ (rank‘𝑧) ∨ ((rank‘𝑦) = (rank‘𝑧) ∧ 𝑦𝐴𝑧))} |
| 20 | | onf1oracwevd.5 |
. . . . . . . . . . 11
⊢ 𝐴 = (𝐼‘∩ {𝑤 ∈ On ∣ (𝐼‘𝑤) We (𝑅1‘suc
(rank‘𝑦))}) |
| 21 | | onf1oracwevd.6 |
. . . . . . . . . . . . 13
⊢ 𝐼 = if(𝐹:𝑊–1-1→On, ◡𝐹, 𝐻) |
| 22 | | iftrue 4487 |
. . . . . . . . . . . . 13
⊢ (𝐹:𝑊–1-1→On → if(𝐹:𝑊–1-1→On, ◡𝐹, 𝐻) = ◡𝐹) |
| 23 | 21, 22 | eqtrid 2807 |
. . . . . . . . . . . 12
⊢ (𝐹:𝑊–1-1→On → 𝐼 = ◡𝐹) |
| 24 | 23 | fveq1d 6887 |
. . . . . . . . . . . . . . 15
⊢ (𝐹:𝑊–1-1→On → (𝐼‘𝑤) = (◡𝐹‘𝑤)) |
| 25 | | eqidd 2761 |
. . . . . . . . . . . . . . 15
⊢ (𝐹:𝑊–1-1→On → (𝑅1‘suc
(rank‘𝑦)) =
(𝑅1‘suc (rank‘𝑦))) |
| 26 | 24, 25 | weeq12d 5639 |
. . . . . . . . . . . . . 14
⊢ (𝐹:𝑊–1-1→On → ((𝐼‘𝑤) We (𝑅1‘suc
(rank‘𝑦)) ↔
(◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦)))) |
| 27 | 26 | rabbidv 3419 |
. . . . . . . . . . . . 13
⊢ (𝐹:𝑊–1-1→On → {𝑤 ∈ On ∣ (𝐼‘𝑤) We (𝑅1‘suc
(rank‘𝑦))} = {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))}) |
| 28 | 27 | inteqd 4911 |
. . . . . . . . . . . 12
⊢ (𝐹:𝑊–1-1→On → ∩ {𝑤 ∈ On ∣ (𝐼‘𝑤) We (𝑅1‘suc
(rank‘𝑦))} = ∩ {𝑤
∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))}) |
| 29 | 23, 28 | fveq12d 6892 |
. . . . . . . . . . 11
⊢ (𝐹:𝑊–1-1→On → (𝐼‘∩ {𝑤 ∈ On ∣ (𝐼‘𝑤) We (𝑅1‘suc
(rank‘𝑦))}) = (◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))})) |
| 30 | 20, 29 | eqtrid 2807 |
. . . . . . . . . 10
⊢ (𝐹:𝑊–1-1→On → 𝐴 = (◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))})) |
| 31 | 30 | breqd 5113 |
. . . . . . . . 9
⊢ (𝐹:𝑊–1-1→On → (𝑦𝐴𝑧 ↔ 𝑦(◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))})𝑧)) |
| 32 | 31 | anbi2d 642 |
. . . . . . . 8
⊢ (𝐹:𝑊–1-1→On → (((rank‘𝑦) = (rank‘𝑧) ∧ 𝑦𝐴𝑧) ↔ ((rank‘𝑦) = (rank‘𝑧) ∧ 𝑦(◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))})𝑧))) |
| 33 | 32 | orbi2d 929 |
. . . . . . 7
⊢ (𝐹:𝑊–1-1→On → (((rank‘𝑦) ∈ (rank‘𝑧) ∨ ((rank‘𝑦) = (rank‘𝑧) ∧ 𝑦𝐴𝑧)) ↔ ((rank‘𝑦) ∈ (rank‘𝑧) ∨ ((rank‘𝑦) = (rank‘𝑧) ∧ 𝑦(◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))})𝑧)))) |
| 34 | 33 | opabbidv 5170 |
. . . . . 6
⊢ (𝐹:𝑊–1-1→On → {〈𝑦, 𝑧〉 ∣ ((rank‘𝑦) ∈ (rank‘𝑧) ∨ ((rank‘𝑦) = (rank‘𝑧) ∧ 𝑦𝐴𝑧))} = {〈𝑦, 𝑧〉 ∣ ((rank‘𝑦) ∈ (rank‘𝑧) ∨ ((rank‘𝑦) = (rank‘𝑧) ∧ 𝑦(◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))})𝑧))}) |
| 35 | 19, 34 | eqtrid 2807 |
. . . . 5
⊢ (𝐹:𝑊–1-1→On → 𝑅 = {〈𝑦, 𝑧〉 ∣ ((rank‘𝑦) ∈ (rank‘𝑧) ∨ ((rank‘𝑦) = (rank‘𝑧) ∧ 𝑦(◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))})𝑧))}) |
| 36 | | eqidd 2761 |
. . . . 5
⊢ (𝐹:𝑊–1-1→On → V = V) |
| 37 | 35, 36 | weeq12d 5639 |
. . . 4
⊢ (𝐹:𝑊–1-1→On → (𝑅 We V ↔ {〈𝑦, 𝑧〉 ∣ ((rank‘𝑦) ∈ (rank‘𝑧) ∨ ((rank‘𝑦) = (rank‘𝑧) ∧ 𝑦(◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))})𝑧))} We V)) |
| 38 | 37 | adantl 487 |
. . 3
⊢ ((𝜑 ∧ 𝐹:𝑊–1-1→On) → (𝑅 We V ↔ {〈𝑦, 𝑧〉 ∣ ((rank‘𝑦) ∈ (rank‘𝑧) ∨ ((rank‘𝑦) = (rank‘𝑧) ∧ 𝑦(◡𝐹‘∩ {𝑤 ∈ On ∣ (◡𝐹‘𝑤) We (𝑅1‘suc
(rank‘𝑦))})𝑧))} We V)) |
| 39 | 18, 38 | mpbird 260 |
. 2
⊢ ((𝜑 ∧ 𝐹:𝑊–1-1→On) → 𝑅 We V) |
| 40 | | onf1oracwevd.1 |
. . . . . 6
⊢ (𝜑 → (𝐹:𝑊–1-1→On ∨ 𝐻:On–1-1→𝑊)) |
| 41 | 40 | orcanai 1018 |
. . . . 5
⊢ ((𝜑 ∧ ¬ 𝐹:𝑊–1-1→On) → 𝐻:On–1-1→𝑊) |
| 42 | | iffalse 4490 |
. . . . . . . 8
⊢ (¬
𝐹:𝑊–1-1→On → if(𝐹:𝑊–1-1→On, ◡𝐹, 𝐻) = 𝐻) |
| 43 | 21, 42 | eqtrid 2807 |
. . . . . . 7
⊢ (¬
𝐹:𝑊–1-1→On → 𝐼 = 𝐻) |
| 44 | | f1eq1 6773 |
. . . . . . 7
⊢ (𝐼 = 𝐻 → (𝐼:On–1-1→𝑊 ↔ 𝐻:On–1-1→𝑊)) |
| 45 | 43, 44 | syl 18 |
. . . . . 6
⊢ (¬
𝐹:𝑊–1-1→On → (𝐼:On–1-1→𝑊 ↔ 𝐻:On–1-1→𝑊)) |
| 46 | 45 | adantl 487 |
. . . . 5
⊢ ((𝜑 ∧ ¬ 𝐹:𝑊–1-1→On) → (𝐼:On–1-1→𝑊 ↔ 𝐻:On–1-1→𝑊)) |
| 47 | 41, 46 | mpbird 260 |
. . . 4
⊢ ((𝜑 ∧ ¬ 𝐹:𝑊–1-1→On) → 𝐼:On–1-1→𝑊) |
| 48 | 47 | a1d 26 |
. . 3
⊢ ((𝜑 ∧ ¬ 𝐹:𝑊–1-1→On) → (¬ 𝑊 ∈ V → 𝐼:On–1-1→𝑊)) |
| 49 | 13 | adantr 486 |
. . 3
⊢ ((𝜑 ∧ ¬ 𝐹:𝑊–1-1→On) →
CHOICE) |
| 50 | 48, 49, 15, 19, 20 | onprcf1acwevd 35959 |
. 2
⊢ ((𝜑 ∧ ¬ 𝐹:𝑊–1-1→On) → 𝑅 We V) |
| 51 | 39, 50 | pm2.61dan 825 |
1
⊢ (𝜑 → 𝑅 We V) |