Metamath Proof Explorer


Theorem ackbij1lem10

Description: Lemma for ackbij1 . (Contributed by Stefan O'Rear, 18-Nov-2014)

Ref Expression
Hypothesis ackbij.f 𝐹 = ( 𝑥 ∈ ( 𝒫 ω ∩ Fin ) ↦ ( card ‘ 𝑦𝑥 ( { 𝑦 } × 𝒫 𝑦 ) ) )
Assertion ackbij1lem10 𝐹 : ( 𝒫 ω ∩ Fin ) ⟶ ω

Proof

Step Hyp Ref Expression
1 ackbij.f 𝐹 = ( 𝑥 ∈ ( 𝒫 ω ∩ Fin ) ↦ ( card ‘ 𝑦𝑥 ( { 𝑦 } × 𝒫 𝑦 ) ) )
2 elinel2 ( 𝑥 ∈ ( 𝒫 ω ∩ Fin ) → 𝑥 ∈ Fin )
3 snfi { 𝑦 } ∈ Fin
4 elinel1 ( 𝑥 ∈ ( 𝒫 ω ∩ Fin ) → 𝑥 ∈ 𝒫 ω )
5 4 elpwid ( 𝑥 ∈ ( 𝒫 ω ∩ Fin ) → 𝑥 ⊆ ω )
6 onfin2 ω = ( On ∩ Fin )
7 inss2 ( On ∩ Fin ) ⊆ Fin
8 6 7 eqsstri ω ⊆ Fin
9 5 8 sstrdi ( 𝑥 ∈ ( 𝒫 ω ∩ Fin ) → 𝑥 ⊆ Fin )
10 9 sselda ( ( 𝑥 ∈ ( 𝒫 ω ∩ Fin ) ∧ 𝑦𝑥 ) → 𝑦 ∈ Fin )
11 pwfi ( 𝑦 ∈ Fin ↔ 𝒫 𝑦 ∈ Fin )
12 10 11 sylib ( ( 𝑥 ∈ ( 𝒫 ω ∩ Fin ) ∧ 𝑦𝑥 ) → 𝒫 𝑦 ∈ Fin )
13 xpfi ( ( { 𝑦 } ∈ Fin ∧ 𝒫 𝑦 ∈ Fin ) → ( { 𝑦 } × 𝒫 𝑦 ) ∈ Fin )
14 3 12 13 sylancr ( ( 𝑥 ∈ ( 𝒫 ω ∩ Fin ) ∧ 𝑦𝑥 ) → ( { 𝑦 } × 𝒫 𝑦 ) ∈ Fin )
15 14 ralrimiva ( 𝑥 ∈ ( 𝒫 ω ∩ Fin ) → ∀ 𝑦𝑥 ( { 𝑦 } × 𝒫 𝑦 ) ∈ Fin )
16 iunfi ( ( 𝑥 ∈ Fin ∧ ∀ 𝑦𝑥 ( { 𝑦 } × 𝒫 𝑦 ) ∈ Fin ) → 𝑦𝑥 ( { 𝑦 } × 𝒫 𝑦 ) ∈ Fin )
17 2 15 16 syl2anc ( 𝑥 ∈ ( 𝒫 ω ∩ Fin ) → 𝑦𝑥 ( { 𝑦 } × 𝒫 𝑦 ) ∈ Fin )
18 ficardom ( 𝑦𝑥 ( { 𝑦 } × 𝒫 𝑦 ) ∈ Fin → ( card ‘ 𝑦𝑥 ( { 𝑦 } × 𝒫 𝑦 ) ) ∈ ω )
19 17 18 syl ( 𝑥 ∈ ( 𝒫 ω ∩ Fin ) → ( card ‘ 𝑦𝑥 ( { 𝑦 } × 𝒫 𝑦 ) ) ∈ ω )
20 1 19 fmpti 𝐹 : ( 𝒫 ω ∩ Fin ) ⟶ ω