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

Theorem hashdom 14289
Description: Dominance relation for the size function. (Contributed by Mario Carneiro, 22-Sep-2013.) (Revised by Mario Carneiro, 22-Apr-2015.)
Assertion
Ref Expression
hashdom ((𝐴 ∈ Fin ∧ 𝐵𝑉) → ((♯‘𝐴) ≤ (♯‘𝐵) ↔ 𝐴𝐵))

Proof of Theorem hashdom
Dummy variables 𝑥 𝑓 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fzfi 13887 . . . . . . . 8 (1...((♯‘𝐵) − (♯‘𝐴))) ∈ Fin
2 ficardom 9906 . . . . . . . 8 ((1...((♯‘𝐵) − (♯‘𝐴))) ∈ Fin → (card‘(1...((♯‘𝐵) − (♯‘𝐴)))) ∈ ω)
31, 2ax-mp 5 . . . . . . 7 (card‘(1...((♯‘𝐵) − (♯‘𝐴)))) ∈ ω
4 eqid 2731 . . . . . . . . . . . . . 14 (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω) = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)
54hashgval 14243 . . . . . . . . . . . . 13 (𝐴 ∈ Fin → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐴)) = (♯‘𝐴))
65ad2antrr 724 . . . . . . . . . . . 12 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐴)) = (♯‘𝐴))
74hashgval 14243 . . . . . . . . . . . . . 14 ((1...((♯‘𝐵) − (♯‘𝐴))) ∈ Fin → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘(1...((♯‘𝐵) − (♯‘𝐴))))) = (♯‘(1...((♯‘𝐵) − (♯‘𝐴)))))
81, 7ax-mp 5 . . . . . . . . . . . . 13 ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘(1...((♯‘𝐵) − (♯‘𝐴))))) = (♯‘(1...((♯‘𝐵) − (♯‘𝐴))))
9 hashcl 14266 . . . . . . . . . . . . . . . 16 (𝐴 ∈ Fin → (♯‘𝐴) ∈ ℕ0)
109ad2antrr 724 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → (♯‘𝐴) ∈ ℕ0)
11 hashcl 14266 . . . . . . . . . . . . . . . 16 (𝐵 ∈ Fin → (♯‘𝐵) ∈ ℕ0)
1211ad2antlr 725 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → (♯‘𝐵) ∈ ℕ0)
13 simpr 485 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → (♯‘𝐴) ≤ (♯‘𝐵))
14 nn0sub2 12573 . . . . . . . . . . . . . . 15 (((♯‘𝐴) ∈ ℕ0 ∧ (♯‘𝐵) ∈ ℕ0 ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ((♯‘𝐵) − (♯‘𝐴)) ∈ ℕ0)
1510, 12, 13, 14syl3anc 1371 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ((♯‘𝐵) − (♯‘𝐴)) ∈ ℕ0)
16 hashfz1 14256 . . . . . . . . . . . . . 14 (((♯‘𝐵) − (♯‘𝐴)) ∈ ℕ0 → (♯‘(1...((♯‘𝐵) − (♯‘𝐴)))) = ((♯‘𝐵) − (♯‘𝐴)))
1715, 16syl 17 . . . . . . . . . . . . 13 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → (♯‘(1...((♯‘𝐵) − (♯‘𝐴)))) = ((♯‘𝐵) − (♯‘𝐴)))
188, 17eqtrid 2783 . . . . . . . . . . . 12 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘(1...((♯‘𝐵) − (♯‘𝐴))))) = ((♯‘𝐵) − (♯‘𝐴)))
196, 18oveq12d 7380 . . . . . . . . . . 11 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → (((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐴)) + ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘(1...((♯‘𝐵) − (♯‘𝐴)))))) = ((♯‘𝐴) + ((♯‘𝐵) − (♯‘𝐴))))
209nn0cnd 12484 . . . . . . . . . . . . 13 (𝐴 ∈ Fin → (♯‘𝐴) ∈ ℂ)
2111nn0cnd 12484 . . . . . . . . . . . . 13 (𝐵 ∈ Fin → (♯‘𝐵) ∈ ℂ)
22 pncan3 11418 . . . . . . . . . . . . 13 (((♯‘𝐴) ∈ ℂ ∧ (♯‘𝐵) ∈ ℂ) → ((♯‘𝐴) + ((♯‘𝐵) − (♯‘𝐴))) = (♯‘𝐵))
2320, 21, 22syl2an 596 . . . . . . . . . . . 12 ((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) → ((♯‘𝐴) + ((♯‘𝐵) − (♯‘𝐴))) = (♯‘𝐵))
2423adantr 481 . . . . . . . . . . 11 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ((♯‘𝐴) + ((♯‘𝐵) − (♯‘𝐴))) = (♯‘𝐵))
2519, 24eqtrd 2771 . . . . . . . . . 10 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → (((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐴)) + ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘(1...((♯‘𝐵) − (♯‘𝐴)))))) = (♯‘𝐵))
26 ficardom 9906 . . . . . . . . . . . 12 (𝐴 ∈ Fin → (card‘𝐴) ∈ ω)
2726ad2antrr 724 . . . . . . . . . . 11 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → (card‘𝐴) ∈ ω)
284hashgadd 14287 . . . . . . . . . . 11 (((card‘𝐴) ∈ ω ∧ (card‘(1...((♯‘𝐵) − (♯‘𝐴)))) ∈ ω) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴)))))) = (((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐴)) + ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘(1...((♯‘𝐵) − (♯‘𝐴)))))))
2927, 3, 28sylancl 586 . . . . . . . . . 10 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴)))))) = (((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐴)) + ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘(1...((♯‘𝐵) − (♯‘𝐴)))))))
304hashgval 14243 . . . . . . . . . . 11 (𝐵 ∈ Fin → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐵)) = (♯‘𝐵))
3130ad2antlr 725 . . . . . . . . . 10 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐵)) = (♯‘𝐵))
3225, 29, 313eqtr4d 2781 . . . . . . . . 9 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴)))))) = ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐵)))
3332fveq2d 6851 . . . . . . . 8 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴))))))) = ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐵))))
344hashgf1o 13886 . . . . . . . . 9 (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω):ω–1-1-onto→ℕ0
35 nnacl 8563 . . . . . . . . . 10 (((card‘𝐴) ∈ ω ∧ (card‘(1...((♯‘𝐵) − (♯‘𝐴)))) ∈ ω) → ((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴))))) ∈ ω)
3627, 3, 35sylancl 586 . . . . . . . . 9 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴))))) ∈ ω)
37 f1ocnvfv1 7227 . . . . . . . . 9 (((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω):ω–1-1-onto→ℕ0 ∧ ((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴))))) ∈ ω) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴))))))) = ((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴))))))
3834, 36, 37sylancr 587 . . . . . . . 8 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴))))))) = ((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴))))))
39 ficardom 9906 . . . . . . . . . 10 (𝐵 ∈ Fin → (card‘𝐵) ∈ ω)
4039ad2antlr 725 . . . . . . . . 9 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → (card‘𝐵) ∈ ω)
41 f1ocnvfv1 7227 . . . . . . . . 9 (((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω):ω–1-1-onto→ℕ0 ∧ (card‘𝐵) ∈ ω) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐵))) = (card‘𝐵))
4234, 40, 41sylancr 587 . . . . . . . 8 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐵))) = (card‘𝐵))
4333, 38, 423eqtr3d 2779 . . . . . . 7 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴))))) = (card‘𝐵))
44 oveq2 7370 . . . . . . . . 9 (𝑦 = (card‘(1...((♯‘𝐵) − (♯‘𝐴)))) → ((card‘𝐴) +o 𝑦) = ((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴))))))
4544eqeq1d 2733 . . . . . . . 8 (𝑦 = (card‘(1...((♯‘𝐵) − (♯‘𝐴)))) → (((card‘𝐴) +o 𝑦) = (card‘𝐵) ↔ ((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴))))) = (card‘𝐵)))
4645rspcev 3582 . . . . . . 7 (((card‘(1...((♯‘𝐵) − (♯‘𝐴)))) ∈ ω ∧ ((card‘𝐴) +o (card‘(1...((♯‘𝐵) − (♯‘𝐴))))) = (card‘𝐵)) → ∃𝑦 ∈ ω ((card‘𝐴) +o 𝑦) = (card‘𝐵))
473, 43, 46sylancr 587 . . . . . 6 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (♯‘𝐴) ≤ (♯‘𝐵)) → ∃𝑦 ∈ ω ((card‘𝐴) +o 𝑦) = (card‘𝐵))
4847ex 413 . . . . 5 ((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) → ((♯‘𝐴) ≤ (♯‘𝐵) → ∃𝑦 ∈ ω ((card‘𝐴) +o 𝑦) = (card‘𝐵)))
49 cardnn 9908 . . . . . . . . . 10 (𝑦 ∈ ω → (card‘𝑦) = 𝑦)
5049adantl 482 . . . . . . . . 9 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑦 ∈ ω) → (card‘𝑦) = 𝑦)
5150oveq2d 7378 . . . . . . . 8 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑦 ∈ ω) → ((card‘𝐴) +o (card‘𝑦)) = ((card‘𝐴) +o 𝑦))
5251eqeq1d 2733 . . . . . . 7 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑦 ∈ ω) → (((card‘𝐴) +o (card‘𝑦)) = (card‘𝐵) ↔ ((card‘𝐴) +o 𝑦) = (card‘𝐵)))
53 fveq2 6847 . . . . . . . 8 (((card‘𝐴) +o (card‘𝑦)) = (card‘𝐵) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘𝑦))) = ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐵)))
54 nnfi 9118 . . . . . . . . 9 (𝑦 ∈ ω → 𝑦 ∈ Fin)
55 ficardom 9906 . . . . . . . . . . . . . 14 (𝑦 ∈ Fin → (card‘𝑦) ∈ ω)
564hashgadd 14287 . . . . . . . . . . . . . 14 (((card‘𝐴) ∈ ω ∧ (card‘𝑦) ∈ ω) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘𝑦))) = (((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐴)) + ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝑦))))
5726, 55, 56syl2an 596 . . . . . . . . . . . . 13 ((𝐴 ∈ Fin ∧ 𝑦 ∈ Fin) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘𝑦))) = (((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐴)) + ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝑦))))
584hashgval 14243 . . . . . . . . . . . . . 14 (𝑦 ∈ Fin → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝑦)) = (♯‘𝑦))
595, 58oveqan12d 7381 . . . . . . . . . . . . 13 ((𝐴 ∈ Fin ∧ 𝑦 ∈ Fin) → (((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐴)) + ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝑦))) = ((♯‘𝐴) + (♯‘𝑦)))
6057, 59eqtrd 2771 . . . . . . . . . . . 12 ((𝐴 ∈ Fin ∧ 𝑦 ∈ Fin) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘𝑦))) = ((♯‘𝐴) + (♯‘𝑦)))
6160adantlr 713 . . . . . . . . . . 11 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑦 ∈ Fin) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘𝑦))) = ((♯‘𝐴) + (♯‘𝑦)))
6230ad2antlr 725 . . . . . . . . . . 11 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑦 ∈ Fin) → ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐵)) = (♯‘𝐵))
6361, 62eqeq12d 2747 . . . . . . . . . 10 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑦 ∈ Fin) → (((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘𝑦))) = ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐵)) ↔ ((♯‘𝐴) + (♯‘𝑦)) = (♯‘𝐵)))
64 hashcl 14266 . . . . . . . . . . . . . . 15 (𝑦 ∈ Fin → (♯‘𝑦) ∈ ℕ0)
6564nn0ge0d 12485 . . . . . . . . . . . . . 14 (𝑦 ∈ Fin → 0 ≤ (♯‘𝑦))
6665adantl 482 . . . . . . . . . . . . 13 ((𝐴 ∈ Fin ∧ 𝑦 ∈ Fin) → 0 ≤ (♯‘𝑦))
679nn0red 12483 . . . . . . . . . . . . . 14 (𝐴 ∈ Fin → (♯‘𝐴) ∈ ℝ)
6864nn0red 12483 . . . . . . . . . . . . . 14 (𝑦 ∈ Fin → (♯‘𝑦) ∈ ℝ)
69 addge01 11674 . . . . . . . . . . . . . 14 (((♯‘𝐴) ∈ ℝ ∧ (♯‘𝑦) ∈ ℝ) → (0 ≤ (♯‘𝑦) ↔ (♯‘𝐴) ≤ ((♯‘𝐴) + (♯‘𝑦))))
7067, 68, 69syl2an 596 . . . . . . . . . . . . 13 ((𝐴 ∈ Fin ∧ 𝑦 ∈ Fin) → (0 ≤ (♯‘𝑦) ↔ (♯‘𝐴) ≤ ((♯‘𝐴) + (♯‘𝑦))))
7166, 70mpbid 231 . . . . . . . . . . . 12 ((𝐴 ∈ Fin ∧ 𝑦 ∈ Fin) → (♯‘𝐴) ≤ ((♯‘𝐴) + (♯‘𝑦)))
7271adantlr 713 . . . . . . . . . . 11 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑦 ∈ Fin) → (♯‘𝐴) ≤ ((♯‘𝐴) + (♯‘𝑦)))
73 breq2 5114 . . . . . . . . . . 11 (((♯‘𝐴) + (♯‘𝑦)) = (♯‘𝐵) → ((♯‘𝐴) ≤ ((♯‘𝐴) + (♯‘𝑦)) ↔ (♯‘𝐴) ≤ (♯‘𝐵)))
7472, 73syl5ibcom 244 . . . . . . . . . 10 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑦 ∈ Fin) → (((♯‘𝐴) + (♯‘𝑦)) = (♯‘𝐵) → (♯‘𝐴) ≤ (♯‘𝐵)))
7563, 74sylbid 239 . . . . . . . . 9 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑦 ∈ Fin) → (((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘𝑦))) = ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐵)) → (♯‘𝐴) ≤ (♯‘𝐵)))
7654, 75sylan2 593 . . . . . . . 8 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑦 ∈ ω) → (((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘((card‘𝐴) +o (card‘𝑦))) = ((rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)‘(card‘𝐵)) → (♯‘𝐴) ≤ (♯‘𝐵)))
7753, 76syl5 34 . . . . . . 7 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑦 ∈ ω) → (((card‘𝐴) +o (card‘𝑦)) = (card‘𝐵) → (♯‘𝐴) ≤ (♯‘𝐵)))
7852, 77sylbird 259 . . . . . 6 (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑦 ∈ ω) → (((card‘𝐴) +o 𝑦) = (card‘𝐵) → (♯‘𝐴) ≤ (♯‘𝐵)))
7978rexlimdva 3148 . . . . 5 ((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) → (∃𝑦 ∈ ω ((card‘𝐴) +o 𝑦) = (card‘𝐵) → (♯‘𝐴) ≤ (♯‘𝐵)))
8048, 79impbid 211 . . . 4 ((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) → ((♯‘𝐴) ≤ (♯‘𝐵) ↔ ∃𝑦 ∈ ω ((card‘𝐴) +o 𝑦) = (card‘𝐵)))
81 nnawordex 8589 . . . . 5 (((card‘𝐴) ∈ ω ∧ (card‘𝐵) ∈ ω) → ((card‘𝐴) ⊆ (card‘𝐵) ↔ ∃𝑦 ∈ ω ((card‘𝐴) +o 𝑦) = (card‘𝐵)))
8226, 39, 81syl2an 596 . . . 4 ((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) → ((card‘𝐴) ⊆ (card‘𝐵) ↔ ∃𝑦 ∈ ω ((card‘𝐴) +o 𝑦) = (card‘𝐵)))
83 finnum 9893 . . . . 5 (𝐴 ∈ Fin → 𝐴 ∈ dom card)
84 finnum 9893 . . . . 5 (𝐵 ∈ Fin → 𝐵 ∈ dom card)
85 carddom2 9922 . . . . 5 ((𝐴 ∈ dom card ∧ 𝐵 ∈ dom card) → ((card‘𝐴) ⊆ (card‘𝐵) ↔ 𝐴𝐵))
8683, 84, 85syl2an 596 . . . 4 ((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) → ((card‘𝐴) ⊆ (card‘𝐵) ↔ 𝐴𝐵))
8780, 82, 863bitr2d 306 . . 3 ((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) → ((♯‘𝐴) ≤ (♯‘𝐵) ↔ 𝐴𝐵))
8887adantlr 713 . 2 (((𝐴 ∈ Fin ∧ 𝐵𝑉) ∧ 𝐵 ∈ Fin) → ((♯‘𝐴) ≤ (♯‘𝐵) ↔ 𝐴𝐵))
89 hashxrcl 14267 . . . . . 6 (𝐴 ∈ Fin → (♯‘𝐴) ∈ ℝ*)
9089ad2antrr 724 . . . . 5 (((𝐴 ∈ Fin ∧ 𝐵𝑉) ∧ ¬ 𝐵 ∈ Fin) → (♯‘𝐴) ∈ ℝ*)
91 pnfge 13060 . . . . 5 ((♯‘𝐴) ∈ ℝ* → (♯‘𝐴) ≤ +∞)
9290, 91syl 17 . . . 4 (((𝐴 ∈ Fin ∧ 𝐵𝑉) ∧ ¬ 𝐵 ∈ Fin) → (♯‘𝐴) ≤ +∞)
93 hashinf 14245 . . . . 5 ((𝐵𝑉 ∧ ¬ 𝐵 ∈ Fin) → (♯‘𝐵) = +∞)
9493adantll 712 . . . 4 (((𝐴 ∈ Fin ∧ 𝐵𝑉) ∧ ¬ 𝐵 ∈ Fin) → (♯‘𝐵) = +∞)
9592, 94breqtrrd 5138 . . 3 (((𝐴 ∈ Fin ∧ 𝐵𝑉) ∧ ¬ 𝐵 ∈ Fin) → (♯‘𝐴) ≤ (♯‘𝐵))
96 isinffi 9937 . . . . . 6 ((¬ 𝐵 ∈ Fin ∧ 𝐴 ∈ Fin) → ∃𝑓 𝑓:𝐴1-1𝐵)
9796ancoms 459 . . . . 5 ((𝐴 ∈ Fin ∧ ¬ 𝐵 ∈ Fin) → ∃𝑓 𝑓:𝐴1-1𝐵)
9897adantlr 713 . . . 4 (((𝐴 ∈ Fin ∧ 𝐵𝑉) ∧ ¬ 𝐵 ∈ Fin) → ∃𝑓 𝑓:𝐴1-1𝐵)
99 brdomg 8903 . . . . 5 (𝐵𝑉 → (𝐴𝐵 ↔ ∃𝑓 𝑓:𝐴1-1𝐵))
10099ad2antlr 725 . . . 4 (((𝐴 ∈ Fin ∧ 𝐵𝑉) ∧ ¬ 𝐵 ∈ Fin) → (𝐴𝐵 ↔ ∃𝑓 𝑓:𝐴1-1𝐵))
10198, 100mpbird 256 . . 3 (((𝐴 ∈ Fin ∧ 𝐵𝑉) ∧ ¬ 𝐵 ∈ Fin) → 𝐴𝐵)
10295, 1012thd 264 . 2 (((𝐴 ∈ Fin ∧ 𝐵𝑉) ∧ ¬ 𝐵 ∈ Fin) → ((♯‘𝐴) ≤ (♯‘𝐵) ↔ 𝐴𝐵))
10388, 102pm2.61dan 811 1 ((𝐴 ∈ Fin ∧ 𝐵𝑉) → ((♯‘𝐴) ≤ (♯‘𝐵) ↔ 𝐴𝐵))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396   = wceq 1541  wex 1781  wcel 2106  wrex 3069  Vcvv 3446  wss 3913   class class class wbr 5110  cmpt 5193  ccnv 5637  dom cdm 5638  cres 5640  1-1wf1 6498  1-1-ontowf1o 6500  cfv 6501  (class class class)co 7362  ωcom 7807  reccrdg 8360   +o coa 8414  cdom 8888  Fincfn 8890  cardccrd 9880  cc 11058  cr 11059  0cc0 11060  1c1 11061   + caddc 11063  +∞cpnf 11195  *cxr 11197  cle 11199  cmin 11394  0cn0 12422  ...cfz 13434  chash 14240
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 2702  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677  ax-cnex 11116  ax-resscn 11117  ax-1cn 11118  ax-icn 11119  ax-addcl 11120  ax-addrcl 11121  ax-mulcl 11122  ax-mulrcl 11123  ax-mulcom 11124  ax-addass 11125  ax-mulass 11126  ax-distr 11127  ax-i2m1 11128  ax-1ne0 11129  ax-1rid 11130  ax-rnegex 11131  ax-rrecex 11132  ax-cnre 11133  ax-pre-lttri 11134  ax-pre-lttrn 11135  ax-pre-ltadd 11136  ax-pre-mulgt0 11137
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-reu 3352  df-rab 3406  df-v 3448  df-sbc 3743  df-csb 3859  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3932  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4871  df-int 4913  df-iun 4961  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6258  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-riota 7318  df-ov 7365  df-oprab 7366  df-mpo 7367  df-om 7808  df-1st 7926  df-2nd 7927  df-frecs 8217  df-wrecs 8248  df-recs 8322  df-rdg 8361  df-1o 8417  df-oadd 8421  df-er 8655  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-card 9884  df-pnf 11200  df-mnf 11201  df-xr 11202  df-ltxr 11203  df-le 11204  df-sub 11396  df-neg 11397  df-nn 12163  df-n0 12423  df-xnn0 12495  df-z 12509  df-uz 12773  df-fz 13435  df-hash 14241
This theorem is referenced by:  hashdomi  14290  hashsdom  14291  hashun2  14293  hashss  14319  hashsslei  14336  hashfun  14347  hashf1  14368  hashge3el3dif  14397  isercoll  15564  phicl2  16651  phibnd  16654  prmreclem2  16800  prmreclem3  16801  4sqlem11  16838  vdwlem11  16874  ramub2  16897  0ram  16903  ram0  16905  sylow1lem4  19397  pgpssslw  19410  fislw  19421  znfld  21004  znidomb  21005  fta1blem  25570  birthdaylem3  26340  basellem4  26470  ppiwordi  26548  musum  26577  ppiub  26589  chpub  26605  lgsqrlem4  26734  upgrex  28106  sizusglecusg  28474  derangenlem  33852  subfaclefac  33857  erdsze2lem1  33884  snmlff  34010  idomsubgmo  41583  aacllem  47368
  Copyright terms: Public domain W3C validator