Metamath Proof Explorer


Theorem fin23lem32

Description: Lemma for fin23 . Wrap the previous construction into a function to hide the hypotheses. (Contributed by Stefan O'Rear, 2-Nov-2014)

Ref Expression
Hypotheses fin23lem.a 𝑈 = seqω ( ( 𝑖 ∈ ω , 𝑢 ∈ V ↦ if ( ( ( 𝑡𝑖 ) ∩ 𝑢 ) = ∅ , 𝑢 , ( ( 𝑡𝑖 ) ∩ 𝑢 ) ) ) , ran 𝑡 )
fin23lem17.f 𝐹 = { 𝑔 ∣ ∀ 𝑎 ∈ ( 𝒫 𝑔m ω ) ( ∀ 𝑥 ∈ ω ( 𝑎 ‘ suc 𝑥 ) ⊆ ( 𝑎𝑥 ) → ran 𝑎 ∈ ran 𝑎 ) }
fin23lem.b 𝑃 = { 𝑣 ∈ ω ∣ ran 𝑈 ⊆ ( 𝑡𝑣 ) }
fin23lem.c 𝑄 = ( 𝑤 ∈ ω ↦ ( 𝑥𝑃 ( 𝑥𝑃 ) ≈ 𝑤 ) )
fin23lem.d 𝑅 = ( 𝑤 ∈ ω ↦ ( 𝑥 ∈ ( ω ∖ 𝑃 ) ( 𝑥 ∩ ( ω ∖ 𝑃 ) ) ≈ 𝑤 ) )
fin23lem.e 𝑍 = if ( 𝑃 ∈ Fin , ( 𝑡𝑅 ) , ( ( 𝑧𝑃 ↦ ( ( 𝑡𝑧 ) ∖ ran 𝑈 ) ) ∘ 𝑄 ) )
Assertion fin23lem32 ( 𝐺𝐹 → ∃ 𝑓𝑏 ( ( 𝑏 : ω –1-1→ V ∧ ran 𝑏𝐺 ) → ( ( 𝑓𝑏 ) : ω –1-1→ V ∧ ran ( 𝑓𝑏 ) ⊊ ran 𝑏 ) ) )

Proof

Step Hyp Ref Expression
1 fin23lem.a 𝑈 = seqω ( ( 𝑖 ∈ ω , 𝑢 ∈ V ↦ if ( ( ( 𝑡𝑖 ) ∩ 𝑢 ) = ∅ , 𝑢 , ( ( 𝑡𝑖 ) ∩ 𝑢 ) ) ) , ran 𝑡 )
2 fin23lem17.f 𝐹 = { 𝑔 ∣ ∀ 𝑎 ∈ ( 𝒫 𝑔m ω ) ( ∀ 𝑥 ∈ ω ( 𝑎 ‘ suc 𝑥 ) ⊆ ( 𝑎𝑥 ) → ran 𝑎 ∈ ran 𝑎 ) }
3 fin23lem.b 𝑃 = { 𝑣 ∈ ω ∣ ran 𝑈 ⊆ ( 𝑡𝑣 ) }
4 fin23lem.c 𝑄 = ( 𝑤 ∈ ω ↦ ( 𝑥𝑃 ( 𝑥𝑃 ) ≈ 𝑤 ) )
5 fin23lem.d 𝑅 = ( 𝑤 ∈ ω ↦ ( 𝑥 ∈ ( ω ∖ 𝑃 ) ( 𝑥 ∩ ( ω ∖ 𝑃 ) ) ≈ 𝑤 ) )
6 fin23lem.e 𝑍 = if ( 𝑃 ∈ Fin , ( 𝑡𝑅 ) , ( ( 𝑧𝑃 ↦ ( ( 𝑡𝑧 ) ∖ ran 𝑈 ) ) ∘ 𝑄 ) )
7 1 2 3 4 5 6 fin23lem28 ( 𝑡 : ω –1-1→ V → 𝑍 : ω –1-1→ V )
8 7 ad2antrl ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → 𝑍 : ω –1-1→ V )
9 simprl ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → 𝑡 : ω –1-1→ V )
10 simpl ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → 𝐺𝐹 )
11 simprr ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → ran 𝑡𝐺 )
12 1 2 3 4 5 6 fin23lem31 ( ( 𝑡 : ω –1-1→ V ∧ 𝐺𝐹 ran 𝑡𝐺 ) → ran 𝑍 ran 𝑡 )
13 9 10 11 12 syl3anc ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → ran 𝑍 ran 𝑡 )
14 f1fn ( 𝑡 : ω –1-1→ V → 𝑡 Fn ω )
15 dffn3 ( 𝑡 Fn ω ↔ 𝑡 : ω ⟶ ran 𝑡 )
16 14 15 sylib ( 𝑡 : ω –1-1→ V → 𝑡 : ω ⟶ ran 𝑡 )
17 16 ad2antrl ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → 𝑡 : ω ⟶ ran 𝑡 )
18 sspwuni ( ran 𝑡 ⊆ 𝒫 𝐺 ran 𝑡𝐺 )
19 18 biimpri ( ran 𝑡𝐺 → ran 𝑡 ⊆ 𝒫 𝐺 )
20 19 ad2antll ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → ran 𝑡 ⊆ 𝒫 𝐺 )
21 17 20 fssd ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → 𝑡 : ω ⟶ 𝒫 𝐺 )
22 pwexg ( 𝐺𝐹 → 𝒫 𝐺 ∈ V )
23 22 adantr ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → 𝒫 𝐺 ∈ V )
24 vex 𝑡 ∈ V
25 f1f ( 𝑡 : ω –1-1→ V → 𝑡 : ω ⟶ V )
26 dmfex ( ( 𝑡 ∈ V ∧ 𝑡 : ω ⟶ V ) → ω ∈ V )
27 24 25 26 sylancr ( 𝑡 : ω –1-1→ V → ω ∈ V )
28 27 ad2antrl ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → ω ∈ V )
29 23 28 elmapd ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↔ 𝑡 : ω ⟶ 𝒫 𝐺 ) )
30 21 29 mpbird ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → 𝑡 ∈ ( 𝒫 𝐺m ω ) )
31 f1f ( 𝑍 : ω –1-1→ V → 𝑍 : ω ⟶ V )
32 8 31 syl ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → 𝑍 : ω ⟶ V )
33 fex ( ( 𝑍 : ω ⟶ V ∧ ω ∈ V ) → 𝑍 ∈ V )
34 32 28 33 syl2anc ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → 𝑍 ∈ V )
35 eqid ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) = ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 )
36 35 fvmpt2 ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ∧ 𝑍 ∈ V ) → ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) = 𝑍 )
37 30 34 36 syl2anc ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) = 𝑍 )
38 f1eq1 ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) = 𝑍 → ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) : ω –1-1→ V ↔ 𝑍 : ω –1-1→ V ) )
39 rneq ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) = 𝑍 → ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) = ran 𝑍 )
40 39 unieqd ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) = 𝑍 ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) = ran 𝑍 )
41 40 psseq1d ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) = 𝑍 → ( ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) ⊊ ran 𝑡 ran 𝑍 ran 𝑡 ) )
42 38 41 anbi12d ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) = 𝑍 → ( ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) : ω –1-1→ V ∧ ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) ⊊ ran 𝑡 ) ↔ ( 𝑍 : ω –1-1→ V ∧ ran 𝑍 ran 𝑡 ) ) )
43 37 42 syl ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → ( ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) : ω –1-1→ V ∧ ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) ⊊ ran 𝑡 ) ↔ ( 𝑍 : ω –1-1→ V ∧ ran 𝑍 ran 𝑡 ) ) )
44 8 13 43 mpbir2and ( ( 𝐺𝐹 ∧ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) → ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) : ω –1-1→ V ∧ ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) ⊊ ran 𝑡 ) )
45 44 ex ( 𝐺𝐹 → ( ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) → ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) : ω –1-1→ V ∧ ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) ⊊ ran 𝑡 ) ) )
46 45 alrimiv ( 𝐺𝐹 → ∀ 𝑡 ( ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) → ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) : ω –1-1→ V ∧ ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) ⊊ ran 𝑡 ) ) )
47 ovex ( 𝒫 𝐺m ω ) ∈ V
48 47 mptex ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ∈ V
49 nfmpt1 𝑡 ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 )
50 49 nfeq2 𝑡 𝑓 = ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 )
51 fveq1 ( 𝑓 = ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) → ( 𝑓𝑡 ) = ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) )
52 f1eq1 ( ( 𝑓𝑡 ) = ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) → ( ( 𝑓𝑡 ) : ω –1-1→ V ↔ ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) : ω –1-1→ V ) )
53 51 52 syl ( 𝑓 = ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) → ( ( 𝑓𝑡 ) : ω –1-1→ V ↔ ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) : ω –1-1→ V ) )
54 51 rneqd ( 𝑓 = ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) → ran ( 𝑓𝑡 ) = ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) )
55 54 unieqd ( 𝑓 = ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) → ran ( 𝑓𝑡 ) = ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) )
56 55 psseq1d ( 𝑓 = ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) → ( ran ( 𝑓𝑡 ) ⊊ ran 𝑡 ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) ⊊ ran 𝑡 ) )
57 53 56 anbi12d ( 𝑓 = ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) → ( ( ( 𝑓𝑡 ) : ω –1-1→ V ∧ ran ( 𝑓𝑡 ) ⊊ ran 𝑡 ) ↔ ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) : ω –1-1→ V ∧ ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) ⊊ ran 𝑡 ) ) )
58 57 imbi2d ( 𝑓 = ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) → ( ( ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) → ( ( 𝑓𝑡 ) : ω –1-1→ V ∧ ran ( 𝑓𝑡 ) ⊊ ran 𝑡 ) ) ↔ ( ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) → ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) : ω –1-1→ V ∧ ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) ⊊ ran 𝑡 ) ) ) )
59 50 58 albid ( 𝑓 = ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) → ( ∀ 𝑡 ( ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) → ( ( 𝑓𝑡 ) : ω –1-1→ V ∧ ran ( 𝑓𝑡 ) ⊊ ran 𝑡 ) ) ↔ ∀ 𝑡 ( ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) → ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) : ω –1-1→ V ∧ ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) ⊊ ran 𝑡 ) ) ) )
60 48 59 spcev ( ∀ 𝑡 ( ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) → ( ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) : ω –1-1→ V ∧ ran ( ( 𝑡 ∈ ( 𝒫 𝐺m ω ) ↦ 𝑍 ) ‘ 𝑡 ) ⊊ ran 𝑡 ) ) → ∃ 𝑓𝑡 ( ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) → ( ( 𝑓𝑡 ) : ω –1-1→ V ∧ ran ( 𝑓𝑡 ) ⊊ ran 𝑡 ) ) )
61 46 60 syl ( 𝐺𝐹 → ∃ 𝑓𝑡 ( ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) → ( ( 𝑓𝑡 ) : ω –1-1→ V ∧ ran ( 𝑓𝑡 ) ⊊ ran 𝑡 ) ) )
62 f1eq1 ( 𝑏 = 𝑡 → ( 𝑏 : ω –1-1→ V ↔ 𝑡 : ω –1-1→ V ) )
63 rneq ( 𝑏 = 𝑡 → ran 𝑏 = ran 𝑡 )
64 63 unieqd ( 𝑏 = 𝑡 ran 𝑏 = ran 𝑡 )
65 64 sseq1d ( 𝑏 = 𝑡 → ( ran 𝑏𝐺 ran 𝑡𝐺 ) )
66 62 65 anbi12d ( 𝑏 = 𝑡 → ( ( 𝑏 : ω –1-1→ V ∧ ran 𝑏𝐺 ) ↔ ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) ) )
67 fveq2 ( 𝑏 = 𝑡 → ( 𝑓𝑏 ) = ( 𝑓𝑡 ) )
68 f1eq1 ( ( 𝑓𝑏 ) = ( 𝑓𝑡 ) → ( ( 𝑓𝑏 ) : ω –1-1→ V ↔ ( 𝑓𝑡 ) : ω –1-1→ V ) )
69 67 68 syl ( 𝑏 = 𝑡 → ( ( 𝑓𝑏 ) : ω –1-1→ V ↔ ( 𝑓𝑡 ) : ω –1-1→ V ) )
70 67 rneqd ( 𝑏 = 𝑡 → ran ( 𝑓𝑏 ) = ran ( 𝑓𝑡 ) )
71 70 unieqd ( 𝑏 = 𝑡 ran ( 𝑓𝑏 ) = ran ( 𝑓𝑡 ) )
72 71 64 psseq12d ( 𝑏 = 𝑡 → ( ran ( 𝑓𝑏 ) ⊊ ran 𝑏 ran ( 𝑓𝑡 ) ⊊ ran 𝑡 ) )
73 69 72 anbi12d ( 𝑏 = 𝑡 → ( ( ( 𝑓𝑏 ) : ω –1-1→ V ∧ ran ( 𝑓𝑏 ) ⊊ ran 𝑏 ) ↔ ( ( 𝑓𝑡 ) : ω –1-1→ V ∧ ran ( 𝑓𝑡 ) ⊊ ran 𝑡 ) ) )
74 66 73 imbi12d ( 𝑏 = 𝑡 → ( ( ( 𝑏 : ω –1-1→ V ∧ ran 𝑏𝐺 ) → ( ( 𝑓𝑏 ) : ω –1-1→ V ∧ ran ( 𝑓𝑏 ) ⊊ ran 𝑏 ) ) ↔ ( ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) → ( ( 𝑓𝑡 ) : ω –1-1→ V ∧ ran ( 𝑓𝑡 ) ⊊ ran 𝑡 ) ) ) )
75 74 cbvalvw ( ∀ 𝑏 ( ( 𝑏 : ω –1-1→ V ∧ ran 𝑏𝐺 ) → ( ( 𝑓𝑏 ) : ω –1-1→ V ∧ ran ( 𝑓𝑏 ) ⊊ ran 𝑏 ) ) ↔ ∀ 𝑡 ( ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) → ( ( 𝑓𝑡 ) : ω –1-1→ V ∧ ran ( 𝑓𝑡 ) ⊊ ran 𝑡 ) ) )
76 75 exbii ( ∃ 𝑓𝑏 ( ( 𝑏 : ω –1-1→ V ∧ ran 𝑏𝐺 ) → ( ( 𝑓𝑏 ) : ω –1-1→ V ∧ ran ( 𝑓𝑏 ) ⊊ ran 𝑏 ) ) ↔ ∃ 𝑓𝑡 ( ( 𝑡 : ω –1-1→ V ∧ ran 𝑡𝐺 ) → ( ( 𝑓𝑡 ) : ω –1-1→ V ∧ ran ( 𝑓𝑡 ) ⊊ ran 𝑡 ) ) )
77 61 76 sylibr ( 𝐺𝐹 → ∃ 𝑓𝑏 ( ( 𝑏 : ω –1-1→ V ∧ ran 𝑏𝐺 ) → ( ( 𝑓𝑏 ) : ω –1-1→ V ∧ ran ( 𝑓𝑏 ) ⊊ ran 𝑏 ) ) )