MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  inf3lem2 Structured version   Visualization version   GIF version

Theorem inf3lem2 9541
Description: Lemma for our Axiom of Infinity => standard Axiom of Infinity. See inf3 9547 for detailed description. (Contributed by NM, 28-Oct-1996.)
Hypotheses
Ref Expression
inf3lem.1 𝐺 = (𝑦 ∈ V ↦ {𝑤𝑥 ∣ (𝑤𝑥) ⊆ 𝑦})
inf3lem.2 𝐹 = (rec(𝐺, ∅) ↾ ω)
inf3lem.3 𝐴 ∈ V
inf3lem.4 𝐵 ∈ V
Assertion
Ref Expression
inf3lem2 ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐴 ∈ ω → (𝐹𝐴) ≠ 𝑥))
Distinct variable group:   𝑥,𝑦,𝑤
Allowed substitution hints:   𝐴(𝑥,𝑦,𝑤)   𝐵(𝑥,𝑦,𝑤)   𝐹(𝑥,𝑦,𝑤)   𝐺(𝑥,𝑦,𝑤)

Proof of Theorem inf3lem2
Dummy variables 𝑣 𝑢 𝑓 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fveq2 6834 . . . . 5 (𝑣 = ∅ → (𝐹𝑣) = (𝐹‘∅))
21neeq1d 2992 . . . 4 (𝑣 = ∅ → ((𝐹𝑣) ≠ 𝑥 ↔ (𝐹‘∅) ≠ 𝑥))
32imbi2d 340 . . 3 (𝑣 = ∅ → (((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹𝑣) ≠ 𝑥) ↔ ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹‘∅) ≠ 𝑥)))
4 fveq2 6834 . . . . 5 (𝑣 = 𝑢 → (𝐹𝑣) = (𝐹𝑢))
54neeq1d 2992 . . . 4 (𝑣 = 𝑢 → ((𝐹𝑣) ≠ 𝑥 ↔ (𝐹𝑢) ≠ 𝑥))
65imbi2d 340 . . 3 (𝑣 = 𝑢 → (((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹𝑣) ≠ 𝑥) ↔ ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹𝑢) ≠ 𝑥)))
7 fveq2 6834 . . . . 5 (𝑣 = suc 𝑢 → (𝐹𝑣) = (𝐹‘suc 𝑢))
87neeq1d 2992 . . . 4 (𝑣 = suc 𝑢 → ((𝐹𝑣) ≠ 𝑥 ↔ (𝐹‘suc 𝑢) ≠ 𝑥))
98imbi2d 340 . . 3 (𝑣 = suc 𝑢 → (((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹𝑣) ≠ 𝑥) ↔ ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹‘suc 𝑢) ≠ 𝑥)))
10 fveq2 6834 . . . . 5 (𝑣 = 𝐴 → (𝐹𝑣) = (𝐹𝐴))
1110neeq1d 2992 . . . 4 (𝑣 = 𝐴 → ((𝐹𝑣) ≠ 𝑥 ↔ (𝐹𝐴) ≠ 𝑥))
1211imbi2d 340 . . 3 (𝑣 = 𝐴 → (((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹𝑣) ≠ 𝑥) ↔ ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹𝐴) ≠ 𝑥)))
13 inf3lem.1 . . . . . . . 8 𝐺 = (𝑦 ∈ V ↦ {𝑤𝑥 ∣ (𝑤𝑥) ⊆ 𝑦})
14 inf3lem.2 . . . . . . . 8 𝐹 = (rec(𝐺, ∅) ↾ ω)
15 inf3lem.3 . . . . . . . 8 𝐴 ∈ V
16 inf3lem.4 . . . . . . . 8 𝐵 ∈ V
1713, 14, 15, 16inf3lemb 9537 . . . . . . 7 (𝐹‘∅) = ∅
1817eqeq1i 2742 . . . . . 6 ((𝐹‘∅) = 𝑥 ↔ ∅ = 𝑥)
19 eqcom 2744 . . . . . 6 (∅ = 𝑥𝑥 = ∅)
2018, 19sylbb 219 . . . . 5 ((𝐹‘∅) = 𝑥𝑥 = ∅)
2120necon3i 2965 . . . 4 (𝑥 ≠ ∅ → (𝐹‘∅) ≠ 𝑥)
2221adantr 480 . . 3 ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹‘∅) ≠ 𝑥)
23 vex 3434 . . . . . . . . 9 𝑢 ∈ V
2413, 14, 23, 16inf3lemd 9539 . . . . . . . 8 (𝑢 ∈ ω → (𝐹𝑢) ⊆ 𝑥)
25 df-pss 3910 . . . . . . . . . 10 ((𝐹𝑢) ⊊ 𝑥 ↔ ((𝐹𝑢) ⊆ 𝑥 ∧ (𝐹𝑢) ≠ 𝑥))
26 pssnel 4412 . . . . . . . . . 10 ((𝐹𝑢) ⊊ 𝑥 → ∃𝑣(𝑣𝑥 ∧ ¬ 𝑣 ∈ (𝐹𝑢)))
2725, 26sylbir 235 . . . . . . . . 9 (((𝐹𝑢) ⊆ 𝑥 ∧ (𝐹𝑢) ≠ 𝑥) → ∃𝑣(𝑣𝑥 ∧ ¬ 𝑣 ∈ (𝐹𝑢)))
28 ssel 3916 . . . . . . . . . . . . . . 15 (𝑥 𝑥 → (𝑣𝑥𝑣 𝑥))
29 eluni 4854 . . . . . . . . . . . . . . 15 (𝑣 𝑥 ↔ ∃𝑓(𝑣𝑓𝑓𝑥))
3028, 29imbitrdi 251 . . . . . . . . . . . . . 14 (𝑥 𝑥 → (𝑣𝑥 → ∃𝑓(𝑣𝑓𝑓𝑥)))
31 eleq2 2826 . . . . . . . . . . . . . . . . . . . . 21 ((𝐹‘suc 𝑢) = 𝑥 → (𝑓 ∈ (𝐹‘suc 𝑢) ↔ 𝑓𝑥))
3231biimparc 479 . . . . . . . . . . . . . . . . . . . 20 ((𝑓𝑥 ∧ (𝐹‘suc 𝑢) = 𝑥) → 𝑓 ∈ (𝐹‘suc 𝑢))
3313, 14, 23, 16inf3lemc 9538 . . . . . . . . . . . . . . . . . . . . . 22 (𝑢 ∈ ω → (𝐹‘suc 𝑢) = (𝐺‘(𝐹𝑢)))
3433eleq2d 2823 . . . . . . . . . . . . . . . . . . . . 21 (𝑢 ∈ ω → (𝑓 ∈ (𝐹‘suc 𝑢) ↔ 𝑓 ∈ (𝐺‘(𝐹𝑢))))
35 elin 3906 . . . . . . . . . . . . . . . . . . . . . 22 (𝑣 ∈ (𝑓𝑥) ↔ (𝑣𝑓𝑣𝑥))
36 vex 3434 . . . . . . . . . . . . . . . . . . . . . . . . 25 𝑓 ∈ V
37 fvex 6847 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐹𝑢) ∈ V
3813, 14, 36, 37inf3lema 9536 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑓 ∈ (𝐺‘(𝐹𝑢)) ↔ (𝑓𝑥 ∧ (𝑓𝑥) ⊆ (𝐹𝑢)))
3938simprbi 497 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑓 ∈ (𝐺‘(𝐹𝑢)) → (𝑓𝑥) ⊆ (𝐹𝑢))
4039sseld 3921 . . . . . . . . . . . . . . . . . . . . . 22 (𝑓 ∈ (𝐺‘(𝐹𝑢)) → (𝑣 ∈ (𝑓𝑥) → 𝑣 ∈ (𝐹𝑢)))
4135, 40biimtrrid 243 . . . . . . . . . . . . . . . . . . . . 21 (𝑓 ∈ (𝐺‘(𝐹𝑢)) → ((𝑣𝑓𝑣𝑥) → 𝑣 ∈ (𝐹𝑢)))
4234, 41biimtrdi 253 . . . . . . . . . . . . . . . . . . . 20 (𝑢 ∈ ω → (𝑓 ∈ (𝐹‘suc 𝑢) → ((𝑣𝑓𝑣𝑥) → 𝑣 ∈ (𝐹𝑢))))
4332, 42syl5 34 . . . . . . . . . . . . . . . . . . 19 (𝑢 ∈ ω → ((𝑓𝑥 ∧ (𝐹‘suc 𝑢) = 𝑥) → ((𝑣𝑓𝑣𝑥) → 𝑣 ∈ (𝐹𝑢))))
4443com23 86 . . . . . . . . . . . . . . . . . 18 (𝑢 ∈ ω → ((𝑣𝑓𝑣𝑥) → ((𝑓𝑥 ∧ (𝐹‘suc 𝑢) = 𝑥) → 𝑣 ∈ (𝐹𝑢))))
4544exp5c 444 . . . . . . . . . . . . . . . . 17 (𝑢 ∈ ω → (𝑣𝑓 → (𝑣𝑥 → (𝑓𝑥 → ((𝐹‘suc 𝑢) = 𝑥𝑣 ∈ (𝐹𝑢))))))
4645com34 91 . . . . . . . . . . . . . . . 16 (𝑢 ∈ ω → (𝑣𝑓 → (𝑓𝑥 → (𝑣𝑥 → ((𝐹‘suc 𝑢) = 𝑥𝑣 ∈ (𝐹𝑢))))))
4746impd 410 . . . . . . . . . . . . . . 15 (𝑢 ∈ ω → ((𝑣𝑓𝑓𝑥) → (𝑣𝑥 → ((𝐹‘suc 𝑢) = 𝑥𝑣 ∈ (𝐹𝑢)))))
4847exlimdv 1935 . . . . . . . . . . . . . 14 (𝑢 ∈ ω → (∃𝑓(𝑣𝑓𝑓𝑥) → (𝑣𝑥 → ((𝐹‘suc 𝑢) = 𝑥𝑣 ∈ (𝐹𝑢)))))
4930, 48sylan9r 508 . . . . . . . . . . . . 13 ((𝑢 ∈ ω ∧ 𝑥 𝑥) → (𝑣𝑥 → (𝑣𝑥 → ((𝐹‘suc 𝑢) = 𝑥𝑣 ∈ (𝐹𝑢)))))
5049pm2.43d 53 . . . . . . . . . . . 12 ((𝑢 ∈ ω ∧ 𝑥 𝑥) → (𝑣𝑥 → ((𝐹‘suc 𝑢) = 𝑥𝑣 ∈ (𝐹𝑢))))
51 id 22 . . . . . . . . . . . . 13 (((𝐹‘suc 𝑢) = 𝑥𝑣 ∈ (𝐹𝑢)) → ((𝐹‘suc 𝑢) = 𝑥𝑣 ∈ (𝐹𝑢)))
5251necon3bd 2947 . . . . . . . . . . . 12 (((𝐹‘suc 𝑢) = 𝑥𝑣 ∈ (𝐹𝑢)) → (¬ 𝑣 ∈ (𝐹𝑢) → (𝐹‘suc 𝑢) ≠ 𝑥))
5350, 52syl6 35 . . . . . . . . . . 11 ((𝑢 ∈ ω ∧ 𝑥 𝑥) → (𝑣𝑥 → (¬ 𝑣 ∈ (𝐹𝑢) → (𝐹‘suc 𝑢) ≠ 𝑥)))
5453impd 410 . . . . . . . . . 10 ((𝑢 ∈ ω ∧ 𝑥 𝑥) → ((𝑣𝑥 ∧ ¬ 𝑣 ∈ (𝐹𝑢)) → (𝐹‘suc 𝑢) ≠ 𝑥))
5554exlimdv 1935 . . . . . . . . 9 ((𝑢 ∈ ω ∧ 𝑥 𝑥) → (∃𝑣(𝑣𝑥 ∧ ¬ 𝑣 ∈ (𝐹𝑢)) → (𝐹‘suc 𝑢) ≠ 𝑥))
5627, 55syl5 34 . . . . . . . 8 ((𝑢 ∈ ω ∧ 𝑥 𝑥) → (((𝐹𝑢) ⊆ 𝑥 ∧ (𝐹𝑢) ≠ 𝑥) → (𝐹‘suc 𝑢) ≠ 𝑥))
5724, 56sylani 605 . . . . . . 7 ((𝑢 ∈ ω ∧ 𝑥 𝑥) → ((𝑢 ∈ ω ∧ (𝐹𝑢) ≠ 𝑥) → (𝐹‘suc 𝑢) ≠ 𝑥))
5857exp4b 430 . . . . . 6 (𝑢 ∈ ω → (𝑥 𝑥 → (𝑢 ∈ ω → ((𝐹𝑢) ≠ 𝑥 → (𝐹‘suc 𝑢) ≠ 𝑥))))
5958pm2.43a 54 . . . . 5 (𝑢 ∈ ω → (𝑥 𝑥 → ((𝐹𝑢) ≠ 𝑥 → (𝐹‘suc 𝑢) ≠ 𝑥)))
6059adantld 490 . . . 4 (𝑢 ∈ ω → ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → ((𝐹𝑢) ≠ 𝑥 → (𝐹‘suc 𝑢) ≠ 𝑥)))
6160a2d 29 . . 3 (𝑢 ∈ ω → (((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹𝑢) ≠ 𝑥) → ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹‘suc 𝑢) ≠ 𝑥)))
623, 6, 9, 12, 22, 61finds 7840 . 2 (𝐴 ∈ ω → ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹𝐴) ≠ 𝑥))
6362com12 32 1 ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐴 ∈ ω → (𝐹𝐴) ≠ 𝑥))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395   = wceq 1542  wex 1781  wcel 2114  wne 2933  {crab 3390  Vcvv 3430  cin 3889  wss 3890  wpss 3891  c0 4274   cuni 4851  cmpt 5167  cres 5626  suc csuc 6319  cfv 6492  ωcom 7810  reccrdg 8341
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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5231  ax-nul 5241  ax-pr 5370  ax-un 7682
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-ov 7363  df-om 7811  df-2nd 7936  df-frecs 8224  df-wrecs 8255  df-recs 8304  df-rdg 8342
This theorem is referenced by:  inf3lem3  9542
  Copyright terms: Public domain W3C validator