Metamath Proof Explorer


Theorem fineqvac

Description: If all sets are finite, then the Axiom of Choice becomes redundant. For a shorter proof using ax-rep and ax-pow , see fineqvacALT . (Contributed by BTernaryTau, 21-Sep-2024)

Ref Expression
Assertion fineqvac ⊢ Fin = V → CHOICE

Proof

Step Hyp Ref Expression
1 vex ⊢ w ∈ V
2 eleq2w2 ⊢ Fin = V → w ∈ Fin ↔ w ∈ V
3 1 2 mpbiri ⊢ Fin = V → w ∈ Fin
4 sseq2 ⊢ x = ∅ → f ⊆ x ↔ f ⊆ ∅
5 dmeq ⊢ x = ∅ → dom ⁡ x = dom ⁡ ∅
6 5 fneq2d ⊢ x = ∅ → f Fn dom ⁡ x ↔ f Fn dom ⁡ ∅
7 4 6 anbi12d ⊢ x = ∅ → f ⊆ x ∧ f Fn dom ⁡ x ↔ f ⊆ ∅ ∧ f Fn dom ⁡ ∅
8 7 exbidv ⊢ x = ∅ → ∃ f f ⊆ x ∧ f Fn dom ⁡ x ↔ ∃ f f ⊆ ∅ ∧ f Fn dom ⁡ ∅
9 sseq2 ⊢ x = y → f ⊆ x ↔ f ⊆ y
10 dmeq ⊢ x = y → dom ⁡ x = dom ⁡ y
11 10 fneq2d ⊢ x = y → f Fn dom ⁡ x ↔ f Fn dom ⁡ y
12 9 11 anbi12d ⊢ x = y → f ⊆ x ∧ f Fn dom ⁡ x ↔ f ⊆ y ∧ f Fn dom ⁡ y
13 12 exbidv ⊢ x = y → ∃ f f ⊆ x ∧ f Fn dom ⁡ x ↔ ∃ f f ⊆ y ∧ f Fn dom ⁡ y
14 sseq2 ⊢ x = y ∪ z → f ⊆ x ↔ f ⊆ y ∪ z
15 dmeq ⊢ x = y ∪ z → dom ⁡ x = dom ⁡ y ∪ z
16 15 fneq2d ⊢ x = y ∪ z → f Fn dom ⁡ x ↔ f Fn dom ⁡ y ∪ z
17 14 16 anbi12d ⊢ x = y ∪ z → f ⊆ x ∧ f Fn dom ⁡ x ↔ f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
18 17 exbidv ⊢ x = y ∪ z → ∃ f f ⊆ x ∧ f Fn dom ⁡ x ↔ ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
19 sseq2 ⊢ x = w → f ⊆ x ↔ f ⊆ w
20 dmeq ⊢ x = w → dom ⁡ x = dom ⁡ w
21 20 fneq2d ⊢ x = w → f Fn dom ⁡ x ↔ f Fn dom ⁡ w
22 19 21 anbi12d ⊢ x = w → f ⊆ x ∧ f Fn dom ⁡ x ↔ f ⊆ w ∧ f Fn dom ⁡ w
23 22 exbidv ⊢ x = w → ∃ f f ⊆ x ∧ f Fn dom ⁡ x ↔ ∃ f f ⊆ w ∧ f Fn dom ⁡ w
24 ssid ⊢ ∅ ⊆ ∅
25 fun0 ⊢ Fun ⁡ ∅
26 funfn ⊢ Fun ⁡ ∅ ↔ ∅ Fn dom ⁡ ∅
27 25 26 mpbi ⊢ ∅ Fn dom ⁡ ∅
28 0ex ⊢ ∅ ∈ V
29 sseq1 ⊢ f = ∅ → f ⊆ ∅ ↔ ∅ ⊆ ∅
30 fneq1 ⊢ f = ∅ → f Fn dom ⁡ ∅ ↔ ∅ Fn dom ⁡ ∅
31 29 30 anbi12d ⊢ f = ∅ → f ⊆ ∅ ∧ f Fn dom ⁡ ∅ ↔ ∅ ⊆ ∅ ∧ ∅ Fn dom ⁡ ∅
32 28 31 spcev ⊢ ∅ ⊆ ∅ ∧ ∅ Fn dom ⁡ ∅ → ∃ f f ⊆ ∅ ∧ f Fn dom ⁡ ∅
33 24 27 32 mp2an ⊢ ∃ f f ⊆ ∅ ∧ f Fn dom ⁡ ∅
34 sseq1 ⊢ f = g → f ⊆ y ↔ g ⊆ y
35 fneq1 ⊢ f = g → f Fn dom ⁡ y ↔ g Fn dom ⁡ y
36 34 35 anbi12d ⊢ f = g → f ⊆ y ∧ f Fn dom ⁡ y ↔ g ⊆ y ∧ g Fn dom ⁡ y
37 36 cbvexvw ⊢ ∃ f f ⊆ y ∧ f Fn dom ⁡ y ↔ ∃ g g ⊆ y ∧ g Fn dom ⁡ y
38 ssun3 ⊢ g ⊆ y → g ⊆ y ∪ z
39 38 ad2antrr ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ dom ⁡ z = ∅ → g ⊆ y ∪ z
40 dmun ⊢ dom ⁡ y ∪ z = dom ⁡ y ∪ dom ⁡ z
41 uneq2 ⊢ dom ⁡ z = ∅ → dom ⁡ y ∪ dom ⁡ z = dom ⁡ y ∪ ∅
42 un0 ⊢ dom ⁡ y ∪ ∅ = dom ⁡ y
43 41 42 eqtrdi ⊢ dom ⁡ z = ∅ → dom ⁡ y ∪ dom ⁡ z = dom ⁡ y
44 40 43 eqtrid ⊢ dom ⁡ z = ∅ → dom ⁡ y ∪ z = dom ⁡ y
45 44 fneq2d ⊢ dom ⁡ z = ∅ → g Fn dom ⁡ y ∪ z ↔ g Fn dom ⁡ y
46 45 biimparc ⊢ g Fn dom ⁡ y ∧ dom ⁡ z = ∅ → g Fn dom ⁡ y ∪ z
47 46 adantll ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ dom ⁡ z = ∅ → g Fn dom ⁡ y ∪ z
48 vex ⊢ g ∈ V
49 sseq1 ⊢ f = g → f ⊆ y ∪ z ↔ g ⊆ y ∪ z
50 fneq1 ⊢ f = g → f Fn dom ⁡ y ∪ z ↔ g Fn dom ⁡ y ∪ z
51 49 50 anbi12d ⊢ f = g → f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z ↔ g ⊆ y ∪ z ∧ g Fn dom ⁡ y ∪ z
52 48 51 spcev ⊢ g ⊆ y ∪ z ∧ g Fn dom ⁡ y ∪ z → ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
53 39 47 52 syl2anc ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ dom ⁡ z = ∅ → ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
54 dmsnn0 ⊢ z ∈ V × V ↔ dom ⁡ z ≠ ∅
55 elvv ⊢ z ∈ V × V ↔ ∃ u ∃ v z = u v
56 54 55 bitr3i ⊢ dom ⁡ z ≠ ∅ ↔ ∃ u ∃ v z = u v
57 56 anbi2i ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ dom ⁡ z ≠ ∅ ↔ g ⊆ y ∧ g Fn dom ⁡ y ∧ ∃ u ∃ v z = u v
58 19.42vv ⊢ ∃ u ∃ v g ⊆ y ∧ g Fn dom ⁡ y ∧ z = u v ↔ g ⊆ y ∧ g Fn dom ⁡ y ∧ ∃ u ∃ v z = u v
59 57 58 bitr4i ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ dom ⁡ z ≠ ∅ ↔ ∃ u ∃ v g ⊆ y ∧ g Fn dom ⁡ y ∧ z = u v
60 38 3ad2ant1 ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ z = u v → g ⊆ y ∪ z
61 snssi ⊢ u ∈ dom ⁡ y → u ⊆ dom ⁡ y
62 ssequn2 ⊢ u ⊆ dom ⁡ y ↔ dom ⁡ y ∪ u = dom ⁡ y
63 61 62 sylib ⊢ u ∈ dom ⁡ y → dom ⁡ y ∪ u = dom ⁡ y
64 63 fneq2d ⊢ u ∈ dom ⁡ y → g Fn dom ⁡ y ∪ u ↔ g Fn dom ⁡ y
65 64 biimparc ⊢ g Fn dom ⁡ y ∧ u ∈ dom ⁡ y → g Fn dom ⁡ y ∪ u
66 65 3adant2 ⊢ g Fn dom ⁡ y ∧ z = u v ∧ u ∈ dom ⁡ y → g Fn dom ⁡ y ∪ u
67 sneq ⊢ z = u v → z = u v
68 67 dmeqd ⊢ z = u v → dom ⁡ z = dom ⁡ u v
69 vex ⊢ v ∈ V
70 69 dmsnop ⊢ dom ⁡ u v = u
71 68 70 eqtrdi ⊢ z = u v → dom ⁡ z = u
72 71 uneq2d ⊢ z = u v → dom ⁡ y ∪ dom ⁡ z = dom ⁡ y ∪ u
73 40 72 eqtrid ⊢ z = u v → dom ⁡ y ∪ z = dom ⁡ y ∪ u
74 73 fneq2d ⊢ z = u v → g Fn dom ⁡ y ∪ z ↔ g Fn dom ⁡ y ∪ u
75 74 3ad2ant2 ⊢ g Fn dom ⁡ y ∧ z = u v ∧ u ∈ dom ⁡ y → g Fn dom ⁡ y ∪ z ↔ g Fn dom ⁡ y ∪ u
76 66 75 mpbird ⊢ g Fn dom ⁡ y ∧ z = u v ∧ u ∈ dom ⁡ y → g Fn dom ⁡ y ∪ z
77 76 3expia ⊢ g Fn dom ⁡ y ∧ z = u v → u ∈ dom ⁡ y → g Fn dom ⁡ y ∪ z
78 77 3adant1 ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ z = u v → u ∈ dom ⁡ y → g Fn dom ⁡ y ∪ z
79 60 78 52 syl6an ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ z = u v → u ∈ dom ⁡ y → ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
80 67 uneq2d ⊢ z = u v → g ∪ z = g ∪ u v
81 80 adantl ⊢ g ⊆ y ∧ z = u v → g ∪ z = g ∪ u v
82 unss1 ⊢ g ⊆ y → g ∪ z ⊆ y ∪ z
83 82 adantr ⊢ g ⊆ y ∧ z = u v → g ∪ z ⊆ y ∪ z
84 81 83 eqsstrrd ⊢ g ⊆ y ∧ z = u v → g ∪ u v ⊆ y ∪ z
85 84 3adant2 ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ z = u v → g ∪ u v ⊆ y ∪ z
86 vex ⊢ u ∈ V
87 86 a1i ⊢ g Fn dom ⁡ y ∧ ¬ u ∈ dom ⁡ y → u ∈ V
88 69 a1i ⊢ g Fn dom ⁡ y ∧ ¬ u ∈ dom ⁡ y → v ∈ V
89 simpl ⊢ g Fn dom ⁡ y ∧ ¬ u ∈ dom ⁡ y → g Fn dom ⁡ y
90 eqid ⊢ g ∪ u v = g ∪ u v
91 eqid ⊢ dom ⁡ y ∪ u = dom ⁡ y ∪ u
92 simpr ⊢ g Fn dom ⁡ y ∧ ¬ u ∈ dom ⁡ y → ¬ u ∈ dom ⁡ y
93 87 88 89 90 91 92 fnunop ⊢ g Fn dom ⁡ y ∧ ¬ u ∈ dom ⁡ y → g ∪ u v Fn dom ⁡ y ∪ u
94 93 ex ⊢ g Fn dom ⁡ y → ¬ u ∈ dom ⁡ y → g ∪ u v Fn dom ⁡ y ∪ u
95 94 3ad2ant2 ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ z = u v → ¬ u ∈ dom ⁡ y → g ∪ u v Fn dom ⁡ y ∪ u
96 73 fneq2d ⊢ z = u v → g ∪ u v Fn dom ⁡ y ∪ z ↔ g ∪ u v Fn dom ⁡ y ∪ u
97 96 3ad2ant3 ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ z = u v → g ∪ u v Fn dom ⁡ y ∪ z ↔ g ∪ u v Fn dom ⁡ y ∪ u
98 95 97 sylibrd ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ z = u v → ¬ u ∈ dom ⁡ y → g ∪ u v Fn dom ⁡ y ∪ z
99 snex ⊢ u v ∈ V
100 48 99 unex ⊢ g ∪ u v ∈ V
101 sseq1 ⊢ f = g ∪ u v → f ⊆ y ∪ z ↔ g ∪ u v ⊆ y ∪ z
102 fneq1 ⊢ f = g ∪ u v → f Fn dom ⁡ y ∪ z ↔ g ∪ u v Fn dom ⁡ y ∪ z
103 101 102 anbi12d ⊢ f = g ∪ u v → f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z ↔ g ∪ u v ⊆ y ∪ z ∧ g ∪ u v Fn dom ⁡ y ∪ z
104 100 103 spcev ⊢ g ∪ u v ⊆ y ∪ z ∧ g ∪ u v Fn dom ⁡ y ∪ z → ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
105 85 98 104 syl6an ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ z = u v → ¬ u ∈ dom ⁡ y → ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
106 79 105 pm2.61d ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ z = u v → ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
107 106 3expa ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ z = u v → ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
108 107 exlimivv ⊢ ∃ u ∃ v g ⊆ y ∧ g Fn dom ⁡ y ∧ z = u v → ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
109 59 108 sylbi ⊢ g ⊆ y ∧ g Fn dom ⁡ y ∧ dom ⁡ z ≠ ∅ → ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
110 53 109 pm2.61dane ⊢ g ⊆ y ∧ g Fn dom ⁡ y → ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
111 110 exlimiv ⊢ ∃ g g ⊆ y ∧ g Fn dom ⁡ y → ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
112 37 111 sylbi ⊢ ∃ f f ⊆ y ∧ f Fn dom ⁡ y → ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
113 112 a1i ⊢ y ∈ Fin → ∃ f f ⊆ y ∧ f Fn dom ⁡ y → ∃ f f ⊆ y ∪ z ∧ f Fn dom ⁡ y ∪ z
114 8 13 18 23 33 113 findcard2 ⊢ w ∈ Fin → ∃ f f ⊆ w ∧ f Fn dom ⁡ w
115 3 114 syl ⊢ Fin = V → ∃ f f ⊆ w ∧ f Fn dom ⁡ w
116 115 alrimiv ⊢ Fin = V → ∀ w ∃ f f ⊆ w ∧ f Fn dom ⁡ w
117 df-ac ⊢ CHOICE ↔ ∀ w ∃ f f ⊆ w ∧ f Fn dom ⁡ w
118 116 117 sylibr ⊢ Fin = V → CHOICE