MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  sucdom2OLD Structured version   Visualization version   GIF version
Theorem sucdom2OLD 9078
Description: Obsolete version of sucdom2 9202 as of 4-Dec-2024. (Contributed by Mario Carneiro, 12-Jan-2013.) (Proof shortened by Mario Carneiro, 27-Apr-2015.) (Proof modification is discouraged.) (New usage is discouraged.)
Assertion
Ref Expression
sucdom2OLD (𝐴 β‰Ί 𝐡 β†’ suc 𝐴 β‰Ό 𝐡)
Proof of Theorem sucdom2OLD
Dummy variables 𝑀 𝑓 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 sdomdom 8972 . . 3 (𝐴 β‰Ί 𝐡 β†’ 𝐴 β‰Ό 𝐡)
2 brdomi 8950 . . 3 (𝐴 β‰Ό 𝐡 β†’ βˆƒπ‘“ 𝑓:𝐴–1-1→𝐡)
31, 2syl 17 . 2 (𝐴 β‰Ί 𝐡 β†’ βˆƒπ‘“ 𝑓:𝐴–1-1→𝐡)
4 relsdom 8942 . . . . . . 7 Rel β‰Ί
54brrelex1i 5730 . . . . . 6 (𝐴 β‰Ί 𝐡 β†’ 𝐴 ∈ V)
65adantr 481 . . . . 5 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ 𝐴 ∈ V)
7 vex 3478 . . . . . . 7 𝑓 ∈ V
87rnex 7899 . . . . . 6 ran 𝑓 ∈ V
98a1i 11 . . . . 5 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ ran 𝑓 ∈ V)
10 f1f1orn 6841 . . . . . . 7 (𝑓:𝐴–1-1→𝐡 β†’ 𝑓:𝐴–1-1-ontoβ†’ran 𝑓)
1110adantl 482 . . . . . 6 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ 𝑓:𝐴–1-1-ontoβ†’ran 𝑓)
12 f1of1 6829 . . . . . 6 (𝑓:𝐴–1-1-ontoβ†’ran 𝑓 β†’ 𝑓:𝐴–1-1β†’ran 𝑓)
1311, 12syl 17 . . . . 5 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ 𝑓:𝐴–1-1β†’ran 𝑓)
14 f1dom2g 8961 . . . . 5 ((𝐴 ∈ V ∧ ran 𝑓 ∈ V ∧ 𝑓:𝐴–1-1β†’ran 𝑓) β†’ 𝐴 β‰Ό ran 𝑓)
156, 9, 13, 14syl3anc 1371 . . . 4 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ 𝐴 β‰Ό ran 𝑓)
16 sdomnen 8973 . . . . . . . 8 (𝐴 β‰Ί 𝐡 β†’ Β¬ 𝐴 β‰ˆ 𝐡)
1716adantr 481 . . . . . . 7 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ Β¬ 𝐴 β‰ˆ 𝐡)
18 ssdif0 4362 . . . . . . . 8 (𝐡 βŠ† ran 𝑓 ↔ (𝐡 βˆ– ran 𝑓) = βˆ…)
19 simplr 767 . . . . . . . . . . 11 (((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) ∧ 𝐡 βŠ† ran 𝑓) β†’ 𝑓:𝐴–1-1→𝐡)
20 f1f 6784 . . . . . . . . . . . . . 14 (𝑓:𝐴–1-1→𝐡 β†’ 𝑓:𝐴⟢𝐡)
2120frnd 6722 . . . . . . . . . . . . 13 (𝑓:𝐴–1-1→𝐡 β†’ ran 𝑓 βŠ† 𝐡)
2219, 21syl 17 . . . . . . . . . . . 12 (((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) ∧ 𝐡 βŠ† ran 𝑓) β†’ ran 𝑓 βŠ† 𝐡)
23 simpr 485 . . . . . . . . . . . 12 (((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) ∧ 𝐡 βŠ† ran 𝑓) β†’ 𝐡 βŠ† ran 𝑓)
2422, 23eqssd 3998 . . . . . . . . . . 11 (((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) ∧ 𝐡 βŠ† ran 𝑓) β†’ ran 𝑓 = 𝐡)
25 dff1o5 6839 . . . . . . . . . . 11 (𝑓:𝐴–1-1-onto→𝐡 ↔ (𝑓:𝐴–1-1→𝐡 ∧ ran 𝑓 = 𝐡))
2619, 24, 25sylanbrc 583 . . . . . . . . . 10 (((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) ∧ 𝐡 βŠ† ran 𝑓) β†’ 𝑓:𝐴–1-1-onto→𝐡)
27 f1oen3g 8958 . . . . . . . . . 10 ((𝑓 ∈ V ∧ 𝑓:𝐴–1-1-onto→𝐡) β†’ 𝐴 β‰ˆ 𝐡)
287, 26, 27sylancr 587 . . . . . . . . 9 (((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) ∧ 𝐡 βŠ† ran 𝑓) β†’ 𝐴 β‰ˆ 𝐡)
2928ex 413 . . . . . . . 8 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ (𝐡 βŠ† ran 𝑓 β†’ 𝐴 β‰ˆ 𝐡))
3018, 29biimtrrid 242 . . . . . . 7 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ ((𝐡 βˆ– ran 𝑓) = βˆ… β†’ 𝐴 β‰ˆ 𝐡))
3117, 30mtod 197 . . . . . 6 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ Β¬ (𝐡 βˆ– ran 𝑓) = βˆ…)
32 neq0 4344 . . . . . 6 (Β¬ (𝐡 βˆ– ran 𝑓) = βˆ… ↔ βˆƒπ‘€ 𝑀 ∈ (𝐡 βˆ– ran 𝑓))
3331, 32sylib 217 . . . . 5 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ βˆƒπ‘€ 𝑀 ∈ (𝐡 βˆ– ran 𝑓))
34 snssi 4810 . . . . . . 7 (𝑀 ∈ (𝐡 βˆ– ran 𝑓) β†’ {𝑀} βŠ† (𝐡 βˆ– ran 𝑓))
35 vex 3478 . . . . . . . . 9 𝑀 ∈ V
36 en2sn 9037 . . . . . . . . 9 ((𝐴 ∈ V ∧ 𝑀 ∈ V) β†’ {𝐴} β‰ˆ {𝑀})
376, 35, 36sylancl 586 . . . . . . . 8 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ {𝐴} β‰ˆ {𝑀})
384brrelex2i 5731 . . . . . . . . . 10 (𝐴 β‰Ί 𝐡 β†’ 𝐡 ∈ V)
3938adantr 481 . . . . . . . . 9 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ 𝐡 ∈ V)
40 difexg 5326 . . . . . . . . 9 (𝐡 ∈ V β†’ (𝐡 βˆ– ran 𝑓) ∈ V)
41 ssdomg 8992 . . . . . . . . 9 ((𝐡 βˆ– ran 𝑓) ∈ V β†’ ({𝑀} βŠ† (𝐡 βˆ– ran 𝑓) β†’ {𝑀} β‰Ό (𝐡 βˆ– ran 𝑓)))
4239, 40, 413syl 18 . . . . . . . 8 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ ({𝑀} βŠ† (𝐡 βˆ– ran 𝑓) β†’ {𝑀} β‰Ό (𝐡 βˆ– ran 𝑓)))
43 endomtr 9004 . . . . . . . 8 (({𝐴} β‰ˆ {𝑀} ∧ {𝑀} β‰Ό (𝐡 βˆ– ran 𝑓)) β†’ {𝐴} β‰Ό (𝐡 βˆ– ran 𝑓))
4437, 42, 43syl6an 682 . . . . . . 7 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ ({𝑀} βŠ† (𝐡 βˆ– ran 𝑓) β†’ {𝐴} β‰Ό (𝐡 βˆ– ran 𝑓)))
4534, 44syl5 34 . . . . . 6 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ (𝑀 ∈ (𝐡 βˆ– ran 𝑓) β†’ {𝐴} β‰Ό (𝐡 βˆ– ran 𝑓)))
4645exlimdv 1936 . . . . 5 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ (βˆƒπ‘€ 𝑀 ∈ (𝐡 βˆ– ran 𝑓) β†’ {𝐴} β‰Ό (𝐡 βˆ– ran 𝑓)))
4733, 46mpd 15 . . . 4 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ {𝐴} β‰Ό (𝐡 βˆ– ran 𝑓))
48 disjdif 4470 . . . . 5 (ran 𝑓 ∩ (𝐡 βˆ– ran 𝑓)) = βˆ…
4948a1i 11 . . . 4 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ (ran 𝑓 ∩ (𝐡 βˆ– ran 𝑓)) = βˆ…)
50 undom 9055 . . . 4 (((𝐴 β‰Ό ran 𝑓 ∧ {𝐴} β‰Ό (𝐡 βˆ– ran 𝑓)) ∧ (ran 𝑓 ∩ (𝐡 βˆ– ran 𝑓)) = βˆ…) β†’ (𝐴 βˆͺ {𝐴}) β‰Ό (ran 𝑓 βˆͺ (𝐡 βˆ– ran 𝑓)))
5115, 47, 49, 50syl21anc 836 . . 3 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ (𝐴 βˆͺ {𝐴}) β‰Ό (ran 𝑓 βˆͺ (𝐡 βˆ– ran 𝑓)))
52 df-suc 6367 . . . 4 suc 𝐴 = (𝐴 βˆͺ {𝐴})
5352a1i 11 . . 3 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ suc 𝐴 = (𝐴 βˆͺ {𝐴}))
54 undif2 4475 . . . 4 (ran 𝑓 βˆͺ (𝐡 βˆ– ran 𝑓)) = (ran 𝑓 βˆͺ 𝐡)
5521adantl 482 . . . . 5 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ ran 𝑓 βŠ† 𝐡)
56 ssequn1 4179 . . . . 5 (ran 𝑓 βŠ† 𝐡 ↔ (ran 𝑓 βˆͺ 𝐡) = 𝐡)
5755, 56sylib 217 . . . 4 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ (ran 𝑓 βˆͺ 𝐡) = 𝐡)
5854, 57eqtr2id 2785 . . 3 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ 𝐡 = (ran 𝑓 βˆͺ (𝐡 βˆ– ran 𝑓)))
5951, 53, 583brtr4d 5179 . 2 ((𝐴 β‰Ί 𝐡 ∧ 𝑓:𝐴–1-1→𝐡) β†’ suc 𝐴 β‰Ό 𝐡)
603, 59exlimddv 1938 1 (𝐴 β‰Ί 𝐡 β†’ suc 𝐴 β‰Ό 𝐡)
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ∧ wa 396   = wceq 1541  βˆƒwex 1781   ∈ wcel 2106  Vcvv 3474   βˆ– cdif 3944   βˆͺ cun 3945   ∩ cin 3946   βŠ† wss 3947  βˆ…c0 4321  {csn 4627   class class class wbr 5147  ran crn 5676  suc csuc 6363  β€“1-1β†’wf1 6537  β€“1-1-ontoβ†’wf1o 6539   β‰ˆ cen 8932   β‰Ό cdom 8933   β‰Ί csdm 8934
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 2703  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ral 3062  df-rex 3071  df-rab 3433  df-v 3476  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-br 5148  df-opab 5210  df-id 5573  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-suc 6367  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-en 8936  df-dom 8937  df-sdom 8938
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator