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

Theorem inf3lem2 9550
Description: Lemma for our Axiom of Infinity => standard Axiom of Infinity. See inf3 9556 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 6842 . . . . 5 (𝑣 = ∅ → (𝐹𝑣) = (𝐹‘∅))
21neeq1d 2992 . . . 4 (𝑣 = ∅ → ((𝐹𝑣) ≠ 𝑥 ↔ (𝐹‘∅) ≠ 𝑥))
32imbi2d 340 . . 3 (𝑣 = ∅ → (((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹𝑣) ≠ 𝑥) ↔ ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹‘∅) ≠ 𝑥)))
4 fveq2 6842 . . . . 5 (𝑣 = 𝑢 → (𝐹𝑣) = (𝐹𝑢))
54neeq1d 2992 . . . 4 (𝑣 = 𝑢 → ((𝐹𝑣) ≠ 𝑥 ↔ (𝐹𝑢) ≠ 𝑥))
65imbi2d 340 . . 3 (𝑣 = 𝑢 → (((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹𝑣) ≠ 𝑥) ↔ ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹𝑢) ≠ 𝑥)))
7 fveq2 6842 . . . . 5 (𝑣 = suc 𝑢 → (𝐹𝑣) = (𝐹‘suc 𝑢))
87neeq1d 2992 . . . 4 (𝑣 = suc 𝑢 → ((𝐹𝑣) ≠ 𝑥 ↔ (𝐹‘suc 𝑢) ≠ 𝑥))
98imbi2d 340 . . 3 (𝑣 = suc 𝑢 → (((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹𝑣) ≠ 𝑥) ↔ ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹‘suc 𝑢) ≠ 𝑥)))
10 fveq2 6842 . . . . 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 9546 . . . . . . 7 (𝐹‘∅) = ∅
1817eqeq1i 2742 . . . . . 6 ((𝐹‘∅) = 𝑥 ↔ ∅ = 𝑥)
19 eqcom 2744 . . . . . 6 (∅ = 𝑥𝑥 = ∅)
2018, 19sylbb 219 . . . . 5 ((𝐹‘∅) = 𝑥𝑥 = ∅)
2120necon3i 2965 . . . 4 (𝑥 ≠ ∅ → (𝐹‘∅) ≠ 𝑥)
2221adantr 480 . . 3 ((𝑥 ≠ ∅ ∧ 𝑥 𝑥) → (𝐹‘∅) ≠ 𝑥)
23 vex 3446 . . . . . . . . 9 𝑢 ∈ V
2413, 14, 23, 16inf3lemd 9548 . . . . . . . 8 (𝑢 ∈ ω → (𝐹𝑢) ⊆ 𝑥)
25 df-pss 3923 . . . . . . . . . 10 ((𝐹𝑢) ⊊ 𝑥 ↔ ((𝐹𝑢) ⊆ 𝑥 ∧ (𝐹𝑢) ≠ 𝑥))
26 pssnel 4425 . . . . . . . . . 10 ((𝐹𝑢) ⊊ 𝑥 → ∃𝑣(𝑣𝑥 ∧ ¬ 𝑣 ∈ (𝐹𝑢)))
2725, 26sylbir 235 . . . . . . . . 9 (((𝐹𝑢) ⊆ 𝑥 ∧ (𝐹𝑢) ≠ 𝑥) → ∃𝑣(𝑣𝑥 ∧ ¬ 𝑣 ∈ (𝐹𝑢)))
28 ssel 3929 . . . . . . . . . . . . . . 15 (𝑥 𝑥 → (𝑣𝑥𝑣 𝑥))
29 eluni 4868 . . . . . . . . . . . . . . 15 (𝑣 𝑥 ↔ ∃𝑓(𝑣𝑓𝑓𝑥))
3028, 29imbitrdi 251 . . . . . . . . . . . . . 14 (𝑥 𝑥 → (𝑣𝑥 → ∃𝑓(𝑣𝑓𝑓𝑥)))
31 eleq2 2826 . . . . . . . . . . . . . . . . . . . . 21 ((𝐹‘suc 𝑢) = 𝑥 → (𝑓 ∈ (𝐹‘suc 𝑢) ↔ 𝑓𝑥))
3231biimparc 479 . . . . . . . . . . . . . . . . . . . 20 ((𝑓𝑥 ∧ (𝐹‘suc 𝑢) = 𝑥) → 𝑓 ∈ (𝐹‘suc 𝑢))
3313, 14, 23, 16inf3lemc 9547 . . . . . . . . . . . . . . . . . . . . . 22 (𝑢 ∈ ω → (𝐹‘suc 𝑢) = (𝐺‘(𝐹𝑢)))
3433eleq2d 2823 . . . . . . . . . . . . . . . . . . . . 21 (𝑢 ∈ ω → (𝑓 ∈ (𝐹‘suc 𝑢) ↔ 𝑓 ∈ (𝐺‘(𝐹𝑢))))
35 elin 3919 . . . . . . . . . . . . . . . . . . . . . 22 (𝑣 ∈ (𝑓𝑥) ↔ (𝑣𝑓𝑣𝑥))
36 vex 3446 . . . . . . . . . . . . . . . . . . . . . . . . 25 𝑓 ∈ V
37 fvex 6855 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐹𝑢) ∈ V
3813, 14, 36, 37inf3lema 9545 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑓 ∈ (𝐺‘(𝐹𝑢)) ↔ (𝑓𝑥 ∧ (𝑓𝑥) ⊆ (𝐹𝑢)))
3938simprbi 497 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑓 ∈ (𝐺‘(𝐹𝑢)) → (𝑓𝑥) ⊆ (𝐹𝑢))
4039sseld 3934 . . . . . . . . . . . . . . . . . . . . . 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 7848 . 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 3401  Vcvv 3442  cin 3902  wss 3903  wpss 3904  c0 4287   cuni 4865  cmpt 5181  cres 5634  suc csuc 6327  cfv 6500  ωcom 7818  reccrdg 8350
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 5243  ax-nul 5253  ax-pr 5379  ax-un 7690
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 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4950  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5527  df-eprel 5532  df-po 5540  df-so 5541  df-fr 5585  df-we 5587  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 6267  df-ord 6328  df-on 6329  df-lim 6330  df-suc 6331  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-ov 7371  df-om 7819  df-2nd 7944  df-frecs 8233  df-wrecs 8264  df-recs 8313  df-rdg 8351
This theorem is referenced by:  inf3lem3  9551
  Copyright terms: Public domain W3C validator