Metamath Proof Explorer


Theorem coprmproddvdslem

Description: Lemma for coprmproddvds : Induction step. (Contributed by AV, 19-Aug-2020)

Ref Expression
Assertion coprmproddvdslem yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKmyzFmK

Proof

Step Hyp Ref Expression
1 nfv myFin¬zyyzKF:
2 nfcv _mFz
3 simpll yFin¬zyyzKF:yFin
4 unss yzyz
5 vex zV
6 5 snss zz
7 6 biimpri zz
8 7 adantl yzz
9 4 8 sylbir yzz
10 9 adantr yzKF:z
11 10 adantl yFin¬zyyzKF:z
12 simplr yFin¬zyyzKF:¬zy
13 simprrr yFin¬zyyzKF:F:
14 13 adantr yFin¬zyyzKF:myF:
15 simpl yzy
16 4 15 sylbir yzy
17 16 adantr yzKF:y
18 17 adantl yFin¬zyyzKF:y
19 18 sselda yFin¬zyyzKF:mym
20 14 19 ffvelcdmd yFin¬zyyzKF:myFm
21 20 nncnd yFin¬zyyzKF:myFm
22 fveq2 m=zFm=Fz
23 13 11 ffvelcdmd yFin¬zyyzKF:Fz
24 23 nncnd yFin¬zyyzKF:Fz
25 1 2 3 11 12 21 22 24 fprodsplitsn yFin¬zyyzKF:myzFm=myFmFz
26 25 ad2ant2r yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKmyzFm=myFmFz
27 simprl yzKF:yFin¬zyyFin
28 simprr yzKF:F:
29 28 adantr yzKF:yFin¬zyF:
30 29 adantr yzKF:yFin¬zymyF:
31 17 adantr yzKF:yFin¬zyy
32 31 sselda yzKF:yFin¬zymym
33 30 32 ffvelcdmd yzKF:yFin¬zymyFm
34 27 33 fprodnncl yzKF:yFin¬zymyFm
35 34 ex yzKF:yFin¬zymyFm
36 35 adantr yzKF:myznyzmFmgcdFn=1myzFmKyFin¬zymyFm
37 36 com12 yFin¬zyyzKF:myznyzmFmgcdFn=1myzFmKmyFm
38 37 adantr yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKmyFm
39 38 imp yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKmyFm
40 39 nnzd yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKmyFm
41 28 10 ffvelcdmd yzKF:Fz
42 41 nnzd yzKF:Fz
43 42 adantr yzKF:myznyzmFmgcdFn=1myzFmKFz
44 43 adantl yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKFz
45 nnz KK
46 45 adantr KF:K
47 46 adantl yzKF:K
48 47 adantr yzKF:myznyzmFmgcdFn=1myzFmKK
49 48 adantl yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKK
50 40 44 49 3jca yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKmyFmFzK
51 simpl F:yzF:
52 9 adantl F:yzz
53 51 52 ffvelcdmd F:yzFz
54 53 ex F:yzFz
55 54 adantl KF:yzFz
56 55 impcom yzKF:Fz
57 56 adantl yFin¬zyyzKF:Fz
58 3 18 57 3jca yFin¬zyyzKF:yFinyFz
59 58 adantr yFin¬zyyzKF:myznyzmFmgcdFn=1yFinyFz
60 13 adantr yFin¬zyyzKF:myznyzmFmgcdFn=1F:
61 vsnid zz
62 61 olci zyzz
63 elun zyzzyzz
64 62 63 mpbir zyz
65 64 a1i yFin¬zyyzKF:myzyz
66 snssi mymy
67 66 ssneld my¬zy¬zm
68 67 com12 ¬zymy¬zm
69 68 adantl yFin¬zymy¬zm
70 69 adantr yFin¬zyyzKF:my¬zm
71 70 imp yFin¬zyyzKF:my¬zm
72 65 71 eldifd yFin¬zyyzKF:myzyzm
73 fveq2 n=zFn=Fz
74 73 oveq2d n=zFmgcdFn=FmgcdFz
75 74 eqeq1d n=zFmgcdFn=1FmgcdFz=1
76 75 rspcv zyzmnyzmFmgcdFn=1FmgcdFz=1
77 72 76 syl yFin¬zyyzKF:mynyzmFmgcdFn=1FmgcdFz=1
78 77 ralimdva yFin¬zyyzKF:mynyzmFmgcdFn=1myFmgcdFz=1
79 ralunb myznyzmFmgcdFn=1mynyzmFmgcdFn=1mznyzmFmgcdFn=1
80 79 simplbi myznyzmFmgcdFn=1mynyzmFmgcdFn=1
81 78 80 impel yFin¬zyyzKF:myznyzmFmgcdFn=1myFmgcdFz=1
82 raldifb nyznmFmgcdFn=1nyzmFmgcdFn=1
83 ralunb nyznmFmgcdFn=1nynmFmgcdFn=1nznmFmgcdFn=1
84 raldifb nynmFmgcdFn=1nymFmgcdFn=1
85 84 biimpi nynmFmgcdFn=1nymFmgcdFn=1
86 85 adantr nynmFmgcdFn=1nznmFmgcdFn=1nymFmgcdFn=1
87 83 86 sylbi nyznmFmgcdFn=1nymFmgcdFn=1
88 82 87 sylbir nyzmFmgcdFn=1nymFmgcdFn=1
89 88 ralimi mynyzmFmgcdFn=1mynymFmgcdFn=1
90 89 adantr mynyzmFmgcdFn=1mznyzmFmgcdFn=1mynymFmgcdFn=1
91 79 90 sylbi myznyzmFmgcdFn=1mynymFmgcdFn=1
92 91 adantl yFin¬zyyzKF:myznyzmFmgcdFn=1mynymFmgcdFn=1
93 coprmprod yFinyFzF:myFmgcdFz=1mynymFmgcdFn=1myFmgcdFz=1
94 93 imp yFinyFzF:myFmgcdFz=1mynymFmgcdFn=1myFmgcdFz=1
95 59 60 81 92 94 syl31anc yFin¬zyyzKF:myznyzmFmgcdFn=1myFmgcdFz=1
96 95 ex yFin¬zyyzKF:myznyzmFmgcdFn=1myFmgcdFz=1
97 96 adantrd yFin¬zyyzKF:myznyzmFmgcdFn=1myzFmKmyFmgcdFz=1
98 97 expimpd yFin¬zyyzKF:myznyzmFmgcdFn=1myzFmKmyFmgcdFz=1
99 98 adantr yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKmyFmgcdFz=1
100 99 imp yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKmyFmgcdFz=1
101 83 simplbi nyznmFmgcdFn=1nynmFmgcdFn=1
102 82 101 sylbir nyzmFmgcdFn=1nynmFmgcdFn=1
103 102 ralimi mynyzmFmgcdFn=1mynynmFmgcdFn=1
104 103 adantr mynyzmFmgcdFn=1mznyzmFmgcdFn=1mynynmFmgcdFn=1
105 79 104 sylbi myznyzmFmgcdFn=1mynynmFmgcdFn=1
106 ralunb myzFmKmyFmKmzFmK
107 106 simplbi myzFmKmyFmK
108 84 ralbii mynynmFmgcdFn=1mynymFmgcdFn=1
109 108 anbi1i mynynmFmgcdFn=1myFmKmynymFmgcdFn=1myFmK
110 17 adantl yFin¬zymynymFmgcdFn=1myFmKyzKF:y
111 simprrl yFin¬zymynymFmgcdFn=1myFmKyzKF:K
112 simprrr yFin¬zymynymFmgcdFn=1myFmKyzKF:F:
113 110 111 112 jca32 yFin¬zymynymFmgcdFn=1myFmKyzKF:yKF:
114 simplr yFin¬zymynymFmgcdFn=1myFmKyzKF:mynymFmgcdFn=1myFmK
115 pm2.27 yKF:mynymFmgcdFn=1myFmKyKF:mynymFmgcdFn=1myFmKmyFmKmyFmK
116 113 114 115 syl2anc yFin¬zymynymFmgcdFn=1myFmKyzKF:yKF:mynymFmgcdFn=1myFmKmyFmKmyFmK
117 116 exp31 yFin¬zymynymFmgcdFn=1myFmKyzKF:yKF:mynymFmgcdFn=1myFmKmyFmKmyFmK
118 117 com24 yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:mynymFmgcdFn=1myFmKmyFmK
119 118 imp yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:mynymFmgcdFn=1myFmKmyFmK
120 119 imp yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:mynymFmgcdFn=1myFmKmyFmK
121 109 120 biimtrid yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:mynynmFmgcdFn=1myFmKmyFmK
122 105 107 121 syl2ani yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKmyFmK
123 122 impr yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKmyFmK
124 22 breq1d m=zFmKFzK
125 124 rspcv zyzmyzFmKFzK
126 64 125 ax-mp myzFmKFzK
127 126 adantl myznyzmFmgcdFn=1myzFmKFzK
128 127 adantl yzKF:myznyzmFmgcdFn=1myzFmKFzK
129 128 adantl yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKFzK
130 coprmdvds2 myFmFzKmyFmgcdFz=1myFmKFzKmyFmFzK
131 130 imp myFmFzKmyFmgcdFz=1myFmKFzKmyFmFzK
132 50 100 123 129 131 syl22anc yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKmyFmFzK
133 26 132 eqbrtrd yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKmyzFmK
134 133 exp31 yFin¬zyyKF:mynymFmgcdFn=1myFmKmyFmKyzKF:myznyzmFmgcdFn=1myzFmKmyzFmK