Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  ttac Structured version   Visualization version   GIF version

Theorem ttac 41336
Description: Tarski's theorem about choice: infxpidm 10495 is equivalent to ax-ac 10392. (Contributed by Stefan O'Rear, 4-Nov-2014.) (Proof shortened by Stefan O'Rear, 10-Jul-2015.)
Assertion
Ref Expression
ttac (CHOICE ↔ ∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐))

Proof of Theorem ttac
Dummy variable 𝑎 is distinct from all other variables.
StepHypRef Expression
1 dfac10 10070 . 2 (CHOICE ↔ dom card = V)
2 vex 3448 . . . . . 6 𝑐 ∈ V
3 eleq2 2826 . . . . . 6 (dom card = V → (𝑐 ∈ dom card ↔ 𝑐 ∈ V))
42, 3mpbiri 257 . . . . 5 (dom card = V → 𝑐 ∈ dom card)
5 infxpidm2 9950 . . . . . 6 ((𝑐 ∈ dom card ∧ ω ≼ 𝑐) → (𝑐 × 𝑐) ≈ 𝑐)
65ex 413 . . . . 5 (𝑐 ∈ dom card → (ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐))
74, 6syl 17 . . . 4 (dom card = V → (ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐))
87alrimiv 1930 . . 3 (dom card = V → ∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐))
9 finnum 9881 . . . . . . 7 (𝑎 ∈ Fin → 𝑎 ∈ dom card)
109adantl 482 . . . . . 6 ((∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐) ∧ 𝑎 ∈ Fin) → 𝑎 ∈ dom card)
11 harcl 9492 . . . . . . . . 9 (har‘𝑎) ∈ On
12 onenon 9882 . . . . . . . . 9 ((har‘𝑎) ∈ On → (har‘𝑎) ∈ dom card)
1311, 12ax-mp 5 . . . . . . . 8 (har‘𝑎) ∈ dom card
14 fvex 6853 . . . . . . . . . . . . . 14 (har‘𝑎) ∈ V
15 vex 3448 . . . . . . . . . . . . . 14 𝑎 ∈ V
1614, 15unex 7677 . . . . . . . . . . . . 13 ((har‘𝑎) ∪ 𝑎) ∈ V
17 harinf 41334 . . . . . . . . . . . . . . 15 ((𝑎 ∈ V ∧ ¬ 𝑎 ∈ Fin) → ω ⊆ (har‘𝑎))
1815, 17mpan 688 . . . . . . . . . . . . . 14 𝑎 ∈ Fin → ω ⊆ (har‘𝑎))
19 ssun1 4131 . . . . . . . . . . . . . 14 (har‘𝑎) ⊆ ((har‘𝑎) ∪ 𝑎)
2018, 19sstrdi 3955 . . . . . . . . . . . . 13 𝑎 ∈ Fin → ω ⊆ ((har‘𝑎) ∪ 𝑎))
21 ssdomg 8937 . . . . . . . . . . . . 13 (((har‘𝑎) ∪ 𝑎) ∈ V → (ω ⊆ ((har‘𝑎) ∪ 𝑎) → ω ≼ ((har‘𝑎) ∪ 𝑎)))
2216, 20, 21mpsyl 68 . . . . . . . . . . . 12 𝑎 ∈ Fin → ω ≼ ((har‘𝑎) ∪ 𝑎))
23 breq2 5108 . . . . . . . . . . . . . 14 (𝑐 = ((har‘𝑎) ∪ 𝑎) → (ω ≼ 𝑐 ↔ ω ≼ ((har‘𝑎) ∪ 𝑎)))
24 xpeq12 5657 . . . . . . . . . . . . . . . 16 ((𝑐 = ((har‘𝑎) ∪ 𝑎) ∧ 𝑐 = ((har‘𝑎) ∪ 𝑎)) → (𝑐 × 𝑐) = (((har‘𝑎) ∪ 𝑎) × ((har‘𝑎) ∪ 𝑎)))
2524anidms 567 . . . . . . . . . . . . . . 15 (𝑐 = ((har‘𝑎) ∪ 𝑎) → (𝑐 × 𝑐) = (((har‘𝑎) ∪ 𝑎) × ((har‘𝑎) ∪ 𝑎)))
26 id 22 . . . . . . . . . . . . . . 15 (𝑐 = ((har‘𝑎) ∪ 𝑎) → 𝑐 = ((har‘𝑎) ∪ 𝑎))
2725, 26breq12d 5117 . . . . . . . . . . . . . 14 (𝑐 = ((har‘𝑎) ∪ 𝑎) → ((𝑐 × 𝑐) ≈ 𝑐 ↔ (((har‘𝑎) ∪ 𝑎) × ((har‘𝑎) ∪ 𝑎)) ≈ ((har‘𝑎) ∪ 𝑎)))
2823, 27imbi12d 344 . . . . . . . . . . . . 13 (𝑐 = ((har‘𝑎) ∪ 𝑎) → ((ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐) ↔ (ω ≼ ((har‘𝑎) ∪ 𝑎) → (((har‘𝑎) ∪ 𝑎) × ((har‘𝑎) ∪ 𝑎)) ≈ ((har‘𝑎) ∪ 𝑎))))
2916, 28spcv 3563 . . . . . . . . . . . 12 (∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐) → (ω ≼ ((har‘𝑎) ∪ 𝑎) → (((har‘𝑎) ∪ 𝑎) × ((har‘𝑎) ∪ 𝑎)) ≈ ((har‘𝑎) ∪ 𝑎)))
3022, 29syl5 34 . . . . . . . . . . 11 (∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐) → (¬ 𝑎 ∈ Fin → (((har‘𝑎) ∪ 𝑎) × ((har‘𝑎) ∪ 𝑎)) ≈ ((har‘𝑎) ∪ 𝑎)))
3130imp 407 . . . . . . . . . 10 ((∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐) ∧ ¬ 𝑎 ∈ Fin) → (((har‘𝑎) ∪ 𝑎) × ((har‘𝑎) ∪ 𝑎)) ≈ ((har‘𝑎) ∪ 𝑎))
32 harndom 9495 . . . . . . . . . . . 12 ¬ (har‘𝑎) ≼ 𝑎
33 ssdomg 8937 . . . . . . . . . . . . . 14 (((har‘𝑎) ∪ 𝑎) ∈ V → ((har‘𝑎) ⊆ ((har‘𝑎) ∪ 𝑎) → (har‘𝑎) ≼ ((har‘𝑎) ∪ 𝑎)))
3416, 19, 33mp2 9 . . . . . . . . . . . . 13 (har‘𝑎) ≼ ((har‘𝑎) ∪ 𝑎)
35 domtr 8944 . . . . . . . . . . . . 13 (((har‘𝑎) ≼ ((har‘𝑎) ∪ 𝑎) ∧ ((har‘𝑎) ∪ 𝑎) ≼ 𝑎) → (har‘𝑎) ≼ 𝑎)
3634, 35mpan 688 . . . . . . . . . . . 12 (((har‘𝑎) ∪ 𝑎) ≼ 𝑎 → (har‘𝑎) ≼ 𝑎)
3732, 36mto 196 . . . . . . . . . . 11 ¬ ((har‘𝑎) ∪ 𝑎) ≼ 𝑎
38 unxpwdom2 9521 . . . . . . . . . . 11 ((((har‘𝑎) ∪ 𝑎) × ((har‘𝑎) ∪ 𝑎)) ≈ ((har‘𝑎) ∪ 𝑎) → (((har‘𝑎) ∪ 𝑎) ≼* (har‘𝑎) ∨ ((har‘𝑎) ∪ 𝑎) ≼ 𝑎))
39 orel2 889 . . . . . . . . . . 11 (¬ ((har‘𝑎) ∪ 𝑎) ≼ 𝑎 → ((((har‘𝑎) ∪ 𝑎) ≼* (har‘𝑎) ∨ ((har‘𝑎) ∪ 𝑎) ≼ 𝑎) → ((har‘𝑎) ∪ 𝑎) ≼* (har‘𝑎)))
4037, 38, 39mpsyl 68 . . . . . . . . . 10 ((((har‘𝑎) ∪ 𝑎) × ((har‘𝑎) ∪ 𝑎)) ≈ ((har‘𝑎) ∪ 𝑎) → ((har‘𝑎) ∪ 𝑎) ≼* (har‘𝑎))
4131, 40syl 17 . . . . . . . . 9 ((∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐) ∧ ¬ 𝑎 ∈ Fin) → ((har‘𝑎) ∪ 𝑎) ≼* (har‘𝑎))
42 wdomnumr 9997 . . . . . . . . . 10 ((har‘𝑎) ∈ dom card → (((har‘𝑎) ∪ 𝑎) ≼* (har‘𝑎) ↔ ((har‘𝑎) ∪ 𝑎) ≼ (har‘𝑎)))
4313, 42ax-mp 5 . . . . . . . . 9 (((har‘𝑎) ∪ 𝑎) ≼* (har‘𝑎) ↔ ((har‘𝑎) ∪ 𝑎) ≼ (har‘𝑎))
4441, 43sylib 217 . . . . . . . 8 ((∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐) ∧ ¬ 𝑎 ∈ Fin) → ((har‘𝑎) ∪ 𝑎) ≼ (har‘𝑎))
45 numdom 9971 . . . . . . . 8 (((har‘𝑎) ∈ dom card ∧ ((har‘𝑎) ∪ 𝑎) ≼ (har‘𝑎)) → ((har‘𝑎) ∪ 𝑎) ∈ dom card)
4613, 44, 45sylancr 587 . . . . . . 7 ((∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐) ∧ ¬ 𝑎 ∈ Fin) → ((har‘𝑎) ∪ 𝑎) ∈ dom card)
47 ssun2 4132 . . . . . . 7 𝑎 ⊆ ((har‘𝑎) ∪ 𝑎)
48 ssnum 9972 . . . . . . 7 ((((har‘𝑎) ∪ 𝑎) ∈ dom card ∧ 𝑎 ⊆ ((har‘𝑎) ∪ 𝑎)) → 𝑎 ∈ dom card)
4946, 47, 48sylancl 586 . . . . . 6 ((∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐) ∧ ¬ 𝑎 ∈ Fin) → 𝑎 ∈ dom card)
5010, 49pm2.61dan 811 . . . . 5 (∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐) → 𝑎 ∈ dom card)
5150alrimiv 1930 . . . 4 (∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐) → ∀𝑎 𝑎 ∈ dom card)
52 eqv 3453 . . . 4 (dom card = V ↔ ∀𝑎 𝑎 ∈ dom card)
5351, 52sylibr 233 . . 3 (∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐) → dom card = V)
548, 53impbii 208 . 2 (dom card = V ↔ ∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐))
551, 54bitri 274 1 (CHOICE ↔ ∀𝑐(ω ≼ 𝑐 → (𝑐 × 𝑐) ≈ 𝑐))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  wo 845  wal 1539   = wceq 1541  wcel 2106  Vcvv 3444  cun 3907  wss 3909   class class class wbr 5104   × cxp 5630  dom cdm 5632  Oncon0 6316  cfv 6494  ωcom 7799  cen 8877  cdom 8878  Fincfn 8880  harchar 9489  * cwdom 9497  cardccrd 9868  CHOICEwac 10048
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5241  ax-sep 5255  ax-nul 5262  ax-pow 5319  ax-pr 5383  ax-un 7669  ax-inf2 9574
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2888  df-ne 2943  df-ral 3064  df-rex 3073  df-rmo 3352  df-reu 3353  df-rab 3407  df-v 3446  df-sbc 3739  df-csb 3855  df-dif 3912  df-un 3914  df-in 3916  df-ss 3926  df-pss 3928  df-nul 4282  df-if 4486  df-pw 4561  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4865  df-int 4907  df-iun 4955  df-br 5105  df-opab 5167  df-mpt 5188  df-tr 5222  df-id 5530  df-eprel 5536  df-po 5544  df-so 5545  df-fr 5587  df-se 5588  df-we 5589  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-pred 6252  df-ord 6319  df-on 6320  df-lim 6321  df-suc 6322  df-iota 6446  df-fun 6496  df-fn 6497  df-f 6498  df-f1 6499  df-fo 6500  df-f1o 6501  df-fv 6502  df-isom 6503  df-riota 7310  df-ov 7357  df-oprab 7358  df-mpo 7359  df-om 7800  df-1st 7918  df-2nd 7919  df-frecs 8209  df-wrecs 8240  df-recs 8314  df-rdg 8353  df-1o 8409  df-er 8645  df-map 8764  df-en 8881  df-dom 8882  df-sdom 8883  df-fin 8884  df-oi 9443  df-har 9490  df-wdom 9498  df-card 9872  df-acn 9875  df-ac 10049
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator