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

Theorem ptcmpfi 22351
Description: A topological product of finitely many compact spaces is compact. This weak version of Tychonoff's theorem does not require the axiom of choice. (Contributed by Mario Carneiro, 8-Feb-2015.)
Assertion
Ref Expression
ptcmpfi ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t𝐹) ∈ Comp)

Proof of Theorem ptcmpfi
Dummy variables 𝑣 𝑢 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ffn 6508 . . . . 5 (𝐹:𝐴⟶Comp → 𝐹 Fn 𝐴)
2 fnresdm 6460 . . . . 5 (𝐹 Fn 𝐴 → (𝐹𝐴) = 𝐹)
31, 2syl 17 . . . 4 (𝐹:𝐴⟶Comp → (𝐹𝐴) = 𝐹)
43adantl 482 . . 3 ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (𝐹𝐴) = 𝐹)
54fveq2d 6668 . 2 ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) = (∏t𝐹))
6 ssid 3988 . . . 4 𝐴𝐴
7 sseq1 3991 . . . . . 6 (𝑥 = ∅ → (𝑥𝐴 ↔ ∅ ⊆ 𝐴))
8 reseq2 5842 . . . . . . . . . 10 (𝑥 = ∅ → (𝐹𝑥) = (𝐹 ↾ ∅))
9 res0 5851 . . . . . . . . . 10 (𝐹 ↾ ∅) = ∅
108, 9syl6eq 2872 . . . . . . . . 9 (𝑥 = ∅ → (𝐹𝑥) = ∅)
1110fveq2d 6668 . . . . . . . 8 (𝑥 = ∅ → (∏t‘(𝐹𝑥)) = (∏t‘∅))
1211eleq1d 2897 . . . . . . 7 (𝑥 = ∅ → ((∏t‘(𝐹𝑥)) ∈ Comp ↔ (∏t‘∅) ∈ Comp))
1312imbi2d 342 . . . . . 6 (𝑥 = ∅ → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp) ↔ ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘∅) ∈ Comp)))
147, 13imbi12d 346 . . . . 5 (𝑥 = ∅ → ((𝑥𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp)) ↔ (∅ ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘∅) ∈ Comp))))
15 sseq1 3991 . . . . . 6 (𝑥 = 𝑦 → (𝑥𝐴𝑦𝐴))
16 reseq2 5842 . . . . . . . . 9 (𝑥 = 𝑦 → (𝐹𝑥) = (𝐹𝑦))
1716fveq2d 6668 . . . . . . . 8 (𝑥 = 𝑦 → (∏t‘(𝐹𝑥)) = (∏t‘(𝐹𝑦)))
1817eleq1d 2897 . . . . . . 7 (𝑥 = 𝑦 → ((∏t‘(𝐹𝑥)) ∈ Comp ↔ (∏t‘(𝐹𝑦)) ∈ Comp))
1918imbi2d 342 . . . . . 6 (𝑥 = 𝑦 → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp) ↔ ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)))
2015, 19imbi12d 346 . . . . 5 (𝑥 = 𝑦 → ((𝑥𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp)) ↔ (𝑦𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp))))
21 sseq1 3991 . . . . . 6 (𝑥 = (𝑦 ∪ {𝑧}) → (𝑥𝐴 ↔ (𝑦 ∪ {𝑧}) ⊆ 𝐴))
22 reseq2 5842 . . . . . . . . 9 (𝑥 = (𝑦 ∪ {𝑧}) → (𝐹𝑥) = (𝐹 ↾ (𝑦 ∪ {𝑧})))
2322fveq2d 6668 . . . . . . . 8 (𝑥 = (𝑦 ∪ {𝑧}) → (∏t‘(𝐹𝑥)) = (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))))
2423eleq1d 2897 . . . . . . 7 (𝑥 = (𝑦 ∪ {𝑧}) → ((∏t‘(𝐹𝑥)) ∈ Comp ↔ (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))
2524imbi2d 342 . . . . . 6 (𝑥 = (𝑦 ∪ {𝑧}) → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp) ↔ ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp)))
2621, 25imbi12d 346 . . . . 5 (𝑥 = (𝑦 ∪ {𝑧}) → ((𝑥𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp)) ↔ ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))))
27 sseq1 3991 . . . . . 6 (𝑥 = 𝐴 → (𝑥𝐴𝐴𝐴))
28 reseq2 5842 . . . . . . . . 9 (𝑥 = 𝐴 → (𝐹𝑥) = (𝐹𝐴))
2928fveq2d 6668 . . . . . . . 8 (𝑥 = 𝐴 → (∏t‘(𝐹𝑥)) = (∏t‘(𝐹𝐴)))
3029eleq1d 2897 . . . . . . 7 (𝑥 = 𝐴 → ((∏t‘(𝐹𝑥)) ∈ Comp ↔ (∏t‘(𝐹𝐴)) ∈ Comp))
3130imbi2d 342 . . . . . 6 (𝑥 = 𝐴 → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp) ↔ ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp)))
3227, 31imbi12d 346 . . . . 5 (𝑥 = 𝐴 → ((𝑥𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp)) ↔ (𝐴𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp))))
33 0ex 5203 . . . . . . . . 9 ∅ ∈ V
34 f0 6554 . . . . . . . . 9 ∅:∅⟶Top
35 pttop 22120 . . . . . . . . 9 ((∅ ∈ V ∧ ∅:∅⟶Top) → (∏t‘∅) ∈ Top)
3633, 34, 35mp2an 688 . . . . . . . 8 (∏t‘∅) ∈ Top
37 eqid 2821 . . . . . . . . . . . . 13 (∏t‘∅) = (∏t‘∅)
3837ptuni 22132 . . . . . . . . . . . 12 ((∅ ∈ V ∧ ∅:∅⟶Top) → X𝑥 ∈ ∅ (∅‘𝑥) = (∏t‘∅))
3933, 34, 38mp2an 688 . . . . . . . . . . 11 X𝑥 ∈ ∅ (∅‘𝑥) = (∏t‘∅)
40 ixp0x 8479 . . . . . . . . . . . 12 X𝑥 ∈ ∅ (∅‘𝑥) = {∅}
41 snfi 8583 . . . . . . . . . . . 12 {∅} ∈ Fin
4240, 41eqeltri 2909 . . . . . . . . . . 11 X𝑥 ∈ ∅ (∅‘𝑥) ∈ Fin
4339, 42eqeltrri 2910 . . . . . . . . . 10 (∏t‘∅) ∈ Fin
44 pwfi 8808 . . . . . . . . . 10 ( (∏t‘∅) ∈ Fin ↔ 𝒫 (∏t‘∅) ∈ Fin)
4543, 44mpbi 231 . . . . . . . . 9 𝒫 (∏t‘∅) ∈ Fin
46 pwuni 4868 . . . . . . . . 9 (∏t‘∅) ⊆ 𝒫 (∏t‘∅)
47 ssfi 8727 . . . . . . . . 9 ((𝒫 (∏t‘∅) ∈ Fin ∧ (∏t‘∅) ⊆ 𝒫 (∏t‘∅)) → (∏t‘∅) ∈ Fin)
4845, 46, 47mp2an 688 . . . . . . . 8 (∏t‘∅) ∈ Fin
4936, 48elini 4169 . . . . . . 7 (∏t‘∅) ∈ (Top ∩ Fin)
50 fincmp 21931 . . . . . . 7 ((∏t‘∅) ∈ (Top ∩ Fin) → (∏t‘∅) ∈ Comp)
5149, 50ax-mp 5 . . . . . 6 (∏t‘∅) ∈ Comp
52512a1i 12 . . . . 5 (∅ ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘∅) ∈ Comp))
53 ssun1 4147 . . . . . . . . 9 𝑦 ⊆ (𝑦 ∪ {𝑧})
54 id 22 . . . . . . . . 9 ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → (𝑦 ∪ {𝑧}) ⊆ 𝐴)
5553, 54sstrid 3977 . . . . . . . 8 ((𝑦 ∪ {𝑧}) ⊆ 𝐴𝑦𝐴)
5655imim1i 63 . . . . . . 7 ((𝑦𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)) → ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)))
57 eqid 2821 . . . . . . . . . . . . . 14 (∏t‘(𝐹𝑦)) = (∏t‘(𝐹𝑦))
58 eqid 2821 . . . . . . . . . . . . . 14 (∏t‘(𝐹 ↾ {𝑧})) = (∏t‘(𝐹 ↾ {𝑧}))
59 eqid 2821 . . . . . . . . . . . . . 14 (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) = (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧})))
60 resabs1 5877 . . . . . . . . . . . . . . . . 17 (𝑦 ⊆ (𝑦 ∪ {𝑧}) → ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ 𝑦) = (𝐹𝑦))
6153, 60ax-mp 5 . . . . . . . . . . . . . . . 16 ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ 𝑦) = (𝐹𝑦)
6261eqcomi 2830 . . . . . . . . . . . . . . 15 (𝐹𝑦) = ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ 𝑦)
6362fveq2i 6667 . . . . . . . . . . . . . 14 (∏t‘(𝐹𝑦)) = (∏t‘((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ 𝑦))
64 ssun2 4148 . . . . . . . . . . . . . . . . 17 {𝑧} ⊆ (𝑦 ∪ {𝑧})
65 resabs1 5877 . . . . . . . . . . . . . . . . 17 ({𝑧} ⊆ (𝑦 ∪ {𝑧}) → ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ {𝑧}) = (𝐹 ↾ {𝑧}))
6664, 65ax-mp 5 . . . . . . . . . . . . . . . 16 ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ {𝑧}) = (𝐹 ↾ {𝑧})
6766eqcomi 2830 . . . . . . . . . . . . . . 15 (𝐹 ↾ {𝑧}) = ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ {𝑧})
6867fveq2i 6667 . . . . . . . . . . . . . 14 (∏t‘(𝐹 ↾ {𝑧})) = (∏t‘((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ {𝑧}))
69 eqid 2821 . . . . . . . . . . . . . 14 (𝑢 (∏t‘(𝐹𝑦)), 𝑣 (∏t‘(𝐹 ↾ {𝑧})) ↦ (𝑢𝑣)) = (𝑢 (∏t‘(𝐹𝑦)), 𝑣 (∏t‘(𝐹 ↾ {𝑧})) ↦ (𝑢𝑣))
70 vex 3498 . . . . . . . . . . . . . . . 16 𝑦 ∈ V
71 snex 5323 . . . . . . . . . . . . . . . 16 {𝑧} ∈ V
7270, 71unex 7457 . . . . . . . . . . . . . . 15 (𝑦 ∪ {𝑧}) ∈ V
7372a1i 11 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑦 ∪ {𝑧}) ∈ V)
74 simplr 765 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝐹:𝐴⟶Comp)
75 cmptop 21933 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ Comp → 𝑥 ∈ Top)
7675ssriv 3970 . . . . . . . . . . . . . . . 16 Comp ⊆ Top
77 fss 6521 . . . . . . . . . . . . . . . 16 ((𝐹:𝐴⟶Comp ∧ Comp ⊆ Top) → 𝐹:𝐴⟶Top)
7874, 76, 77sylancl 586 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝐹:𝐴⟶Top)
79 simprr 769 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑦 ∪ {𝑧}) ⊆ 𝐴)
8078, 79fssresd 6539 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹 ↾ (𝑦 ∪ {𝑧})):(𝑦 ∪ {𝑧})⟶Top)
81 eqidd 2822 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑦 ∪ {𝑧}) = (𝑦 ∪ {𝑧}))
82 simprl 767 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → ¬ 𝑧𝑦)
83 disjsn 4641 . . . . . . . . . . . . . . 15 ((𝑦 ∩ {𝑧}) = ∅ ↔ ¬ 𝑧𝑦)
8482, 83sylibr 235 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑦 ∩ {𝑧}) = ∅)
8557, 58, 59, 63, 68, 69, 73, 80, 81, 84ptunhmeo 22346 . . . . . . . . . . . . 13 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑢 (∏t‘(𝐹𝑦)), 𝑣 (∏t‘(𝐹 ↾ {𝑧})) ↦ (𝑢𝑣)) ∈ (((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧})))Homeo(∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧})))))
86 hmphi 22315 . . . . . . . . . . . . 13 ((𝑢 (∏t‘(𝐹𝑦)), 𝑣 (∏t‘(𝐹 ↾ {𝑧})) ↦ (𝑢𝑣)) ∈ (((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧})))Homeo(∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧})))) → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ≃ (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))))
8785, 86syl 17 . . . . . . . . . . . 12 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ≃ (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))))
881ad2antlr 723 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝐹 Fn 𝐴)
8964, 79sstrid 3977 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → {𝑧} ⊆ 𝐴)
90 vex 3498 . . . . . . . . . . . . . . . . . 18 𝑧 ∈ V
9190snss 4712 . . . . . . . . . . . . . . . . 17 (𝑧𝐴 ↔ {𝑧} ⊆ 𝐴)
9289, 91sylibr 235 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝑧𝐴)
93 fnressn 6913 . . . . . . . . . . . . . . . 16 ((𝐹 Fn 𝐴𝑧𝐴) → (𝐹 ↾ {𝑧}) = {⟨𝑧, (𝐹𝑧)⟩})
9488, 92, 93syl2anc 584 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹 ↾ {𝑧}) = {⟨𝑧, (𝐹𝑧)⟩})
9594fveq2d 6668 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (∏t‘(𝐹 ↾ {𝑧})) = (∏t‘{⟨𝑧, (𝐹𝑧)⟩}))
96 eqid 2821 . . . . . . . . . . . . . . . . 17 (∏t‘{⟨𝑧, (𝐹𝑧)⟩}) = (∏t‘{⟨𝑧, (𝐹𝑧)⟩})
9790a1i 11 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝑧 ∈ V)
9874, 92ffvelrnd 6845 . . . . . . . . . . . . . . . . . . 19 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹𝑧) ∈ Comp)
9976, 98sseldi 3964 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹𝑧) ∈ Top)
100 toptopon2 21456 . . . . . . . . . . . . . . . . . 18 ((𝐹𝑧) ∈ Top ↔ (𝐹𝑧) ∈ (TopOn‘ (𝐹𝑧)))
10199, 100sylib 219 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹𝑧) ∈ (TopOn‘ (𝐹𝑧)))
10296, 97, 101pt1hmeo 22344 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑥 (𝐹𝑧) ↦ {⟨𝑧, 𝑥⟩}) ∈ ((𝐹𝑧)Homeo(∏t‘{⟨𝑧, (𝐹𝑧)⟩})))
103 hmphi 22315 . . . . . . . . . . . . . . . 16 ((𝑥 (𝐹𝑧) ↦ {⟨𝑧, 𝑥⟩}) ∈ ((𝐹𝑧)Homeo(∏t‘{⟨𝑧, (𝐹𝑧)⟩})) → (𝐹𝑧) ≃ (∏t‘{⟨𝑧, (𝐹𝑧)⟩}))
104102, 103syl 17 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹𝑧) ≃ (∏t‘{⟨𝑧, (𝐹𝑧)⟩}))
105 cmphmph 22326 . . . . . . . . . . . . . . 15 ((𝐹𝑧) ≃ (∏t‘{⟨𝑧, (𝐹𝑧)⟩}) → ((𝐹𝑧) ∈ Comp → (∏t‘{⟨𝑧, (𝐹𝑧)⟩}) ∈ Comp))
106104, 98, 105sylc 65 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (∏t‘{⟨𝑧, (𝐹𝑧)⟩}) ∈ Comp)
10795, 106eqeltrd 2913 . . . . . . . . . . . . 13 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (∏t‘(𝐹 ↾ {𝑧})) ∈ Comp)
108 txcmp 22181 . . . . . . . . . . . . . 14 (((∏t‘(𝐹𝑦)) ∈ Comp ∧ (∏t‘(𝐹 ↾ {𝑧})) ∈ Comp) → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ∈ Comp)
109108expcom 414 . . . . . . . . . . . . 13 ((∏t‘(𝐹 ↾ {𝑧})) ∈ Comp → ((∏t‘(𝐹𝑦)) ∈ Comp → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ∈ Comp))
110107, 109syl 17 . . . . . . . . . . . 12 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → ((∏t‘(𝐹𝑦)) ∈ Comp → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ∈ Comp))
111 cmphmph 22326 . . . . . . . . . . . 12 (((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ≃ (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) → (((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ∈ Comp → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))
11287, 110, 111sylsyld 61 . . . . . . . . . . 11 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → ((∏t‘(𝐹𝑦)) ∈ Comp → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))
113112expcom 414 . . . . . . . . . 10 ((¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴) → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → ((∏t‘(𝐹𝑦)) ∈ Comp → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp)))
114113a2d 29 . . . . . . . . 9 ((¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴) → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp) → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp)))
115114ex 413 . . . . . . . 8 𝑧𝑦 → ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp) → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))))
116115a2d 29 . . . . . . 7 𝑧𝑦 → (((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)) → ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))))
11756, 116syl5 34 . . . . . 6 𝑧𝑦 → ((𝑦𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)) → ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))))
118117adantl 482 . . . . 5 ((𝑦 ∈ Fin ∧ ¬ 𝑧𝑦) → ((𝑦𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)) → ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))))
11914, 20, 26, 32, 52, 118findcard2s 8748 . . . 4 (𝐴 ∈ Fin → (𝐴𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp)))
1206, 119mpi 20 . . 3 (𝐴 ∈ Fin → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp))
121120anabsi5 665 . 2 ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp)
1225, 121eqeltrrd 2914 1 ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t𝐹) ∈ Comp)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396   = wceq 1528  wcel 2105  Vcvv 3495  cun 3933  cin 3934  wss 3935  c0 4290  𝒫 cpw 4537  {csn 4559  cop 4565   cuni 4832   class class class wbr 5058  cmpt 5138  cres 5551   Fn wfn 6344  wf 6345  cfv 6349  (class class class)co 7145  cmpo 7147  Xcixp 8450  Fincfn 8498  tcpt 16702  Topctop 21431  TopOnctopon 21448  Compccmp 21924   ×t ctx 22098  Homeochmeo 22291  chmph 22292
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1787  ax-4 1801  ax-5 1902  ax-6 1961  ax-7 2006  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2151  ax-12 2167  ax-ext 2793  ax-rep 5182  ax-sep 5195  ax-nul 5202  ax-pow 5258  ax-pr 5321  ax-un 7450
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 842  df-3or 1080  df-3an 1081  df-tru 1531  df-ex 1772  df-nf 1776  df-sb 2061  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-reu 3145  df-rab 3147  df-v 3497  df-sbc 3772  df-csb 3883  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-pss 3953  df-nul 4291  df-if 4466  df-pw 4539  df-sn 4560  df-pr 4562  df-tp 4564  df-op 4566  df-uni 4833  df-int 4870  df-iun 4914  df-iin 4915  df-br 5059  df-opab 5121  df-mpt 5139  df-tr 5165  df-id 5454  df-eprel 5459  df-po 5468  df-so 5469  df-fr 5508  df-we 5510  df-xp 5555  df-rel 5556  df-cnv 5557  df-co 5558  df-dm 5559  df-rn 5560  df-res 5561  df-ima 5562  df-pred 6142  df-ord 6188  df-on 6189  df-lim 6190  df-suc 6191  df-iota 6308  df-fun 6351  df-fn 6352  df-f 6353  df-f1 6354  df-fo 6355  df-f1o 6356  df-fv 6357  df-ov 7148  df-oprab 7149  df-mpo 7150  df-om 7569  df-1st 7680  df-2nd 7681  df-wrecs 7938  df-recs 7999  df-rdg 8037  df-1o 8093  df-2o 8094  df-oadd 8097  df-er 8279  df-map 8398  df-ixp 8451  df-en 8499  df-dom 8500  df-sdom 8501  df-fin 8502  df-fi 8864  df-topgen 16707  df-pt 16708  df-top 21432  df-topon 21449  df-bases 21484  df-cn 21765  df-cnp 21766  df-cmp 21925  df-tx 22100  df-hmeo 22293  df-hmph 22294
This theorem is referenced by:  poimirlem30  34804
  Copyright terms: Public domain W3C validator