Users' Mathboxes Mathbox for Scott Fenton < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  hfun Structured version   Visualization version   GIF version

Theorem hfun 32562
Description: The union of two HF sets is an HF set. (Contributed by Scott Fenton, 15-Jul-2015.)
Assertion
Ref Expression
hfun ((𝐴 ∈ Hf ∧ 𝐵 ∈ Hf ) → (𝐴𝐵) ∈ Hf )

Proof of Theorem hfun
StepHypRef Expression
1 rankung 32550 . . 3 ((𝐴 ∈ Hf ∧ 𝐵 ∈ Hf ) → (rank‘(𝐴𝐵)) = ((rank‘𝐴) ∪ (rank‘𝐵)))
2 elhf2g 32560 . . . . 5 (𝐴 ∈ Hf → (𝐴 ∈ Hf ↔ (rank‘𝐴) ∈ ω))
32ibi 256 . . . 4 (𝐴 ∈ Hf → (rank‘𝐴) ∈ ω)
4 elhf2g 32560 . . . . 5 (𝐵 ∈ Hf → (𝐵 ∈ Hf ↔ (rank‘𝐵) ∈ ω))
54ibi 256 . . . 4 (𝐵 ∈ Hf → (rank‘𝐵) ∈ ω)
6 eleq1a 2822 . . . . . 6 ((rank‘𝐵) ∈ ω → (((rank‘𝐴) ∪ (rank‘𝐵)) = (rank‘𝐵) → ((rank‘𝐴) ∪ (rank‘𝐵)) ∈ ω))
76adantl 473 . . . . 5 (((rank‘𝐴) ∈ ω ∧ (rank‘𝐵) ∈ ω) → (((rank‘𝐴) ∪ (rank‘𝐵)) = (rank‘𝐵) → ((rank‘𝐴) ∪ (rank‘𝐵)) ∈ ω))
8 uncom 3888 . . . . . . . . . 10 ((rank‘𝐵) ∪ (rank‘𝐴)) = ((rank‘𝐴) ∪ (rank‘𝐵))
98eqeq1i 2753 . . . . . . . . 9 (((rank‘𝐵) ∪ (rank‘𝐴)) = (rank‘𝐴) ↔ ((rank‘𝐴) ∪ (rank‘𝐵)) = (rank‘𝐴))
109biimpi 206 . . . . . . . 8 (((rank‘𝐵) ∪ (rank‘𝐴)) = (rank‘𝐴) → ((rank‘𝐴) ∪ (rank‘𝐵)) = (rank‘𝐴))
1110eleq1d 2812 . . . . . . 7 (((rank‘𝐵) ∪ (rank‘𝐴)) = (rank‘𝐴) → (((rank‘𝐴) ∪ (rank‘𝐵)) ∈ ω ↔ (rank‘𝐴) ∈ ω))
1211biimprcd 240 . . . . . 6 ((rank‘𝐴) ∈ ω → (((rank‘𝐵) ∪ (rank‘𝐴)) = (rank‘𝐴) → ((rank‘𝐴) ∪ (rank‘𝐵)) ∈ ω))
1312adantr 472 . . . . 5 (((rank‘𝐴) ∈ ω ∧ (rank‘𝐵) ∈ ω) → (((rank‘𝐵) ∪ (rank‘𝐴)) = (rank‘𝐴) → ((rank‘𝐴) ∪ (rank‘𝐵)) ∈ ω))
14 nnord 7226 . . . . . . 7 ((rank‘𝐴) ∈ ω → Ord (rank‘𝐴))
15 nnord 7226 . . . . . . 7 ((rank‘𝐵) ∈ ω → Ord (rank‘𝐵))
16 ordtri2or2 5972 . . . . . . 7 ((Ord (rank‘𝐴) ∧ Ord (rank‘𝐵)) → ((rank‘𝐴) ⊆ (rank‘𝐵) ∨ (rank‘𝐵) ⊆ (rank‘𝐴)))
1714, 15, 16syl2an 495 . . . . . 6 (((rank‘𝐴) ∈ ω ∧ (rank‘𝐵) ∈ ω) → ((rank‘𝐴) ⊆ (rank‘𝐵) ∨ (rank‘𝐵) ⊆ (rank‘𝐴)))
18 ssequn1 3914 . . . . . . 7 ((rank‘𝐴) ⊆ (rank‘𝐵) ↔ ((rank‘𝐴) ∪ (rank‘𝐵)) = (rank‘𝐵))
19 ssequn1 3914 . . . . . . 7 ((rank‘𝐵) ⊆ (rank‘𝐴) ↔ ((rank‘𝐵) ∪ (rank‘𝐴)) = (rank‘𝐴))
2018, 19orbi12i 544 . . . . . 6 (((rank‘𝐴) ⊆ (rank‘𝐵) ∨ (rank‘𝐵) ⊆ (rank‘𝐴)) ↔ (((rank‘𝐴) ∪ (rank‘𝐵)) = (rank‘𝐵) ∨ ((rank‘𝐵) ∪ (rank‘𝐴)) = (rank‘𝐴)))
2117, 20sylib 208 . . . . 5 (((rank‘𝐴) ∈ ω ∧ (rank‘𝐵) ∈ ω) → (((rank‘𝐴) ∪ (rank‘𝐵)) = (rank‘𝐵) ∨ ((rank‘𝐵) ∪ (rank‘𝐴)) = (rank‘𝐴)))
227, 13, 21mpjaod 395 . . . 4 (((rank‘𝐴) ∈ ω ∧ (rank‘𝐵) ∈ ω) → ((rank‘𝐴) ∪ (rank‘𝐵)) ∈ ω)
233, 5, 22syl2an 495 . . 3 ((𝐴 ∈ Hf ∧ 𝐵 ∈ Hf ) → ((rank‘𝐴) ∪ (rank‘𝐵)) ∈ ω)
241, 23eqeltrd 2827 . 2 ((𝐴 ∈ Hf ∧ 𝐵 ∈ Hf ) → (rank‘(𝐴𝐵)) ∈ ω)
25 unexg 7112 . . 3 ((𝐴 ∈ Hf ∧ 𝐵 ∈ Hf ) → (𝐴𝐵) ∈ V)
26 elhf2g 32560 . . 3 ((𝐴𝐵) ∈ V → ((𝐴𝐵) ∈ Hf ↔ (rank‘(𝐴𝐵)) ∈ ω))
2725, 26syl 17 . 2 ((𝐴 ∈ Hf ∧ 𝐵 ∈ Hf ) → ((𝐴𝐵) ∈ Hf ↔ (rank‘(𝐴𝐵)) ∈ ω))
2824, 27mpbird 247 1 ((𝐴 ∈ Hf ∧ 𝐵 ∈ Hf ) → (𝐴𝐵) ∈ Hf )
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wo 382  wa 383   = wceq 1620  wcel 2127  Vcvv 3328  cun 3701  wss 3703  Ord word 5871  cfv 6037  ωcom 7218  rankcrnk 8787   Hf chf 32556
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1859  ax-4 1874  ax-5 1976  ax-6 2042  ax-7 2078  ax-8 2129  ax-9 2136  ax-10 2156  ax-11 2171  ax-12 2184  ax-13 2379  ax-ext 2728  ax-rep 4911  ax-sep 4921  ax-nul 4929  ax-pow 4980  ax-pr 5043  ax-un 7102  ax-reg 8650  ax-inf2 8699
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1623  df-ex 1842  df-nf 1847  df-sb 2035  df-eu 2599  df-mo 2600  df-clab 2735  df-cleq 2741  df-clel 2744  df-nfc 2879  df-ne 2921  df-ral 3043  df-rex 3044  df-reu 3045  df-rab 3047  df-v 3330  df-sbc 3565  df-csb 3663  df-dif 3706  df-un 3708  df-in 3710  df-ss 3717  df-pss 3719  df-nul 4047  df-if 4219  df-pw 4292  df-sn 4310  df-pr 4312  df-tp 4314  df-op 4316  df-uni 4577  df-int 4616  df-iun 4662  df-br 4793  df-opab 4853  df-mpt 4870  df-tr 4893  df-id 5162  df-eprel 5167  df-po 5175  df-so 5176  df-fr 5213  df-we 5215  df-xp 5260  df-rel 5261  df-cnv 5262  df-co 5263  df-dm 5264  df-rn 5265  df-res 5266  df-ima 5267  df-pred 5829  df-ord 5875  df-on 5876  df-lim 5877  df-suc 5878  df-iota 6000  df-fun 6039  df-fn 6040  df-f 6041  df-f1 6042  df-fo 6043  df-f1o 6044  df-fv 6045  df-om 7219  df-wrecs 7564  df-recs 7625  df-rdg 7663  df-er 7899  df-en 8110  df-dom 8111  df-sdom 8112  df-r1 8788  df-rank 8789  df-hf 32557
This theorem is referenced by:  hfadj  32564
  Copyright terms: Public domain W3C validator