Metamath Proof Explorer


Theorem coprmprod

Description: The product of the elements of a sequence of pairwise coprime positive integers is coprime to a positive integer which is coprime to all integers of the sequence. (Contributed by AV, 18-Aug-2020)

Ref Expression
Assertion coprmprod M Fin M N F : m M F m gcd N = 1 m M n M m F m gcd F n = 1 m M F m gcd N = 1

Proof

Step Hyp Ref Expression
1 sseq1 x = x
2 1 3anbi1d x = x N F : N F :
3 raleq x = m x F m gcd N = 1 m F m gcd N = 1
4 difeq1 x = x m = m
5 4 raleqdv x = n x m F m gcd F n = 1 n m F m gcd F n = 1
6 5 raleqbi1dv x = m x n x m F m gcd F n = 1 m n m F m gcd F n = 1
7 2 3 6 3anbi123d x = x N F : m x F m gcd N = 1 m x n x m F m gcd F n = 1 N F : m F m gcd N = 1 m n m F m gcd F n = 1
8 prodeq1 x = m x F m = m F m
9 8 oveq1d x = m x F m gcd N = m F m gcd N
10 9 eqeq1d x = m x F m gcd N = 1 m F m gcd N = 1
11 7 10 imbi12d x = x N F : m x F m gcd N = 1 m x n x m F m gcd F n = 1 m x F m gcd N = 1 N F : m F m gcd N = 1 m n m F m gcd F n = 1 m F m gcd N = 1
12 sseq1 x = y x y
13 12 3anbi1d x = y x N F : y N F :
14 raleq x = y m x F m gcd N = 1 m y F m gcd N = 1
15 difeq1 x = y x m = y m
16 15 raleqdv x = y n x m F m gcd F n = 1 n y m F m gcd F n = 1
17 16 raleqbi1dv x = y m x n x m F m gcd F n = 1 m y n y m F m gcd F n = 1
18 13 14 17 3anbi123d x = y x N F : m x F m gcd N = 1 m x n x m F m gcd F n = 1 y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1
19 prodeq1 x = y m x F m = m y F m
20 19 oveq1d x = y m x F m gcd N = m y F m gcd N
21 20 eqeq1d x = y m x F m gcd N = 1 m y F m gcd N = 1
22 18 21 imbi12d x = y x N F : m x F m gcd N = 1 m x n x m F m gcd F n = 1 m x F m gcd N = 1 y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1
23 sseq1 x = y z x y z
24 23 3anbi1d x = y z x N F : y z N F :
25 raleq x = y z m x F m gcd N = 1 m y z F m gcd N = 1
26 difeq1 x = y z x m = y z m
27 26 raleqdv x = y z n x m F m gcd F n = 1 n y z m F m gcd F n = 1
28 27 raleqbi1dv x = y z m x n x m F m gcd F n = 1 m y z n y z m F m gcd F n = 1
29 24 25 28 3anbi123d x = y z x N F : m x F m gcd N = 1 m x n x m F m gcd F n = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1
30 prodeq1 x = y z m x F m = m y z F m
31 30 oveq1d x = y z m x F m gcd N = m y z F m gcd N
32 31 eqeq1d x = y z m x F m gcd N = 1 m y z F m gcd N = 1
33 29 32 imbi12d x = y z x N F : m x F m gcd N = 1 m x n x m F m gcd F n = 1 m x F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 m y z F m gcd N = 1
34 sseq1 x = M x M
35 34 3anbi1d x = M x N F : M N F :
36 raleq x = M m x F m gcd N = 1 m M F m gcd N = 1
37 difeq1 x = M x m = M m
38 37 raleqdv x = M n x m F m gcd F n = 1 n M m F m gcd F n = 1
39 38 raleqbi1dv x = M m x n x m F m gcd F n = 1 m M n M m F m gcd F n = 1
40 35 36 39 3anbi123d x = M x N F : m x F m gcd N = 1 m x n x m F m gcd F n = 1 M N F : m M F m gcd N = 1 m M n M m F m gcd F n = 1
41 prodeq1 x = M m x F m = m M F m
42 41 oveq1d x = M m x F m gcd N = m M F m gcd N
43 42 eqeq1d x = M m x F m gcd N = 1 m M F m gcd N = 1
44 40 43 imbi12d x = M x N F : m x F m gcd N = 1 m x n x m F m gcd F n = 1 m x F m gcd N = 1 M N F : m M F m gcd N = 1 m M n M m F m gcd F n = 1 m M F m gcd N = 1
45 prod0 m F m = 1
46 45 a1i N m F m = 1
47 46 oveq1d N m F m gcd N = 1 gcd N
48 nnz N N
49 1gcd N 1 gcd N = 1
50 48 49 syl N 1 gcd N = 1
51 47 50 eqtrd N m F m gcd N = 1
52 51 3ad2ant2 N F : m F m gcd N = 1
53 52 3ad2ant1 N F : m F m gcd N = 1 m n m F m gcd F n = 1 m F m gcd N = 1
54 nfv m y z N F : y Fin ¬ z y
55 nfcv _ m F z
56 simprl y z N F : y Fin ¬ z y y Fin
57 unss y z y z
58 vex z V
59 58 snss z z
60 59 bilanri y z z
61 57 60 sylbir y z z
62 61 3ad2ant1 y z N F : z
63 62 adantr y z N F : y Fin ¬ z y z
64 simprr y z N F : y Fin ¬ z y ¬ z y
65 simpll3 y z N F : y Fin ¬ z y m y F :
66 simpl y z y
67 57 66 sylbir y z y
68 67 3ad2ant1 y z N F : y
69 68 adantr y z N F : y Fin ¬ z y y
70 69 sselda y z N F : y Fin ¬ z y m y m
71 65 70 ffvelcdmd y z N F : y Fin ¬ z y m y F m
72 71 nncnd y z N F : y Fin ¬ z y m y F m
73 fveq2 m = z F m = F z
74 simpr y z F : F :
75 61 adantr y z F : z
76 74 75 ffvelcdmd y z F : F z
77 76 3adant2 y z N F : F z
78 77 adantr y z N F : y Fin ¬ z y F z
79 78 nncnd y z N F : y Fin ¬ z y F z
80 54 55 56 63 64 72 73 79 fprodsplitsn y z N F : y Fin ¬ z y m y z F m = m y F m F z
81 80 oveq1d y z N F : y Fin ¬ z y m y z F m gcd N = m y F m F z gcd N
82 56 71 fprodnncl y z N F : y Fin ¬ z y m y F m
83 82 nnzd y z N F : y Fin ¬ z y m y F m
84 78 nnzd y z N F : y Fin ¬ z y F z
85 83 84 zmulcld y z N F : y Fin ¬ z y m y F m F z
86 48 3ad2ant2 y z N F : N
87 86 adantr y z N F : y Fin ¬ z y N
88 85 87 gcdcomd y z N F : y Fin ¬ z y m y F m F z gcd N = N gcd m y F m F z
89 81 88 eqtrd y z N F : y Fin ¬ z y m y z F m gcd N = N gcd m y F m F z
90 89 ex y z N F : y Fin ¬ z y m y z F m gcd N = N gcd m y F m F z
91 90 3ad2ant1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 y Fin ¬ z y m y z F m gcd N = N gcd m y F m F z
92 91 com12 y Fin ¬ z y y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 m y z F m gcd N = N gcd m y F m F z
93 92 adantr y Fin ¬ z y y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 m y z F m gcd N = N gcd m y F m F z
94 93 imp y Fin ¬ z y y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 m y z F m gcd N = N gcd m y F m F z
95 simpl2 y z N F : y Fin ¬ z y N
96 95 82 78 3jca y z N F : y Fin ¬ z y N m y F m F z
97 96 ex y z N F : y Fin ¬ z y N m y F m F z
98 97 3ad2ant1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 y Fin ¬ z y N m y F m F z
99 98 com12 y Fin ¬ z y y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 N m y F m F z
100 99 adantr y Fin ¬ z y y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 N m y F m F z
101 100 imp y Fin ¬ z y y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 N m y F m F z
102 87 83 gcdcomd y z N F : y Fin ¬ z y N gcd m y F m = m y F m gcd N
103 102 ex y z N F : y Fin ¬ z y N gcd m y F m = m y F m gcd N
104 103 3ad2ant1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 y Fin ¬ z y N gcd m y F m = m y F m gcd N
105 104 com12 y Fin ¬ z y y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 N gcd m y F m = m y F m gcd N
106 105 adantr y Fin ¬ z y y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 N gcd m y F m = m y F m gcd N
107 106 imp y Fin ¬ z y y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 N gcd m y F m = m y F m gcd N
108 67 a1i y Fin ¬ z y y z y
109 idd y Fin ¬ z y N N
110 idd y Fin ¬ z y F : F :
111 108 109 110 3anim123d y Fin ¬ z y y z N F : y N F :
112 ssun1 y y z
113 ssralv y y z m y z F m gcd N = 1 m y F m gcd N = 1
114 112 113 mp1i y Fin ¬ z y m y z F m gcd N = 1 m y F m gcd N = 1
115 ssralv y y z m y z n y z m F m gcd F n = 1 m y n y z m F m gcd F n = 1
116 112 115 mp1i y Fin ¬ z y m y z n y z m F m gcd F n = 1 m y n y z m F m gcd F n = 1
117 112 a1i y Fin ¬ z y m y y y z
118 117 ssdifd y Fin ¬ z y m y y m y z m
119 ssralv y m y z m n y z m F m gcd F n = 1 n y m F m gcd F n = 1
120 118 119 syl y Fin ¬ z y m y n y z m F m gcd F n = 1 n y m F m gcd F n = 1
121 120 ralimdva y Fin ¬ z y m y n y z m F m gcd F n = 1 m y n y m F m gcd F n = 1
122 116 121 syld y Fin ¬ z y m y z n y z m F m gcd F n = 1 m y n y m F m gcd F n = 1
123 111 114 122 3anim123d y Fin ¬ z y y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1
124 123 imim1d y Fin ¬ z y y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 m y F m gcd N = 1
125 124 imp31 y Fin ¬ z y y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 m y F m gcd N = 1
126 107 125 eqtrd y Fin ¬ z y y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 N gcd m y F m = 1
127 rpmulgcd N m y F m F z N gcd m y F m = 1 N gcd m y F m F z = N gcd F z
128 101 126 127 syl2anc y Fin ¬ z y y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 N gcd m y F m F z = N gcd F z
129 vsnid z z
130 129 olci z y z z
131 elun z y z z y z z
132 130 131 mpbir z y z
133 73 oveq1d m = z F m gcd N = F z gcd N
134 133 eqeq1d m = z F m gcd N = 1 F z gcd N = 1
135 134 rspcv z y z m y z F m gcd N = 1 F z gcd N = 1
136 132 135 mp1i y z N F : m y z F m gcd N = 1 F z gcd N = 1
137 136 imp y z N F : m y z F m gcd N = 1 F z gcd N = 1
138 77 nnzd y z N F : F z
139 86 138 gcdcomd y z N F : N gcd F z = F z gcd N
140 139 eqeq1d y z N F : N gcd F z = 1 F z gcd N = 1
141 140 adantr y z N F : m y z F m gcd N = 1 N gcd F z = 1 F z gcd N = 1
142 137 141 mpbird y z N F : m y z F m gcd N = 1 N gcd F z = 1
143 142 3adant3 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 N gcd F z = 1
144 143 adantl y Fin ¬ z y y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 N gcd F z = 1
145 94 128 144 3eqtrd y Fin ¬ z y y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 m y z F m gcd N = 1
146 145 exp31 y Fin ¬ z y y N F : m y F m gcd N = 1 m y n y m F m gcd F n = 1 m y F m gcd N = 1 y z N F : m y z F m gcd N = 1 m y z n y z m F m gcd F n = 1 m y z F m gcd N = 1
147 11 22 33 44 53 146 findcard2s M Fin M N F : m M F m gcd N = 1 m M n M m F m gcd F n = 1 m M F m gcd N = 1
148 147 3expd M Fin M N F : m M F m gcd N = 1 m M n M m F m gcd F n = 1 m M F m gcd N = 1
149 148 3expd M Fin M N F : m M F m gcd N = 1 m M n M m F m gcd F n = 1 m M F m gcd N = 1
150 149 3imp M Fin M N F : m M F m gcd N = 1 m M n M m F m gcd F n = 1 m M F m gcd N = 1
151 150 3imp M Fin M N F : m M F m gcd N = 1 m M n M m F m gcd F n = 1 m M F m gcd N = 1