Metamath Proof Explorer


Theorem cnmptcom

Description: The argument converse of a continuous function is continuous. (Contributed by Mario Carneiro, 6-Jun-2014)

Ref Expression
Hypotheses cnmptcom.3 φJTopOnX
cnmptcom.4 φKTopOnY
cnmptcom.6 φxX,yYAJ×tKCnL
Assertion cnmptcom φyY,xXAK×tJCnL

Proof

Step Hyp Ref Expression
1 cnmptcom.3 φJTopOnX
2 cnmptcom.4 φKTopOnY
3 cnmptcom.6 φxX,yYAJ×tKCnL
4 txtopon JTopOnXKTopOnYJ×tKTopOnX×Y
5 1 2 4 syl2anc φJ×tKTopOnX×Y
6 cntop2 xX,yYAJ×tKCnLLTop
7 3 6 syl φLTop
8 toptopon2 LTopLTopOnL
9 7 8 sylib φLTopOnL
10 cnf2 J×tKTopOnX×YLTopOnLxX,yYAJ×tKCnLxX,yYA:X×YL
11 5 9 3 10 syl3anc φxX,yYA:X×YL
12 eqid xX,yYA=xX,yYA
13 12 fmpo xXyYALxX,yYA:X×YL
14 ralcom xXyYALyYxXAL
15 13 14 bitr3i xX,yYA:X×YLyYxXAL
16 11 15 sylib φyYxXAL
17 eqid yY,xXA=yY,xXA
18 17 fmpo yYxXALyY,xXA:Y×XL
19 16 18 sylib φyY,xXA:Y×XL
20 19 ffnd φyY,xXAFnY×X
21 fnov yY,xXAFnY×XyY,xXA=zY,wXzyY,xXAw
22 20 21 sylib φyY,xXA=zY,wXzyY,xXAw
23 nfcv _yz
24 nfcv _xz
25 nfcv _xw
26 nfv yφ
27 nfcv _yx
28 nfmpo2 _yxX,yYA
29 27 28 23 nfov _yxxX,yYAz
30 nfmpo1 _yyY,xXA
31 23 30 27 nfov _yzyY,xXAx
32 29 31 nfeq yxxX,yYAz=zyY,xXAx
33 26 32 nfim yφxxX,yYAz=zyY,xXAx
34 nfv xφ
35 nfmpo1 _xxX,yYA
36 25 35 24 nfov _xwxX,yYAz
37 nfmpo2 _xyY,xXA
38 24 37 25 nfov _xzyY,xXAw
39 36 38 nfeq xwxX,yYAz=zyY,xXAw
40 34 39 nfim xφwxX,yYAz=zyY,xXAw
41 oveq2 y=zxxX,yYAy=xxX,yYAz
42 oveq1 y=zyyY,xXAx=zyY,xXAx
43 41 42 eqeq12d y=zxxX,yYAy=yyY,xXAxxxX,yYAz=zyY,xXAx
44 43 imbi2d y=zφxxX,yYAy=yyY,xXAxφxxX,yYAz=zyY,xXAx
45 oveq1 x=wxxX,yYAz=wxX,yYAz
46 oveq2 x=wzyY,xXAx=zyY,xXAw
47 45 46 eqeq12d x=wxxX,yYAz=zyY,xXAxwxX,yYAz=zyY,xXAw
48 47 imbi2d x=wφxxX,yYAz=zyY,xXAxφwxX,yYAz=zyY,xXAw
49 rsp2 yYxXALyYxXAL
50 49 16 syl11 yYxXφAL
51 12 ovmpt4g xXyYALxxX,yYAy=A
52 51 3com12 yYxXALxxX,yYAy=A
53 17 ovmpt4g yYxXALyyY,xXAx=A
54 52 53 eqtr4d yYxXALxxX,yYAy=yyY,xXAx
55 54 3expia yYxXALxxX,yYAy=yyY,xXAx
56 50 55 syld yYxXφxxX,yYAy=yyY,xXAx
57 23 24 25 33 40 44 48 56 vtocl2gaf zYwXφwxX,yYAz=zyY,xXAw
58 57 com12 φzYwXwxX,yYAz=zyY,xXAw
59 58 3impib φzYwXwxX,yYAz=zyY,xXAw
60 59 mpoeq3dva φzY,wXwxX,yYAz=zY,wXzyY,xXAw
61 22 60 eqtr4d φyY,xXA=zY,wXwxX,yYAz
62 2 1 cnmpt2nd φzY,wXwK×tJCnJ
63 2 1 cnmpt1st φzY,wXzK×tJCnK
64 2 1 62 63 3 cnmpt22f φzY,wXwxX,yYAzK×tJCnL
65 61 64 eqeltrd φyY,xXAK×tJCnL