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

Theorem ptcmpfi 21818
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 6206 . . . . 5 (𝐹:𝐴⟶Comp → 𝐹 Fn 𝐴)
2 fnresdm 6161 . . . . 5 (𝐹 Fn 𝐴 → (𝐹𝐴) = 𝐹)
31, 2syl 17 . . . 4 (𝐹:𝐴⟶Comp → (𝐹𝐴) = 𝐹)
43adantl 473 . . 3 ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (𝐹𝐴) = 𝐹)
54fveq2d 6356 . 2 ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) = (∏t𝐹))
6 ssid 3765 . . . 4 𝐴𝐴
7 sseq1 3767 . . . . . 6 (𝑥 = ∅ → (𝑥𝐴 ↔ ∅ ⊆ 𝐴))
8 reseq2 5546 . . . . . . . . . 10 (𝑥 = ∅ → (𝐹𝑥) = (𝐹 ↾ ∅))
9 res0 5555 . . . . . . . . . 10 (𝐹 ↾ ∅) = ∅
108, 9syl6eq 2810 . . . . . . . . 9 (𝑥 = ∅ → (𝐹𝑥) = ∅)
1110fveq2d 6356 . . . . . . . 8 (𝑥 = ∅ → (∏t‘(𝐹𝑥)) = (∏t‘∅))
1211eleq1d 2824 . . . . . . 7 (𝑥 = ∅ → ((∏t‘(𝐹𝑥)) ∈ Comp ↔ (∏t‘∅) ∈ Comp))
1312imbi2d 329 . . . . . 6 (𝑥 = ∅ → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp) ↔ ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘∅) ∈ Comp)))
147, 13imbi12d 333 . . . . 5 (𝑥 = ∅ → ((𝑥𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp)) ↔ (∅ ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘∅) ∈ Comp))))
15 sseq1 3767 . . . . . 6 (𝑥 = 𝑦 → (𝑥𝐴𝑦𝐴))
16 reseq2 5546 . . . . . . . . 9 (𝑥 = 𝑦 → (𝐹𝑥) = (𝐹𝑦))
1716fveq2d 6356 . . . . . . . 8 (𝑥 = 𝑦 → (∏t‘(𝐹𝑥)) = (∏t‘(𝐹𝑦)))
1817eleq1d 2824 . . . . . . 7 (𝑥 = 𝑦 → ((∏t‘(𝐹𝑥)) ∈ Comp ↔ (∏t‘(𝐹𝑦)) ∈ Comp))
1918imbi2d 329 . . . . . 6 (𝑥 = 𝑦 → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp) ↔ ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)))
2015, 19imbi12d 333 . . . . 5 (𝑥 = 𝑦 → ((𝑥𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp)) ↔ (𝑦𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp))))
21 sseq1 3767 . . . . . 6 (𝑥 = (𝑦 ∪ {𝑧}) → (𝑥𝐴 ↔ (𝑦 ∪ {𝑧}) ⊆ 𝐴))
22 reseq2 5546 . . . . . . . . 9 (𝑥 = (𝑦 ∪ {𝑧}) → (𝐹𝑥) = (𝐹 ↾ (𝑦 ∪ {𝑧})))
2322fveq2d 6356 . . . . . . . 8 (𝑥 = (𝑦 ∪ {𝑧}) → (∏t‘(𝐹𝑥)) = (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))))
2423eleq1d 2824 . . . . . . 7 (𝑥 = (𝑦 ∪ {𝑧}) → ((∏t‘(𝐹𝑥)) ∈ Comp ↔ (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))
2524imbi2d 329 . . . . . 6 (𝑥 = (𝑦 ∪ {𝑧}) → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp) ↔ ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp)))
2621, 25imbi12d 333 . . . . 5 (𝑥 = (𝑦 ∪ {𝑧}) → ((𝑥𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp)) ↔ ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))))
27 sseq1 3767 . . . . . 6 (𝑥 = 𝐴 → (𝑥𝐴𝐴𝐴))
28 reseq2 5546 . . . . . . . . 9 (𝑥 = 𝐴 → (𝐹𝑥) = (𝐹𝐴))
2928fveq2d 6356 . . . . . . . 8 (𝑥 = 𝐴 → (∏t‘(𝐹𝑥)) = (∏t‘(𝐹𝐴)))
3029eleq1d 2824 . . . . . . 7 (𝑥 = 𝐴 → ((∏t‘(𝐹𝑥)) ∈ Comp ↔ (∏t‘(𝐹𝐴)) ∈ Comp))
3130imbi2d 329 . . . . . 6 (𝑥 = 𝐴 → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp) ↔ ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp)))
3227, 31imbi12d 333 . . . . 5 (𝑥 = 𝐴 → ((𝑥𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp)) ↔ (𝐴𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp))))
33 0ex 4942 . . . . . . . . 9 ∅ ∈ V
34 f0 6247 . . . . . . . . 9 ∅:∅⟶Top
35 pttop 21587 . . . . . . . . 9 ((∅ ∈ V ∧ ∅:∅⟶Top) → (∏t‘∅) ∈ Top)
3633, 34, 35mp2an 710 . . . . . . . 8 (∏t‘∅) ∈ Top
37 eqid 2760 . . . . . . . . . . . . 13 (∏t‘∅) = (∏t‘∅)
3837ptuni 21599 . . . . . . . . . . . 12 ((∅ ∈ V ∧ ∅:∅⟶Top) → X𝑥 ∈ ∅ (∅‘𝑥) = (∏t‘∅))
3933, 34, 38mp2an 710 . . . . . . . . . . 11 X𝑥 ∈ ∅ (∅‘𝑥) = (∏t‘∅)
40 ixp0x 8102 . . . . . . . . . . . 12 X𝑥 ∈ ∅ (∅‘𝑥) = {∅}
41 snfi 8203 . . . . . . . . . . . 12 {∅} ∈ Fin
4240, 41eqeltri 2835 . . . . . . . . . . 11 X𝑥 ∈ ∅ (∅‘𝑥) ∈ Fin
4339, 42eqeltrri 2836 . . . . . . . . . 10 (∏t‘∅) ∈ Fin
44 pwfi 8426 . . . . . . . . . 10 ( (∏t‘∅) ∈ Fin ↔ 𝒫 (∏t‘∅) ∈ Fin)
4543, 44mpbi 220 . . . . . . . . 9 𝒫 (∏t‘∅) ∈ Fin
46 pwuni 4626 . . . . . . . . 9 (∏t‘∅) ⊆ 𝒫 (∏t‘∅)
47 ssfi 8345 . . . . . . . . 9 ((𝒫 (∏t‘∅) ∈ Fin ∧ (∏t‘∅) ⊆ 𝒫 (∏t‘∅)) → (∏t‘∅) ∈ Fin)
4845, 46, 47mp2an 710 . . . . . . . 8 (∏t‘∅) ∈ Fin
49 elin 3939 . . . . . . . 8 ((∏t‘∅) ∈ (Top ∩ Fin) ↔ ((∏t‘∅) ∈ Top ∧ (∏t‘∅) ∈ Fin))
5036, 48, 49mpbir2an 993 . . . . . . 7 (∏t‘∅) ∈ (Top ∩ Fin)
51 fincmp 21398 . . . . . . 7 ((∏t‘∅) ∈ (Top ∩ Fin) → (∏t‘∅) ∈ Comp)
5250, 51ax-mp 5 . . . . . 6 (∏t‘∅) ∈ Comp
53522a1i 12 . . . . 5 (∅ ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘∅) ∈ Comp))
54 ssun1 3919 . . . . . . . . 9 𝑦 ⊆ (𝑦 ∪ {𝑧})
55 id 22 . . . . . . . . 9 ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → (𝑦 ∪ {𝑧}) ⊆ 𝐴)
5654, 55syl5ss 3755 . . . . . . . 8 ((𝑦 ∪ {𝑧}) ⊆ 𝐴𝑦𝐴)
5756imim1i 63 . . . . . . 7 ((𝑦𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)) → ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)))
58 eqid 2760 . . . . . . . . . . . . . 14 (∏t‘(𝐹𝑦)) = (∏t‘(𝐹𝑦))
59 eqid 2760 . . . . . . . . . . . . . 14 (∏t‘(𝐹 ↾ {𝑧})) = (∏t‘(𝐹 ↾ {𝑧}))
60 eqid 2760 . . . . . . . . . . . . . 14 (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) = (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧})))
61 resabs1 5585 . . . . . . . . . . . . . . . . 17 (𝑦 ⊆ (𝑦 ∪ {𝑧}) → ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ 𝑦) = (𝐹𝑦))
6254, 61ax-mp 5 . . . . . . . . . . . . . . . 16 ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ 𝑦) = (𝐹𝑦)
6362eqcomi 2769 . . . . . . . . . . . . . . 15 (𝐹𝑦) = ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ 𝑦)
6463fveq2i 6355 . . . . . . . . . . . . . 14 (∏t‘(𝐹𝑦)) = (∏t‘((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ 𝑦))
65 ssun2 3920 . . . . . . . . . . . . . . . . 17 {𝑧} ⊆ (𝑦 ∪ {𝑧})
66 resabs1 5585 . . . . . . . . . . . . . . . . 17 ({𝑧} ⊆ (𝑦 ∪ {𝑧}) → ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ {𝑧}) = (𝐹 ↾ {𝑧}))
6765, 66ax-mp 5 . . . . . . . . . . . . . . . 16 ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ {𝑧}) = (𝐹 ↾ {𝑧})
6867eqcomi 2769 . . . . . . . . . . . . . . 15 (𝐹 ↾ {𝑧}) = ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ {𝑧})
6968fveq2i 6355 . . . . . . . . . . . . . 14 (∏t‘(𝐹 ↾ {𝑧})) = (∏t‘((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ {𝑧}))
70 eqid 2760 . . . . . . . . . . . . . 14 (𝑢 (∏t‘(𝐹𝑦)), 𝑣 (∏t‘(𝐹 ↾ {𝑧})) ↦ (𝑢𝑣)) = (𝑢 (∏t‘(𝐹𝑦)), 𝑣 (∏t‘(𝐹 ↾ {𝑧})) ↦ (𝑢𝑣))
71 vex 3343 . . . . . . . . . . . . . . . 16 𝑦 ∈ V
72 snex 5057 . . . . . . . . . . . . . . . 16 {𝑧} ∈ V
7371, 72unex 7121 . . . . . . . . . . . . . . 15 (𝑦 ∪ {𝑧}) ∈ V
7473a1i 11 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑦 ∪ {𝑧}) ∈ V)
75 simplr 809 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝐹:𝐴⟶Comp)
76 cmptop 21400 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ Comp → 𝑥 ∈ Top)
7776ssriv 3748 . . . . . . . . . . . . . . . 16 Comp ⊆ Top
78 fss 6217 . . . . . . . . . . . . . . . 16 ((𝐹:𝐴⟶Comp ∧ Comp ⊆ Top) → 𝐹:𝐴⟶Top)
7975, 77, 78sylancl 697 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝐹:𝐴⟶Top)
80 simprr 813 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑦 ∪ {𝑧}) ⊆ 𝐴)
8179, 80fssresd 6232 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹 ↾ (𝑦 ∪ {𝑧})):(𝑦 ∪ {𝑧})⟶Top)
82 eqidd 2761 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑦 ∪ {𝑧}) = (𝑦 ∪ {𝑧}))
83 simprl 811 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → ¬ 𝑧𝑦)
84 disjsn 4390 . . . . . . . . . . . . . . 15 ((𝑦 ∩ {𝑧}) = ∅ ↔ ¬ 𝑧𝑦)
8583, 84sylibr 224 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑦 ∩ {𝑧}) = ∅)
8658, 59, 60, 64, 69, 70, 74, 81, 82, 85ptunhmeo 21813 . . . . . . . . . . . . 13 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑢 (∏t‘(𝐹𝑦)), 𝑣 (∏t‘(𝐹 ↾ {𝑧})) ↦ (𝑢𝑣)) ∈ (((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧})))Homeo(∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧})))))
87 hmphi 21782 . . . . . . . . . . . . 13 ((𝑢 (∏t‘(𝐹𝑦)), 𝑣 (∏t‘(𝐹 ↾ {𝑧})) ↦ (𝑢𝑣)) ∈ (((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧})))Homeo(∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧})))) → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ≃ (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))))
8886, 87syl 17 . . . . . . . . . . . 12 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ≃ (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))))
891ad2antlr 765 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝐹 Fn 𝐴)
9065, 80syl5ss 3755 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → {𝑧} ⊆ 𝐴)
91 vex 3343 . . . . . . . . . . . . . . . . . 18 𝑧 ∈ V
9291snss 4460 . . . . . . . . . . . . . . . . 17 (𝑧𝐴 ↔ {𝑧} ⊆ 𝐴)
9390, 92sylibr 224 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝑧𝐴)
94 fnressn 6588 . . . . . . . . . . . . . . . 16 ((𝐹 Fn 𝐴𝑧𝐴) → (𝐹 ↾ {𝑧}) = {⟨𝑧, (𝐹𝑧)⟩})
9589, 93, 94syl2anc 696 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹 ↾ {𝑧}) = {⟨𝑧, (𝐹𝑧)⟩})
9695fveq2d 6356 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (∏t‘(𝐹 ↾ {𝑧})) = (∏t‘{⟨𝑧, (𝐹𝑧)⟩}))
97 eqid 2760 . . . . . . . . . . . . . . . . 17 (∏t‘{⟨𝑧, (𝐹𝑧)⟩}) = (∏t‘{⟨𝑧, (𝐹𝑧)⟩})
9891a1i 11 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝑧 ∈ V)
9975, 93ffvelrnd 6523 . . . . . . . . . . . . . . . . . . 19 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹𝑧) ∈ Comp)
10077, 99sseldi 3742 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹𝑧) ∈ Top)
101 eqid 2760 . . . . . . . . . . . . . . . . . . 19 (𝐹𝑧) = (𝐹𝑧)
102101toptopon 20924 . . . . . . . . . . . . . . . . . 18 ((𝐹𝑧) ∈ Top ↔ (𝐹𝑧) ∈ (TopOn‘ (𝐹𝑧)))
103100, 102sylib 208 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹𝑧) ∈ (TopOn‘ (𝐹𝑧)))
10497, 98, 103pt1hmeo 21811 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑥 (𝐹𝑧) ↦ {⟨𝑧, 𝑥⟩}) ∈ ((𝐹𝑧)Homeo(∏t‘{⟨𝑧, (𝐹𝑧)⟩})))
105 hmphi 21782 . . . . . . . . . . . . . . . 16 ((𝑥 (𝐹𝑧) ↦ {⟨𝑧, 𝑥⟩}) ∈ ((𝐹𝑧)Homeo(∏t‘{⟨𝑧, (𝐹𝑧)⟩})) → (𝐹𝑧) ≃ (∏t‘{⟨𝑧, (𝐹𝑧)⟩}))
106104, 105syl 17 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹𝑧) ≃ (∏t‘{⟨𝑧, (𝐹𝑧)⟩}))
107 cmphmph 21793 . . . . . . . . . . . . . . 15 ((𝐹𝑧) ≃ (∏t‘{⟨𝑧, (𝐹𝑧)⟩}) → ((𝐹𝑧) ∈ Comp → (∏t‘{⟨𝑧, (𝐹𝑧)⟩}) ∈ Comp))
108106, 99, 107sylc 65 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (∏t‘{⟨𝑧, (𝐹𝑧)⟩}) ∈ Comp)
10996, 108eqeltrd 2839 . . . . . . . . . . . . 13 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (∏t‘(𝐹 ↾ {𝑧})) ∈ Comp)
110 txcmp 21648 . . . . . . . . . . . . . 14 (((∏t‘(𝐹𝑦)) ∈ Comp ∧ (∏t‘(𝐹 ↾ {𝑧})) ∈ Comp) → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ∈ Comp)
111110expcom 450 . . . . . . . . . . . . 13 ((∏t‘(𝐹 ↾ {𝑧})) ∈ Comp → ((∏t‘(𝐹𝑦)) ∈ Comp → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ∈ Comp))
112109, 111syl 17 . . . . . . . . . . . 12 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → ((∏t‘(𝐹𝑦)) ∈ Comp → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ∈ Comp))
113 cmphmph 21793 . . . . . . . . . . . 12 (((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ≃ (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) → (((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ∈ Comp → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))
11488, 112, 113sylsyld 61 . . . . . . . . . . 11 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → ((∏t‘(𝐹𝑦)) ∈ Comp → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))
115114expcom 450 . . . . . . . . . 10 ((¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴) → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → ((∏t‘(𝐹𝑦)) ∈ Comp → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp)))
116115a2d 29 . . . . . . . . 9 ((¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴) → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp) → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp)))
117116ex 449 . . . . . . . 8 𝑧𝑦 → ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp) → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))))
118117a2d 29 . . . . . . 7 𝑧𝑦 → (((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)) → ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))))
11957, 118syl5 34 . . . . . 6 𝑧𝑦 → ((𝑦𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)) → ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))))
120119adantl 473 . . . . 5 ((𝑦 ∈ Fin ∧ ¬ 𝑧𝑦) → ((𝑦𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)) → ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))))
12114, 20, 26, 32, 53, 120findcard2s 8366 . . . 4 (𝐴 ∈ Fin → (𝐴𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp)))
1226, 121mpi 20 . . 3 (𝐴 ∈ Fin → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp))
123122anabsi5 893 . 2 ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp)
1245, 123eqeltrrd 2840 1 ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t𝐹) ∈ Comp)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 383   = wceq 1632  wcel 2139  Vcvv 3340  cun 3713  cin 3714  wss 3715  c0 4058  𝒫 cpw 4302  {csn 4321  cop 4327   cuni 4588   class class class wbr 4804  cmpt 4881  cres 5268   Fn wfn 6044  wf 6045  cfv 6049  (class class class)co 6813  cmpt2 6815  Xcixp 8074  Fincfn 8121  tcpt 16301  Topctop 20900  TopOnctopon 20917  Compccmp 21391   ×t ctx 21565  Homeochmeo 21758  chmph 21759
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1988  ax-6 2054  ax-7 2090  ax-8 2141  ax-9 2148  ax-10 2168  ax-11 2183  ax-12 2196  ax-13 2391  ax-ext 2740  ax-rep 4923  ax-sep 4933  ax-nul 4941  ax-pow 4992  ax-pr 5055  ax-un 7114
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1635  df-ex 1854  df-nf 1859  df-sb 2047  df-eu 2611  df-mo 2612  df-clab 2747  df-cleq 2753  df-clel 2756  df-nfc 2891  df-ne 2933  df-ral 3055  df-rex 3056  df-reu 3057  df-rab 3059  df-v 3342  df-sbc 3577  df-csb 3675  df-dif 3718  df-un 3720  df-in 3722  df-ss 3729  df-pss 3731  df-nul 4059  df-if 4231  df-pw 4304  df-sn 4322  df-pr 4324  df-tp 4326  df-op 4328  df-uni 4589  df-int 4628  df-iun 4674  df-iin 4675  df-br 4805  df-opab 4865  df-mpt 4882  df-tr 4905  df-id 5174  df-eprel 5179  df-po 5187  df-so 5188  df-fr 5225  df-we 5227  df-xp 5272  df-rel 5273  df-cnv 5274  df-co 5275  df-dm 5276  df-rn 5277  df-res 5278  df-ima 5279  df-pred 5841  df-ord 5887  df-on 5888  df-lim 5889  df-suc 5890  df-iota 6012  df-fun 6051  df-fn 6052  df-f 6053  df-f1 6054  df-fo 6055  df-f1o 6056  df-fv 6057  df-ov 6816  df-oprab 6817  df-mpt2 6818  df-om 7231  df-1st 7333  df-2nd 7334  df-wrecs 7576  df-recs 7637  df-rdg 7675  df-1o 7729  df-2o 7730  df-oadd 7733  df-er 7911  df-map 8025  df-ixp 8075  df-en 8122  df-dom 8123  df-sdom 8124  df-fin 8125  df-fi 8482  df-topgen 16306  df-pt 16307  df-top 20901  df-topon 20918  df-bases 20952  df-cn 21233  df-cnp 21234  df-cmp 21392  df-tx 21567  df-hmeo 21760  df-hmph 21761
This theorem is referenced by:  poimirlem30  33752
  Copyright terms: Public domain W3C validator