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