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 fvmptelrn φ 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 fvmptelrn φ 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