Metamath Proof Explorer


Theorem cnmptk2

Description: The uncurrying of a curried function is continuous. (Contributed by Mario Carneiro, 23-Mar-2015) (Revised by Mario Carneiro, 22-Aug-2015)

Ref Expression
Hypotheses cnmptk1p.j ⊢ φ → J ∈ TopOn ⁡ X
cnmptk1p.k ⊢ φ → K ∈ TopOn ⁡ Y
cnmptk1p.l ⊢ φ → L ∈ TopOn ⁡ Z
cnmptk1p.n ⊢ φ → K ∈ N-Locally Comp
cnmptk2.a ⊢ φ → x ∈ X ⟼ y ∈ Y ⟼ A ∈ J Cn L ^ ko K
Assertion cnmptk2 ⊢ φ → x ∈ X , y ∈ Y ⟼ A ∈ J × t K Cn L

Proof

Step Hyp Ref Expression
1 cnmptk1p.j ⊢ φ → J ∈ TopOn ⁡ X
2 cnmptk1p.k ⊢ φ → K ∈ TopOn ⁡ Y
3 cnmptk1p.l ⊢ φ → L ∈ TopOn ⁡ Z
4 cnmptk1p.n ⊢ φ → K ∈ N-Locally Comp
5 cnmptk2.a ⊢ φ → x ∈ X ⟼ y ∈ Y ⟼ A ∈ J Cn L ^ ko K
6 nffvmpt1 ⊢ Ⅎ _ x x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w
7 nfcv ⊢ Ⅎ _ x k
8 6 7 nffv ⊢ Ⅎ _ x x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w ⁡ k
9 nfcv ⊢ Ⅎ _ y X
10 nfmpt1 ⊢ Ⅎ _ y y ∈ Y ⟼ A
11 9 10 nfmpt ⊢ Ⅎ _ y x ∈ X ⟼ y ∈ Y ⟼ A
12 nfcv ⊢ Ⅎ _ y w
13 11 12 nffv ⊢ Ⅎ _ y x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w
14 nfcv ⊢ Ⅎ _ y k
15 13 14 nffv ⊢ Ⅎ _ y x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w ⁡ k
16 nfcv ⊢ Ⅎ _ w x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x ⁡ y
17 nfcv ⊢ Ⅎ _ k x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x ⁡ y
18 fveq2 ⊢ w = x → x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w = x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x
19 18 fveq1d ⊢ w = x → x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w ⁡ k = x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x ⁡ k
20 fveq2 ⊢ k = y → x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x ⁡ k = x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x ⁡ y
21 19 20 sylan9eq ⊢ w = x ∧ k = y → x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w ⁡ k = x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x ⁡ y
22 8 15 16 17 21 cbvmpo ⊢ w ∈ X , k ∈ Y ⟼ x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w ⁡ k = x ∈ X , y ∈ Y ⟼ x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x ⁡ y
23 simplr ⊢ φ ∧ x ∈ X ∧ y ∈ Y → x ∈ X
24 nllytop ⊢ K ∈ N-Locally Comp → K ∈ Top
25 4 24 syl ⊢ φ → K ∈ Top
26 topontop ⊢ L ∈ TopOn ⁡ Z → L ∈ Top
27 3 26 syl ⊢ φ → L ∈ Top
28 eqid ⊢ L ^ ko K = L ^ ko K
29 28 xkotopon ⊢ K ∈ Top ∧ L ∈ Top → L ^ ko K ∈ TopOn ⁡ K Cn L
30 25 27 29 syl2anc ⊢ φ → L ^ ko K ∈ TopOn ⁡ K Cn L
31 cnf2 ⊢ J ∈ TopOn ⁡ X ∧ L ^ ko K ∈ TopOn ⁡ K Cn L ∧ x ∈ X ⟼ y ∈ Y ⟼ A ∈ J Cn L ^ ko K → x ∈ X ⟼ y ∈ Y ⟼ A : X ⟶ K Cn L
32 1 30 5 31 syl3anc ⊢ φ → x ∈ X ⟼ y ∈ Y ⟼ A : X ⟶ K Cn L
33 32 fvmptelcdm ⊢ φ ∧ x ∈ X → y ∈ Y ⟼ A ∈ K Cn L
34 33 adantr ⊢ φ ∧ x ∈ X ∧ y ∈ Y → y ∈ Y ⟼ A ∈ K Cn L
35 eqid ⊢ x ∈ X ⟼ y ∈ Y ⟼ A = x ∈ X ⟼ y ∈ Y ⟼ A
36 35 fvmpt2 ⊢ x ∈ X ∧ y ∈ Y ⟼ A ∈ K Cn L → x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x = y ∈ Y ⟼ A
37 23 34 36 syl2anc ⊢ φ ∧ x ∈ X ∧ y ∈ Y → x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x = y ∈ Y ⟼ A
38 37 fveq1d ⊢ φ ∧ x ∈ X ∧ y ∈ Y → x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x ⁡ y = y ∈ Y ⟼ A ⁡ y
39 simpr ⊢ φ ∧ x ∈ X ∧ y ∈ Y → y ∈ Y
40 2 adantr ⊢ φ ∧ x ∈ X → K ∈ TopOn ⁡ Y
41 3 adantr ⊢ φ ∧ x ∈ X → L ∈ TopOn ⁡ Z
42 cnf2 ⊢ K ∈ TopOn ⁡ Y ∧ L ∈ TopOn ⁡ Z ∧ y ∈ Y ⟼ A ∈ K Cn L → y ∈ Y ⟼ A : Y ⟶ Z
43 40 41 33 42 syl3anc ⊢ φ ∧ x ∈ X → y ∈ Y ⟼ A : Y ⟶ Z
44 43 fvmptelcdm ⊢ φ ∧ x ∈ X ∧ y ∈ Y → A ∈ Z
45 eqid ⊢ y ∈ Y ⟼ A = y ∈ Y ⟼ A
46 45 fvmpt2 ⊢ y ∈ Y ∧ A ∈ Z → y ∈ Y ⟼ A ⁡ y = A
47 39 44 46 syl2anc ⊢ φ ∧ x ∈ X ∧ y ∈ Y → y ∈ Y ⟼ A ⁡ y = A
48 38 47 eqtrd ⊢ φ ∧ x ∈ X ∧ y ∈ Y → x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x ⁡ y = A
49 48 3impa ⊢ φ ∧ x ∈ X ∧ y ∈ Y → x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x ⁡ y = A
50 49 mpoeq3dva ⊢ φ → x ∈ X , y ∈ Y ⟼ x ∈ X ⟼ y ∈ Y ⟼ A ⁡ x ⁡ y = x ∈ X , y ∈ Y ⟼ A
51 22 50 eqtrid ⊢ φ → w ∈ X , k ∈ Y ⟼ x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w ⁡ k = x ∈ X , y ∈ Y ⟼ A
52 1 2 cnmpt1st ⊢ φ → w ∈ X , k ∈ Y ⟼ w ∈ J × t K Cn J
53 1 2 52 5 cnmpt21f ⊢ φ → w ∈ X , k ∈ Y ⟼ x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w ∈ J × t K Cn L ^ ko K
54 1 2 cnmpt2nd ⊢ φ → w ∈ X , k ∈ Y ⟼ k ∈ J × t K Cn K
55 eqid ⊢ K Cn L = K Cn L
56 toponuni ⊢ K ∈ TopOn ⁡ Y → Y = ⋃ K
57 2 56 syl ⊢ φ → Y = ⋃ K
58 mpoeq12 ⊢ K Cn L = K Cn L ∧ Y = ⋃ K → f ∈ K Cn L , z ∈ Y ⟼ f ⁡ z = f ∈ K Cn L , z ∈ ⋃ K ⟼ f ⁡ z
59 55 57 58 sylancr ⊢ φ → f ∈ K Cn L , z ∈ Y ⟼ f ⁡ z = f ∈ K Cn L , z ∈ ⋃ K ⟼ f ⁡ z
60 eqid ⊢ ⋃ K = ⋃ K
61 eqid ⊢ f ∈ K Cn L , z ∈ ⋃ K ⟼ f ⁡ z = f ∈ K Cn L , z ∈ ⋃ K ⟼ f ⁡ z
62 60 61 xkofvcn ⊢ K ∈ N-Locally Comp ∧ L ∈ Top → f ∈ K Cn L , z ∈ ⋃ K ⟼ f ⁡ z ∈ L ^ ko K × t K Cn L
63 4 27 62 syl2anc ⊢ φ → f ∈ K Cn L , z ∈ ⋃ K ⟼ f ⁡ z ∈ L ^ ko K × t K Cn L
64 59 63 eqeltrd ⊢ φ → f ∈ K Cn L , z ∈ Y ⟼ f ⁡ z ∈ L ^ ko K × t K Cn L
65 fveq1 ⊢ f = x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w → f ⁡ z = x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w ⁡ z
66 fveq2 ⊢ z = k → x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w ⁡ z = x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w ⁡ k
67 65 66 sylan9eq ⊢ f = x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w ∧ z = k → f ⁡ z = x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w ⁡ k
68 1 2 53 54 30 2 64 67 cnmpt22 ⊢ φ → w ∈ X , k ∈ Y ⟼ x ∈ X ⟼ y ∈ Y ⟼ A ⁡ w ⁡ k ∈ J × t K Cn L
69 51 68 eqeltrrd ⊢ φ → x ∈ X , y ∈ Y ⟼ A ∈ J × t K Cn L