Metamath Proof Explorer


Theorem ptcn

Description: If every projection of a function is continuous, then the function itself is continuous into the product topology. (Contributed by Mario Carneiro, 3-Feb-2015)

Ref Expression
Hypotheses ptcn.2 𝐾 = ( ∏t𝐹 )
ptcn.3 ( 𝜑𝐽 ∈ ( TopOn ‘ 𝑋 ) )
ptcn.4 ( 𝜑𝐼𝑉 )
ptcn.5 ( 𝜑𝐹 : 𝐼 ⟶ Top )
ptcn.6 ( ( 𝜑𝑘𝐼 ) → ( 𝑥𝑋𝐴 ) ∈ ( 𝐽 Cn ( 𝐹𝑘 ) ) )
Assertion ptcn ( 𝜑 → ( 𝑥𝑋 ↦ ( 𝑘𝐼𝐴 ) ) ∈ ( 𝐽 Cn 𝐾 ) )

Proof

Step Hyp Ref Expression
1 ptcn.2 𝐾 = ( ∏t𝐹 )
2 ptcn.3 ( 𝜑𝐽 ∈ ( TopOn ‘ 𝑋 ) )
3 ptcn.4 ( 𝜑𝐼𝑉 )
4 ptcn.5 ( 𝜑𝐹 : 𝐼 ⟶ Top )
5 ptcn.6 ( ( 𝜑𝑘𝐼 ) → ( 𝑥𝑋𝐴 ) ∈ ( 𝐽 Cn ( 𝐹𝑘 ) ) )
6 2 adantr ( ( 𝜑𝑘𝐼 ) → 𝐽 ∈ ( TopOn ‘ 𝑋 ) )
7 4 ffvelrnda ( ( 𝜑𝑘𝐼 ) → ( 𝐹𝑘 ) ∈ Top )
8 toptopon2 ( ( 𝐹𝑘 ) ∈ Top ↔ ( 𝐹𝑘 ) ∈ ( TopOn ‘ ( 𝐹𝑘 ) ) )
9 7 8 sylib ( ( 𝜑𝑘𝐼 ) → ( 𝐹𝑘 ) ∈ ( TopOn ‘ ( 𝐹𝑘 ) ) )
10 cnf2 ( ( 𝐽 ∈ ( TopOn ‘ 𝑋 ) ∧ ( 𝐹𝑘 ) ∈ ( TopOn ‘ ( 𝐹𝑘 ) ) ∧ ( 𝑥𝑋𝐴 ) ∈ ( 𝐽 Cn ( 𝐹𝑘 ) ) ) → ( 𝑥𝑋𝐴 ) : 𝑋 ( 𝐹𝑘 ) )
11 6 9 5 10 syl3anc ( ( 𝜑𝑘𝐼 ) → ( 𝑥𝑋𝐴 ) : 𝑋 ( 𝐹𝑘 ) )
12 11 fvmptelrn ( ( ( 𝜑𝑘𝐼 ) ∧ 𝑥𝑋 ) → 𝐴 ( 𝐹𝑘 ) )
13 12 an32s ( ( ( 𝜑𝑥𝑋 ) ∧ 𝑘𝐼 ) → 𝐴 ( 𝐹𝑘 ) )
14 13 ralrimiva ( ( 𝜑𝑥𝑋 ) → ∀ 𝑘𝐼 𝐴 ( 𝐹𝑘 ) )
15 3 adantr ( ( 𝜑𝑥𝑋 ) → 𝐼𝑉 )
16 mptelixpg ( 𝐼𝑉 → ( ( 𝑘𝐼𝐴 ) ∈ X 𝑘𝐼 ( 𝐹𝑘 ) ↔ ∀ 𝑘𝐼 𝐴 ( 𝐹𝑘 ) ) )
17 15 16 syl ( ( 𝜑𝑥𝑋 ) → ( ( 𝑘𝐼𝐴 ) ∈ X 𝑘𝐼 ( 𝐹𝑘 ) ↔ ∀ 𝑘𝐼 𝐴 ( 𝐹𝑘 ) ) )
18 14 17 mpbird ( ( 𝜑𝑥𝑋 ) → ( 𝑘𝐼𝐴 ) ∈ X 𝑘𝐼 ( 𝐹𝑘 ) )
19 1 ptuni ( ( 𝐼𝑉𝐹 : 𝐼 ⟶ Top ) → X 𝑘𝐼 ( 𝐹𝑘 ) = 𝐾 )
20 3 4 19 syl2anc ( 𝜑X 𝑘𝐼 ( 𝐹𝑘 ) = 𝐾 )
21 20 adantr ( ( 𝜑𝑥𝑋 ) → X 𝑘𝐼 ( 𝐹𝑘 ) = 𝐾 )
22 18 21 eleqtrd ( ( 𝜑𝑥𝑋 ) → ( 𝑘𝐼𝐴 ) ∈ 𝐾 )
23 22 fmpttd ( 𝜑 → ( 𝑥𝑋 ↦ ( 𝑘𝐼𝐴 ) ) : 𝑋 𝐾 )
24 2 adantr ( ( 𝜑𝑧𝑋 ) → 𝐽 ∈ ( TopOn ‘ 𝑋 ) )
25 3 adantr ( ( 𝜑𝑧𝑋 ) → 𝐼𝑉 )
26 4 adantr ( ( 𝜑𝑧𝑋 ) → 𝐹 : 𝐼 ⟶ Top )
27 simpr ( ( 𝜑𝑧𝑋 ) → 𝑧𝑋 )
28 5 adantlr ( ( ( 𝜑𝑧𝑋 ) ∧ 𝑘𝐼 ) → ( 𝑥𝑋𝐴 ) ∈ ( 𝐽 Cn ( 𝐹𝑘 ) ) )
29 simplr ( ( ( 𝜑𝑧𝑋 ) ∧ 𝑘𝐼 ) → 𝑧𝑋 )
30 toponuni ( 𝐽 ∈ ( TopOn ‘ 𝑋 ) → 𝑋 = 𝐽 )
31 2 30 syl ( 𝜑𝑋 = 𝐽 )
32 31 ad2antrr ( ( ( 𝜑𝑧𝑋 ) ∧ 𝑘𝐼 ) → 𝑋 = 𝐽 )
33 29 32 eleqtrd ( ( ( 𝜑𝑧𝑋 ) ∧ 𝑘𝐼 ) → 𝑧 𝐽 )
34 eqid 𝐽 = 𝐽
35 34 cncnpi ( ( ( 𝑥𝑋𝐴 ) ∈ ( 𝐽 Cn ( 𝐹𝑘 ) ) ∧ 𝑧 𝐽 ) → ( 𝑥𝑋𝐴 ) ∈ ( ( 𝐽 CnP ( 𝐹𝑘 ) ) ‘ 𝑧 ) )
36 28 33 35 syl2anc ( ( ( 𝜑𝑧𝑋 ) ∧ 𝑘𝐼 ) → ( 𝑥𝑋𝐴 ) ∈ ( ( 𝐽 CnP ( 𝐹𝑘 ) ) ‘ 𝑧 ) )
37 1 24 25 26 27 36 ptcnp ( ( 𝜑𝑧𝑋 ) → ( 𝑥𝑋 ↦ ( 𝑘𝐼𝐴 ) ) ∈ ( ( 𝐽 CnP 𝐾 ) ‘ 𝑧 ) )
38 37 ralrimiva ( 𝜑 → ∀ 𝑧𝑋 ( 𝑥𝑋 ↦ ( 𝑘𝐼𝐴 ) ) ∈ ( ( 𝐽 CnP 𝐾 ) ‘ 𝑧 ) )
39 pttop ( ( 𝐼𝑉𝐹 : 𝐼 ⟶ Top ) → ( ∏t𝐹 ) ∈ Top )
40 3 4 39 syl2anc ( 𝜑 → ( ∏t𝐹 ) ∈ Top )
41 1 40 eqeltrid ( 𝜑𝐾 ∈ Top )
42 toptopon2 ( 𝐾 ∈ Top ↔ 𝐾 ∈ ( TopOn ‘ 𝐾 ) )
43 41 42 sylib ( 𝜑𝐾 ∈ ( TopOn ‘ 𝐾 ) )
44 cncnp ( ( 𝐽 ∈ ( TopOn ‘ 𝑋 ) ∧ 𝐾 ∈ ( TopOn ‘ 𝐾 ) ) → ( ( 𝑥𝑋 ↦ ( 𝑘𝐼𝐴 ) ) ∈ ( 𝐽 Cn 𝐾 ) ↔ ( ( 𝑥𝑋 ↦ ( 𝑘𝐼𝐴 ) ) : 𝑋 𝐾 ∧ ∀ 𝑧𝑋 ( 𝑥𝑋 ↦ ( 𝑘𝐼𝐴 ) ) ∈ ( ( 𝐽 CnP 𝐾 ) ‘ 𝑧 ) ) ) )
45 2 43 44 syl2anc ( 𝜑 → ( ( 𝑥𝑋 ↦ ( 𝑘𝐼𝐴 ) ) ∈ ( 𝐽 Cn 𝐾 ) ↔ ( ( 𝑥𝑋 ↦ ( 𝑘𝐼𝐴 ) ) : 𝑋 𝐾 ∧ ∀ 𝑧𝑋 ( 𝑥𝑋 ↦ ( 𝑘𝐼𝐴 ) ) ∈ ( ( 𝐽 CnP 𝐾 ) ‘ 𝑧 ) ) ) )
46 23 38 45 mpbir2and ( 𝜑 → ( 𝑥𝑋 ↦ ( 𝑘𝐼𝐴 ) ) ∈ ( 𝐽 Cn 𝐾 ) )