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

Theorem ptcmpfi 21521
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 6004 . . . . 5 (𝐹:𝐴⟶Comp → 𝐹 Fn 𝐴)
2 fnresdm 5960 . . . . 5 (𝐹 Fn 𝐴 → (𝐹𝐴) = 𝐹)
31, 2syl 17 . . . 4 (𝐹:𝐴⟶Comp → (𝐹𝐴) = 𝐹)
43adantl 482 . . 3 ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (𝐹𝐴) = 𝐹)
54fveq2d 6154 . 2 ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) = (∏t𝐹))
6 ssid 3608 . . . 4 𝐴𝐴
7 sseq1 3610 . . . . . 6 (𝑥 = ∅ → (𝑥𝐴 ↔ ∅ ⊆ 𝐴))
8 reseq2 5355 . . . . . . . . . 10 (𝑥 = ∅ → (𝐹𝑥) = (𝐹 ↾ ∅))
9 res0 5364 . . . . . . . . . 10 (𝐹 ↾ ∅) = ∅
108, 9syl6eq 2676 . . . . . . . . 9 (𝑥 = ∅ → (𝐹𝑥) = ∅)
1110fveq2d 6154 . . . . . . . 8 (𝑥 = ∅ → (∏t‘(𝐹𝑥)) = (∏t‘∅))
1211eleq1d 2688 . . . . . . 7 (𝑥 = ∅ → ((∏t‘(𝐹𝑥)) ∈ Comp ↔ (∏t‘∅) ∈ Comp))
1312imbi2d 330 . . . . . 6 (𝑥 = ∅ → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp) ↔ ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘∅) ∈ Comp)))
147, 13imbi12d 334 . . . . 5 (𝑥 = ∅ → ((𝑥𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp)) ↔ (∅ ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘∅) ∈ Comp))))
15 sseq1 3610 . . . . . 6 (𝑥 = 𝑦 → (𝑥𝐴𝑦𝐴))
16 reseq2 5355 . . . . . . . . 9 (𝑥 = 𝑦 → (𝐹𝑥) = (𝐹𝑦))
1716fveq2d 6154 . . . . . . . 8 (𝑥 = 𝑦 → (∏t‘(𝐹𝑥)) = (∏t‘(𝐹𝑦)))
1817eleq1d 2688 . . . . . . 7 (𝑥 = 𝑦 → ((∏t‘(𝐹𝑥)) ∈ Comp ↔ (∏t‘(𝐹𝑦)) ∈ Comp))
1918imbi2d 330 . . . . . 6 (𝑥 = 𝑦 → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp) ↔ ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)))
2015, 19imbi12d 334 . . . . 5 (𝑥 = 𝑦 → ((𝑥𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp)) ↔ (𝑦𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp))))
21 sseq1 3610 . . . . . 6 (𝑥 = (𝑦 ∪ {𝑧}) → (𝑥𝐴 ↔ (𝑦 ∪ {𝑧}) ⊆ 𝐴))
22 reseq2 5355 . . . . . . . . 9 (𝑥 = (𝑦 ∪ {𝑧}) → (𝐹𝑥) = (𝐹 ↾ (𝑦 ∪ {𝑧})))
2322fveq2d 6154 . . . . . . . 8 (𝑥 = (𝑦 ∪ {𝑧}) → (∏t‘(𝐹𝑥)) = (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))))
2423eleq1d 2688 . . . . . . 7 (𝑥 = (𝑦 ∪ {𝑧}) → ((∏t‘(𝐹𝑥)) ∈ Comp ↔ (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))
2524imbi2d 330 . . . . . 6 (𝑥 = (𝑦 ∪ {𝑧}) → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp) ↔ ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp)))
2621, 25imbi12d 334 . . . . 5 (𝑥 = (𝑦 ∪ {𝑧}) → ((𝑥𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp)) ↔ ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))))
27 sseq1 3610 . . . . . 6 (𝑥 = 𝐴 → (𝑥𝐴𝐴𝐴))
28 reseq2 5355 . . . . . . . . 9 (𝑥 = 𝐴 → (𝐹𝑥) = (𝐹𝐴))
2928fveq2d 6154 . . . . . . . 8 (𝑥 = 𝐴 → (∏t‘(𝐹𝑥)) = (∏t‘(𝐹𝐴)))
3029eleq1d 2688 . . . . . . 7 (𝑥 = 𝐴 → ((∏t‘(𝐹𝑥)) ∈ Comp ↔ (∏t‘(𝐹𝐴)) ∈ Comp))
3130imbi2d 330 . . . . . 6 (𝑥 = 𝐴 → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp) ↔ ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp)))
3227, 31imbi12d 334 . . . . 5 (𝑥 = 𝐴 → ((𝑥𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑥)) ∈ Comp)) ↔ (𝐴𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp))))
33 0ex 4755 . . . . . . . . 9 ∅ ∈ V
34 f0 6045 . . . . . . . . 9 ∅:∅⟶Top
35 pttop 21290 . . . . . . . . 9 ((∅ ∈ V ∧ ∅:∅⟶Top) → (∏t‘∅) ∈ Top)
3633, 34, 35mp2an 707 . . . . . . . 8 (∏t‘∅) ∈ Top
37 eqid 2626 . . . . . . . . . . . . 13 (∏t‘∅) = (∏t‘∅)
3837ptuni 21302 . . . . . . . . . . . 12 ((∅ ∈ V ∧ ∅:∅⟶Top) → X𝑥 ∈ ∅ (∅‘𝑥) = (∏t‘∅))
3933, 34, 38mp2an 707 . . . . . . . . . . 11 X𝑥 ∈ ∅ (∅‘𝑥) = (∏t‘∅)
40 ixp0x 7881 . . . . . . . . . . . 12 X𝑥 ∈ ∅ (∅‘𝑥) = {∅}
41 snfi 7983 . . . . . . . . . . . 12 {∅} ∈ Fin
4240, 41eqeltri 2700 . . . . . . . . . . 11 X𝑥 ∈ ∅ (∅‘𝑥) ∈ Fin
4339, 42eqeltrri 2701 . . . . . . . . . 10 (∏t‘∅) ∈ Fin
44 pwfi 8206 . . . . . . . . . 10 ( (∏t‘∅) ∈ Fin ↔ 𝒫 (∏t‘∅) ∈ Fin)
4543, 44mpbi 220 . . . . . . . . 9 𝒫 (∏t‘∅) ∈ Fin
46 pwuni 4864 . . . . . . . . 9 (∏t‘∅) ⊆ 𝒫 (∏t‘∅)
47 ssfi 8125 . . . . . . . . 9 ((𝒫 (∏t‘∅) ∈ Fin ∧ (∏t‘∅) ⊆ 𝒫 (∏t‘∅)) → (∏t‘∅) ∈ Fin)
4845, 46, 47mp2an 707 . . . . . . . 8 (∏t‘∅) ∈ Fin
49 elin 3779 . . . . . . . 8 ((∏t‘∅) ∈ (Top ∩ Fin) ↔ ((∏t‘∅) ∈ Top ∧ (∏t‘∅) ∈ Fin))
5036, 48, 49mpbir2an 954 . . . . . . 7 (∏t‘∅) ∈ (Top ∩ Fin)
51 fincmp 21101 . . . . . . 7 ((∏t‘∅) ∈ (Top ∩ Fin) → (∏t‘∅) ∈ Comp)
5250, 51ax-mp 5 . . . . . 6 (∏t‘∅) ∈ Comp
53522a1i 12 . . . . 5 (∅ ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘∅) ∈ Comp))
54 ssun1 3759 . . . . . . . . 9 𝑦 ⊆ (𝑦 ∪ {𝑧})
55 id 22 . . . . . . . . 9 ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → (𝑦 ∪ {𝑧}) ⊆ 𝐴)
5654, 55syl5ss 3599 . . . . . . . 8 ((𝑦 ∪ {𝑧}) ⊆ 𝐴𝑦𝐴)
5756imim1i 63 . . . . . . 7 ((𝑦𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)) → ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)))
58 eqid 2626 . . . . . . . . . . . . . 14 (∏t‘(𝐹𝑦)) = (∏t‘(𝐹𝑦))
59 eqid 2626 . . . . . . . . . . . . . 14 (∏t‘(𝐹 ↾ {𝑧})) = (∏t‘(𝐹 ↾ {𝑧}))
60 eqid 2626 . . . . . . . . . . . . . 14 (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) = (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧})))
61 resabs1 5390 . . . . . . . . . . . . . . . . 17 (𝑦 ⊆ (𝑦 ∪ {𝑧}) → ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ 𝑦) = (𝐹𝑦))
6254, 61ax-mp 5 . . . . . . . . . . . . . . . 16 ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ 𝑦) = (𝐹𝑦)
6362eqcomi 2635 . . . . . . . . . . . . . . 15 (𝐹𝑦) = ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ 𝑦)
6463fveq2i 6153 . . . . . . . . . . . . . 14 (∏t‘(𝐹𝑦)) = (∏t‘((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ 𝑦))
65 ssun2 3760 . . . . . . . . . . . . . . . . 17 {𝑧} ⊆ (𝑦 ∪ {𝑧})
66 resabs1 5390 . . . . . . . . . . . . . . . . 17 ({𝑧} ⊆ (𝑦 ∪ {𝑧}) → ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ {𝑧}) = (𝐹 ↾ {𝑧}))
6765, 66ax-mp 5 . . . . . . . . . . . . . . . 16 ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ {𝑧}) = (𝐹 ↾ {𝑧})
6867eqcomi 2635 . . . . . . . . . . . . . . 15 (𝐹 ↾ {𝑧}) = ((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ {𝑧})
6968fveq2i 6153 . . . . . . . . . . . . . 14 (∏t‘(𝐹 ↾ {𝑧})) = (∏t‘((𝐹 ↾ (𝑦 ∪ {𝑧})) ↾ {𝑧}))
70 eqid 2626 . . . . . . . . . . . . . 14 (𝑢 (∏t‘(𝐹𝑦)), 𝑣 (∏t‘(𝐹 ↾ {𝑧})) ↦ (𝑢𝑣)) = (𝑢 (∏t‘(𝐹𝑦)), 𝑣 (∏t‘(𝐹 ↾ {𝑧})) ↦ (𝑢𝑣))
71 vex 3194 . . . . . . . . . . . . . . . 16 𝑦 ∈ V
72 snex 4874 . . . . . . . . . . . . . . . 16 {𝑧} ∈ V
7371, 72unex 6910 . . . . . . . . . . . . . . 15 (𝑦 ∪ {𝑧}) ∈ V
7473a1i 11 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑦 ∪ {𝑧}) ∈ V)
75 simplr 791 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝐹:𝐴⟶Comp)
76 cmptop 21103 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ Comp → 𝑥 ∈ Top)
7776ssriv 3592 . . . . . . . . . . . . . . . 16 Comp ⊆ Top
78 fss 6015 . . . . . . . . . . . . . . . 16 ((𝐹:𝐴⟶Comp ∧ Comp ⊆ Top) → 𝐹:𝐴⟶Top)
7975, 77, 78sylancl 693 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝐹:𝐴⟶Top)
80 simprr 795 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑦 ∪ {𝑧}) ⊆ 𝐴)
8179, 80fssresd 6030 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹 ↾ (𝑦 ∪ {𝑧})):(𝑦 ∪ {𝑧})⟶Top)
82 eqidd 2627 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑦 ∪ {𝑧}) = (𝑦 ∪ {𝑧}))
83 simprl 793 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → ¬ 𝑧𝑦)
84 disjsn 4221 . . . . . . . . . . . . . . 15 ((𝑦 ∩ {𝑧}) = ∅ ↔ ¬ 𝑧𝑦)
8583, 84sylibr 224 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑦 ∩ {𝑧}) = ∅)
8658, 59, 60, 64, 69, 70, 74, 81, 82, 85ptunhmeo 21516 . . . . . . . . . . . . 13 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑢 (∏t‘(𝐹𝑦)), 𝑣 (∏t‘(𝐹 ↾ {𝑧})) ↦ (𝑢𝑣)) ∈ (((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧})))Homeo(∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧})))))
87 hmphi 21485 . . . . . . . . . . . . 13 ((𝑢 (∏t‘(𝐹𝑦)), 𝑣 (∏t‘(𝐹 ↾ {𝑧})) ↦ (𝑢𝑣)) ∈ (((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧})))Homeo(∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧})))) → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ≃ (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))))
8886, 87syl 17 . . . . . . . . . . . 12 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ≃ (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))))
891ad2antlr 762 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝐹 Fn 𝐴)
9065, 80syl5ss 3599 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → {𝑧} ⊆ 𝐴)
91 vex 3194 . . . . . . . . . . . . . . . . . 18 𝑧 ∈ V
9291snss 4291 . . . . . . . . . . . . . . . . 17 (𝑧𝐴 ↔ {𝑧} ⊆ 𝐴)
9390, 92sylibr 224 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝑧𝐴)
94 fnressn 6380 . . . . . . . . . . . . . . . 16 ((𝐹 Fn 𝐴𝑧𝐴) → (𝐹 ↾ {𝑧}) = {⟨𝑧, (𝐹𝑧)⟩})
9589, 93, 94syl2anc 692 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹 ↾ {𝑧}) = {⟨𝑧, (𝐹𝑧)⟩})
9695fveq2d 6154 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (∏t‘(𝐹 ↾ {𝑧})) = (∏t‘{⟨𝑧, (𝐹𝑧)⟩}))
97 eqid 2626 . . . . . . . . . . . . . . . . 17 (∏t‘{⟨𝑧, (𝐹𝑧)⟩}) = (∏t‘{⟨𝑧, (𝐹𝑧)⟩})
9891a1i 11 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝑧 ∈ V)
9975, 93ffvelrnd 6317 . . . . . . . . . . . . . . . . . . 19 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹𝑧) ∈ Comp)
10077, 99sseldi 3586 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹𝑧) ∈ Top)
101 eqid 2626 . . . . . . . . . . . . . . . . . . 19 (𝐹𝑧) = (𝐹𝑧)
102101toptopon 20643 . . . . . . . . . . . . . . . . . 18 ((𝐹𝑧) ∈ Top ↔ (𝐹𝑧) ∈ (TopOn‘ (𝐹𝑧)))
103100, 102sylib 208 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹𝑧) ∈ (TopOn‘ (𝐹𝑧)))
10497, 98, 103pt1hmeo 21514 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑥 (𝐹𝑧) ↦ {⟨𝑧, 𝑥⟩}) ∈ ((𝐹𝑧)Homeo(∏t‘{⟨𝑧, (𝐹𝑧)⟩})))
105 hmphi 21485 . . . . . . . . . . . . . . . 16 ((𝑥 (𝐹𝑧) ↦ {⟨𝑧, 𝑥⟩}) ∈ ((𝐹𝑧)Homeo(∏t‘{⟨𝑧, (𝐹𝑧)⟩})) → (𝐹𝑧) ≃ (∏t‘{⟨𝑧, (𝐹𝑧)⟩}))
106104, 105syl 17 . . . . . . . . . . . . . . 15 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝐹𝑧) ≃ (∏t‘{⟨𝑧, (𝐹𝑧)⟩}))
107 cmphmph 21496 . . . . . . . . . . . . . . 15 ((𝐹𝑧) ≃ (∏t‘{⟨𝑧, (𝐹𝑧)⟩}) → ((𝐹𝑧) ∈ Comp → (∏t‘{⟨𝑧, (𝐹𝑧)⟩}) ∈ Comp))
108106, 99, 107sylc 65 . . . . . . . . . . . . . 14 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (∏t‘{⟨𝑧, (𝐹𝑧)⟩}) ∈ Comp)
10996, 108eqeltrd 2704 . . . . . . . . . . . . 13 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (∏t‘(𝐹 ↾ {𝑧})) ∈ Comp)
110 txcmp 21351 . . . . . . . . . . . . . 14 (((∏t‘(𝐹𝑦)) ∈ Comp ∧ (∏t‘(𝐹 ↾ {𝑧})) ∈ Comp) → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ∈ Comp)
111110expcom 451 . . . . . . . . . . . . 13 ((∏t‘(𝐹 ↾ {𝑧})) ∈ Comp → ((∏t‘(𝐹𝑦)) ∈ Comp → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ∈ Comp))
112109, 111syl 17 . . . . . . . . . . . 12 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → ((∏t‘(𝐹𝑦)) ∈ Comp → ((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ∈ Comp))
113 cmphmph 21496 . . . . . . . . . . . 12 (((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ≃ (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) → (((∏t‘(𝐹𝑦)) ×t (∏t‘(𝐹 ↾ {𝑧}))) ∈ Comp → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))
11488, 112, 113sylsyld 61 . . . . . . . . . . 11 (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) ∧ (¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → ((∏t‘(𝐹𝑦)) ∈ Comp → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))
115114expcom 451 . . . . . . . . . 10 ((¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴) → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → ((∏t‘(𝐹𝑦)) ∈ Comp → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp)))
116115a2d 29 . . . . . . . . 9 ((¬ 𝑧𝑦 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴) → (((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp) → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp)))
117116ex 450 . . . . . . . 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 482 . . . . 5 ((𝑦 ∈ Fin ∧ ¬ 𝑧𝑦) → ((𝑦𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝑦)) ∈ Comp)) → ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹 ↾ (𝑦 ∪ {𝑧}))) ∈ Comp))))
12114, 20, 26, 32, 53, 120findcard2s 8146 . . . 4 (𝐴 ∈ Fin → (𝐴𝐴 → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp)))
1226, 121mpi 20 . . 3 (𝐴 ∈ Fin → ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp))
123122anabsi5 857 . 2 ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t‘(𝐹𝐴)) ∈ Comp)
1245, 123eqeltrrd 2705 1 ((𝐴 ∈ Fin ∧ 𝐹:𝐴⟶Comp) → (∏t𝐹) ∈ Comp)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 384   = wceq 1480  wcel 1992  Vcvv 3191  cun 3558  cin 3559  wss 3560  c0 3896  𝒫 cpw 4135  {csn 4153  cop 4159   cuni 4407   class class class wbr 4618  cmpt 4678  cres 5081   Fn wfn 5845  wf 5846  cfv 5850  (class class class)co 6605  cmpt2 6607  Xcixp 7853  Fincfn 7900  tcpt 16015  Topctop 20612  TopOnctopon 20613  Compccmp 21094   ×t ctx 21268  Homeochmeo 21461  chmph 21462
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1841  ax-6 1890  ax-7 1937  ax-8 1994  ax-9 2001  ax-10 2021  ax-11 2036  ax-12 2049  ax-13 2250  ax-ext 2606  ax-rep 4736  ax-sep 4746  ax-nul 4754  ax-pow 4808  ax-pr 4872  ax-un 6903
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1883  df-eu 2478  df-mo 2479  df-clab 2613  df-cleq 2619  df-clel 2622  df-nfc 2756  df-ne 2797  df-ral 2917  df-rex 2918  df-reu 2919  df-rab 2921  df-v 3193  df-sbc 3423  df-csb 3520  df-dif 3563  df-un 3565  df-in 3567  df-ss 3574  df-pss 3576  df-nul 3897  df-if 4064  df-pw 4137  df-sn 4154  df-pr 4156  df-tp 4158  df-op 4160  df-uni 4408  df-int 4446  df-iun 4492  df-iin 4493  df-br 4619  df-opab 4679  df-mpt 4680  df-tr 4718  df-eprel 4990  df-id 4994  df-po 5000  df-so 5001  df-fr 5038  df-we 5040  df-xp 5085  df-rel 5086  df-cnv 5087  df-co 5088  df-dm 5089  df-rn 5090  df-res 5091  df-ima 5092  df-pred 5642  df-ord 5688  df-on 5689  df-lim 5690  df-suc 5691  df-iota 5813  df-fun 5852  df-fn 5853  df-f 5854  df-f1 5855  df-fo 5856  df-f1o 5857  df-fv 5858  df-ov 6608  df-oprab 6609  df-mpt2 6610  df-om 7014  df-1st 7116  df-2nd 7117  df-wrecs 7353  df-recs 7414  df-rdg 7452  df-1o 7506  df-2o 7507  df-oadd 7510  df-er 7688  df-map 7805  df-ixp 7854  df-en 7901  df-dom 7902  df-sdom 7903  df-fin 7904  df-fi 8262  df-topgen 16020  df-pt 16021  df-top 20616  df-bases 20617  df-topon 20618  df-cn 20936  df-cnp 20937  df-cmp 21095  df-tx 21270  df-hmeo 21463  df-hmph 21464
This theorem is referenced by:  poimirlem30  33057
  Copyright terms: Public domain W3C validator