phimullem - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > phimullem		GIF version

Theorem phimullem 12366

Description: Lemma for phimul 12367. (Contributed by Mario Carneiro, 24-Feb-2014.)

**Hypotheses**
Ref	Expression
crth.1	⊢ 𝑆 = (0..^(𝑀 · 𝑁))
crth.2	⊢ 𝑇 = ((0..^𝑀) × (0..^𝑁))
crth.3	⊢ 𝐹 = (𝑥 ∈ 𝑆 ↦ ⟨(𝑥 mod 𝑀), (𝑥 mod 𝑁)⟩)
crth.4	⊢ (𝜑 → (𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑀 gcd 𝑁) = 1))
phimul.4	⊢ 𝑈 = {𝑦 ∈ (0..^𝑀) ∣ (𝑦 gcd 𝑀) = 1}
phimul.5	⊢ 𝑉 = {𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1}
phimul.6	⊢ 𝑊 = {𝑦 ∈ 𝑆 ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1}

**Assertion**
Ref	Expression
phimullem	⊢ (𝜑 → (ϕ‘(𝑀 · 𝑁)) = ((ϕ‘𝑀) · (ϕ‘𝑁)))

Distinct variable groups: 𝑦,𝐹 𝑥,𝑀 𝑥,𝑁 𝑥,𝑆,𝑦 𝑥,𝑇 𝜑,𝑥,𝑦 𝑦,𝑀 𝑦,𝑁 Allowed substitution hints: 𝑇(𝑦) 𝑈(𝑥,𝑦) 𝐹(𝑥) 𝑉(𝑥,𝑦) 𝑊(𝑥,𝑦)

Proof of Theorem phimullem Dummy variables 𝑧 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		oveq1 5926	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑤 → (𝑦 gcd (𝑀 · 𝑁)) = (𝑤 gcd (𝑀 · 𝑁)))
2	1	eqeq1d 2202	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑤 → ((𝑦 gcd (𝑀 · 𝑁)) = 1 ↔ (𝑤 gcd (𝑀 · 𝑁)) = 1))
3		phimul.6	. . . . . . . . . . . . 13 ⊢ 𝑊 = {𝑦 ∈ 𝑆 ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1}
4	2, 3	elrab2 2920	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ 𝑊 ↔ (𝑤 ∈ 𝑆 ∧ (𝑤 gcd (𝑀 · 𝑁)) = 1))
5	4	simplbi 274	. . . . . . . . . . 11 ⊢ (𝑤 ∈ 𝑊 → 𝑤 ∈ 𝑆)
6	5	adantl 277	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑤 ∈ 𝑆)
7		elfzoelz 10216	. . . . . . . . . . . . . . 15 ⊢ (𝑤 ∈ (0..^(𝑀 · 𝑁)) → 𝑤 ∈ ℤ)
8		crth.1	. . . . . . . . . . . . . . 15 ⊢ 𝑆 = (0..^(𝑀 · 𝑁))
9	7, 8	eleq2s 2288	. . . . . . . . . . . . . 14 ⊢ (𝑤 ∈ 𝑆 → 𝑤 ∈ ℤ)
10	6, 9	syl 14	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑤 ∈ ℤ)
11		zq 9694	. . . . . . . . . . . . 13 ⊢ (𝑤 ∈ ℤ → 𝑤 ∈ ℚ)
12	10, 11	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑤 ∈ ℚ)
13		crth.4	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑀 gcd 𝑁) = 1))
14	13	simp1d 1011	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑀 ∈ ℕ)
15	14	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑀 ∈ ℕ)
16		nnq 9701	. . . . . . . . . . . . 13 ⊢ (𝑀 ∈ ℕ → 𝑀 ∈ ℚ)
17	15, 16	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑀 ∈ ℚ)
18	15	nngt0d 9028	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 0 < 𝑀)
19	12, 17, 18	modqcld 10402	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 mod 𝑀) ∈ ℚ)
20	13	simp2d 1012	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 ∈ ℕ)
21	20	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑁 ∈ ℕ)
22		nnq 9701	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℚ)
23	21, 22	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑁 ∈ ℚ)
24	21	nngt0d 9028	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 0 < 𝑁)
25	12, 23, 24	modqcld 10402	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 mod 𝑁) ∈ ℚ)
26		opexg 4258	. . . . . . . . . . 11 ⊢ (((𝑤 mod 𝑀) ∈ ℚ ∧ (𝑤 mod 𝑁) ∈ ℚ) → ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩ ∈ V)
27	19, 25, 26	syl2anc 411	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩ ∈ V)
28		oveq1 5926	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (𝑥 mod 𝑀) = (𝑤 mod 𝑀))
29		oveq1 5926	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (𝑥 mod 𝑁) = (𝑤 mod 𝑁))
30	28, 29	opeq12d 3813	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → ⟨(𝑥 mod 𝑀), (𝑥 mod 𝑁)⟩ = ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩)
31		crth.3	. . . . . . . . . . 11 ⊢ 𝐹 = (𝑥 ∈ 𝑆 ↦ ⟨(𝑥 mod 𝑀), (𝑥 mod 𝑁)⟩)
32	30, 31	fvmptg 5634	. . . . . . . . . 10 ⊢ ((𝑤 ∈ 𝑆 ∧ ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩ ∈ V) → (𝐹‘𝑤) = ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩)
33	6, 27, 32	syl2anc 411	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝐹‘𝑤) = ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩)
34	5, 8	eleqtrdi 2286	. . . . . . . . . . . . . 14 ⊢ (𝑤 ∈ 𝑊 → 𝑤 ∈ (0..^(𝑀 · 𝑁)))
35	34	adantl 277	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑤 ∈ (0..^(𝑀 · 𝑁)))
36	35, 7	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑤 ∈ ℤ)
37		zmodfzo 10421	. . . . . . . . . . . 12 ⊢ ((𝑤 ∈ ℤ ∧ 𝑀 ∈ ℕ) → (𝑤 mod 𝑀) ∈ (0..^𝑀))
38	36, 15, 37	syl2anc 411	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 mod 𝑀) ∈ (0..^𝑀))
39		modgcd 12131	. . . . . . . . . . . . 13 ⊢ ((𝑤 ∈ ℤ ∧ 𝑀 ∈ ℕ) → ((𝑤 mod 𝑀) gcd 𝑀) = (𝑤 gcd 𝑀))
40	36, 15, 39	syl2anc 411	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ((𝑤 mod 𝑀) gcd 𝑀) = (𝑤 gcd 𝑀))
41	15	nnzd 9441	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑀 ∈ ℤ)
42		gcddvds 12103	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑤 ∈ ℤ ∧ 𝑀 ∈ ℤ) → ((𝑤 gcd 𝑀) ∥ 𝑤 ∧ (𝑤 gcd 𝑀) ∥ 𝑀))
43	36, 41, 42	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ((𝑤 gcd 𝑀) ∥ 𝑤 ∧ (𝑤 gcd 𝑀) ∥ 𝑀))
44	43	simpld 112	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) ∥ 𝑤)
45		nnne0 9012	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑀 ∈ ℕ → 𝑀 ≠ 0)
46		simpr 110	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑤 = 0 ∧ 𝑀 = 0) → 𝑀 = 0)
47	46	necon3ai 2413	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑀 ≠ 0 → ¬ (𝑤 = 0 ∧ 𝑀 = 0))
48	15, 45, 47	3syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ¬ (𝑤 = 0 ∧ 𝑀 = 0))
49		gcdn0cl 12102	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑤 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ ¬ (𝑤 = 0 ∧ 𝑀 = 0)) → (𝑤 gcd 𝑀) ∈ ℕ)
50	36, 41, 48, 49	syl21anc 1248	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) ∈ ℕ)
51	50	nnzd 9441	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) ∈ ℤ)
52	21	nnzd 9441	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑁 ∈ ℤ)
53	43	simprd 114	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) ∥ 𝑀)
54	51, 41, 52, 53	dvdsmultr1d 11978	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) ∥ (𝑀 · 𝑁))
55	15, 21	nnmulcld 9033	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑀 · 𝑁) ∈ ℕ)
56	55	nnzd 9441	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑀 · 𝑁) ∈ ℤ)
57		nnne0 9012	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 · 𝑁) ∈ ℕ → (𝑀 · 𝑁) ≠ 0)
58		simpr 110	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑤 = 0 ∧ (𝑀 · 𝑁) = 0) → (𝑀 · 𝑁) = 0)
59	58	necon3ai 2413	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 · 𝑁) ≠ 0 → ¬ (𝑤 = 0 ∧ (𝑀 · 𝑁) = 0))
60	55, 57, 59	3syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ¬ (𝑤 = 0 ∧ (𝑀 · 𝑁) = 0))
61		dvdslegcd 12104	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑤 gcd 𝑀) ∈ ℤ ∧ 𝑤 ∈ ℤ ∧ (𝑀 · 𝑁) ∈ ℤ) ∧ ¬ (𝑤 = 0 ∧ (𝑀 · 𝑁) = 0)) → (((𝑤 gcd 𝑀) ∥ 𝑤 ∧ (𝑤 gcd 𝑀) ∥ (𝑀 · 𝑁)) → (𝑤 gcd 𝑀) ≤ (𝑤 gcd (𝑀 · 𝑁))))
62	51, 36, 56, 60, 61	syl31anc 1252	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (((𝑤 gcd 𝑀) ∥ 𝑤 ∧ (𝑤 gcd 𝑀) ∥ (𝑀 · 𝑁)) → (𝑤 gcd 𝑀) ≤ (𝑤 gcd (𝑀 · 𝑁))))
63	44, 54, 62	mp2and 433	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) ≤ (𝑤 gcd (𝑀 · 𝑁)))
64	4	simprbi 275	. . . . . . . . . . . . . . 15 ⊢ (𝑤 ∈ 𝑊 → (𝑤 gcd (𝑀 · 𝑁)) = 1)
65	64	adantl 277	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd (𝑀 · 𝑁)) = 1)
66	63, 65	breqtrd 4056	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) ≤ 1)
67		nnle1eq1 9008	. . . . . . . . . . . . . 14 ⊢ ((𝑤 gcd 𝑀) ∈ ℕ → ((𝑤 gcd 𝑀) ≤ 1 ↔ (𝑤 gcd 𝑀) = 1))
68	50, 67	syl 14	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ((𝑤 gcd 𝑀) ≤ 1 ↔ (𝑤 gcd 𝑀) = 1))
69	66, 68	mpbid 147	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) = 1)
70	40, 69	eqtrd 2226	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ((𝑤 mod 𝑀) gcd 𝑀) = 1)
71		oveq1 5926	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑤 mod 𝑀) → (𝑦 gcd 𝑀) = ((𝑤 mod 𝑀) gcd 𝑀))
72	71	eqeq1d 2202	. . . . . . . . . . . 12 ⊢ (𝑦 = (𝑤 mod 𝑀) → ((𝑦 gcd 𝑀) = 1 ↔ ((𝑤 mod 𝑀) gcd 𝑀) = 1))
73		phimul.4	. . . . . . . . . . . 12 ⊢ 𝑈 = {𝑦 ∈ (0..^𝑀) ∣ (𝑦 gcd 𝑀) = 1}
74	72, 73	elrab2 2920	. . . . . . . . . . 11 ⊢ ((𝑤 mod 𝑀) ∈ 𝑈 ↔ ((𝑤 mod 𝑀) ∈ (0..^𝑀) ∧ ((𝑤 mod 𝑀) gcd 𝑀) = 1))
75	38, 70, 74	sylanbrc 417	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 mod 𝑀) ∈ 𝑈)
76		zmodfzo 10421	. . . . . . . . . . . 12 ⊢ ((𝑤 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑤 mod 𝑁) ∈ (0..^𝑁))
77	36, 21, 76	syl2anc 411	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 mod 𝑁) ∈ (0..^𝑁))
78		modgcd 12131	. . . . . . . . . . . . 13 ⊢ ((𝑤 ∈ ℤ ∧ 𝑁 ∈ ℕ) → ((𝑤 mod 𝑁) gcd 𝑁) = (𝑤 gcd 𝑁))
79	36, 21, 78	syl2anc 411	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ((𝑤 mod 𝑁) gcd 𝑁) = (𝑤 gcd 𝑁))
80		gcddvds 12103	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑤 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝑤 gcd 𝑁) ∥ 𝑤 ∧ (𝑤 gcd 𝑁) ∥ 𝑁))
81	36, 52, 80	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ((𝑤 gcd 𝑁) ∥ 𝑤 ∧ (𝑤 gcd 𝑁) ∥ 𝑁))
82	81	simpld 112	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑁) ∥ 𝑤)
83	81	simprd 114	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑁) ∥ 𝑁)
84		dvdsmul2 11960	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → 𝑁 ∥ (𝑀 · 𝑁))
85	41, 52, 84	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑁 ∥ (𝑀 · 𝑁))
86		nnne0 9012	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ ℕ → 𝑁 ≠ 0)
87		simpr 110	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑤 = 0 ∧ 𝑁 = 0) → 𝑁 = 0)
88	87	necon3ai 2413	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ≠ 0 → ¬ (𝑤 = 0 ∧ 𝑁 = 0))
89	21, 86, 88	3syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ¬ (𝑤 = 0 ∧ 𝑁 = 0))
90		gcdn0cl 12102	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑤 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬ (𝑤 = 0 ∧ 𝑁 = 0)) → (𝑤 gcd 𝑁) ∈ ℕ)
91	36, 52, 89, 90	syl21anc 1248	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑁) ∈ ℕ)
92	91	nnzd 9441	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑁) ∈ ℤ)
93		dvdstr 11974	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑤 gcd 𝑁) ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ (𝑀 · 𝑁) ∈ ℤ) → (((𝑤 gcd 𝑁) ∥ 𝑁 ∧ 𝑁 ∥ (𝑀 · 𝑁)) → (𝑤 gcd 𝑁) ∥ (𝑀 · 𝑁)))
94	92, 52, 56, 93	syl3anc 1249	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (((𝑤 gcd 𝑁) ∥ 𝑁 ∧ 𝑁 ∥ (𝑀 · 𝑁)) → (𝑤 gcd 𝑁) ∥ (𝑀 · 𝑁)))
95	83, 85, 94	mp2and 433	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑁) ∥ (𝑀 · 𝑁))
96		dvdslegcd 12104	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑤 gcd 𝑁) ∈ ℤ ∧ 𝑤 ∈ ℤ ∧ (𝑀 · 𝑁) ∈ ℤ) ∧ ¬ (𝑤 = 0 ∧ (𝑀 · 𝑁) = 0)) → (((𝑤 gcd 𝑁) ∥ 𝑤 ∧ (𝑤 gcd 𝑁) ∥ (𝑀 · 𝑁)) → (𝑤 gcd 𝑁) ≤ (𝑤 gcd (𝑀 · 𝑁))))
97	92, 36, 56, 60, 96	syl31anc 1252	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (((𝑤 gcd 𝑁) ∥ 𝑤 ∧ (𝑤 gcd 𝑁) ∥ (𝑀 · 𝑁)) → (𝑤 gcd 𝑁) ≤ (𝑤 gcd (𝑀 · 𝑁))))
98	82, 95, 97	mp2and 433	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑁) ≤ (𝑤 gcd (𝑀 · 𝑁)))
99	98, 65	breqtrd 4056	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑁) ≤ 1)
100		nnle1eq1 9008	. . . . . . . . . . . . . 14 ⊢ ((𝑤 gcd 𝑁) ∈ ℕ → ((𝑤 gcd 𝑁) ≤ 1 ↔ (𝑤 gcd 𝑁) = 1))
101	91, 100	syl 14	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ((𝑤 gcd 𝑁) ≤ 1 ↔ (𝑤 gcd 𝑁) = 1))
102	99, 101	mpbid 147	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑁) = 1)
103	79, 102	eqtrd 2226	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ((𝑤 mod 𝑁) gcd 𝑁) = 1)
104		oveq1 5926	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑤 mod 𝑁) → (𝑦 gcd 𝑁) = ((𝑤 mod 𝑁) gcd 𝑁))
105	104	eqeq1d 2202	. . . . . . . . . . . 12 ⊢ (𝑦 = (𝑤 mod 𝑁) → ((𝑦 gcd 𝑁) = 1 ↔ ((𝑤 mod 𝑁) gcd 𝑁) = 1))
106		phimul.5	. . . . . . . . . . . 12 ⊢ 𝑉 = {𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1}
107	105, 106	elrab2 2920	. . . . . . . . . . 11 ⊢ ((𝑤 mod 𝑁) ∈ 𝑉 ↔ ((𝑤 mod 𝑁) ∈ (0..^𝑁) ∧ ((𝑤 mod 𝑁) gcd 𝑁) = 1))
108	77, 103, 107	sylanbrc 417	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 mod 𝑁) ∈ 𝑉)
109		opelxpi 4692	. . . . . . . . . 10 ⊢ (((𝑤 mod 𝑀) ∈ 𝑈 ∧ (𝑤 mod 𝑁) ∈ 𝑉) → ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩ ∈ (𝑈 × 𝑉))
110	75, 108, 109	syl2anc 411	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩ ∈ (𝑈 × 𝑉))
111	33, 110	eqeltrd 2270	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝐹‘𝑤) ∈ (𝑈 × 𝑉))
112	111	ralrimiva 2567	. . . . . . 7 ⊢ (𝜑 → ∀𝑤 ∈ 𝑊 (𝐹‘𝑤) ∈ (𝑈 × 𝑉))
113		crth.2	. . . . . . . . . 10 ⊢ 𝑇 = ((0..^𝑀) × (0..^𝑁))
114	8, 113, 31, 13	crth 12365	. . . . . . . . 9 ⊢ (𝜑 → 𝐹:𝑆–1-1-onto→𝑇)
115		f1ofn 5502	. . . . . . . . 9 ⊢ (𝐹:𝑆–1-1-onto→𝑇 → 𝐹 Fn 𝑆)
116		fnfun 5352	. . . . . . . . 9 ⊢ (𝐹 Fn 𝑆 → Fun 𝐹)
117	114, 115, 116	3syl 17	. . . . . . . 8 ⊢ (𝜑 → Fun 𝐹)
118		ssrab2 3265	. . . . . . . . . 10 ⊢ {𝑦 ∈ 𝑆 ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1} ⊆ 𝑆
119	3, 118	eqsstri 3212	. . . . . . . . 9 ⊢ 𝑊 ⊆ 𝑆
120		fndm 5354	. . . . . . . . . 10 ⊢ (𝐹 Fn 𝑆 → dom 𝐹 = 𝑆)
121	114, 115, 120	3syl 17	. . . . . . . . 9 ⊢ (𝜑 → dom 𝐹 = 𝑆)
122	119, 121	sseqtrrid 3231	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ⊆ dom 𝐹)
123		funimass4 5608	. . . . . . . 8 ⊢ ((Fun 𝐹 ∧ 𝑊 ⊆ dom 𝐹) → ((𝐹 “ 𝑊) ⊆ (𝑈 × 𝑉) ↔ ∀𝑤 ∈ 𝑊 (𝐹‘𝑤) ∈ (𝑈 × 𝑉)))
124	117, 122, 123	syl2anc 411	. . . . . . 7 ⊢ (𝜑 → ((𝐹 “ 𝑊) ⊆ (𝑈 × 𝑉) ↔ ∀𝑤 ∈ 𝑊 (𝐹‘𝑤) ∈ (𝑈 × 𝑉)))
125	112, 124	mpbird 167	. . . . . 6 ⊢ (𝜑 → (𝐹 “ 𝑊) ⊆ (𝑈 × 𝑉))
126		ssrab2 3265	. . . . . . . . . . . . . 14 ⊢ {𝑦 ∈ (0..^𝑀) ∣ (𝑦 gcd 𝑀) = 1} ⊆ (0..^𝑀)
127	73, 126	eqsstri 3212	. . . . . . . . . . . . 13 ⊢ 𝑈 ⊆ (0..^𝑀)
128		ssrab2 3265	. . . . . . . . . . . . . 14 ⊢ {𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1} ⊆ (0..^𝑁)
129	106, 128	eqsstri 3212	. . . . . . . . . . . . 13 ⊢ 𝑉 ⊆ (0..^𝑁)
130		xpss12 4767	. . . . . . . . . . . . 13 ⊢ ((𝑈 ⊆ (0..^𝑀) ∧ 𝑉 ⊆ (0..^𝑁)) → (𝑈 × 𝑉) ⊆ ((0..^𝑀) × (0..^𝑁)))
131	127, 129, 130	mp2an 426	. . . . . . . . . . . 12 ⊢ (𝑈 × 𝑉) ⊆ ((0..^𝑀) × (0..^𝑁))
132	131, 113	sseqtrri 3215	. . . . . . . . . . 11 ⊢ (𝑈 × 𝑉) ⊆ 𝑇
133	132	sseli 3176	. . . . . . . . . 10 ⊢ (𝑧 ∈ (𝑈 × 𝑉) → 𝑧 ∈ 𝑇)
134		f1ocnvfv2 5822	. . . . . . . . . 10 ⊢ ((𝐹:𝑆–1-1-onto→𝑇 ∧ 𝑧 ∈ 𝑇) → (𝐹‘(^◡𝐹‘𝑧)) = 𝑧)
135	114, 133, 134	syl2an 289	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (𝐹‘(^◡𝐹‘𝑧)) = 𝑧)
136		f1ocnv 5514	. . . . . . . . . . . . 13 ⊢ (𝐹:𝑆–1-1-onto→𝑇 → ^◡𝐹:𝑇–1-1-onto→𝑆)
137		f1of 5501	. . . . . . . . . . . . 13 ⊢ (^◡𝐹:𝑇–1-1-onto→𝑆 → ^◡𝐹:𝑇⟶𝑆)
138	114, 136, 137	3syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → ^◡𝐹:𝑇⟶𝑆)
139		ffvelcdm 5692	. . . . . . . . . . . 12 ⊢ ((^◡𝐹:𝑇⟶𝑆 ∧ 𝑧 ∈ 𝑇) → (^◡𝐹‘𝑧) ∈ 𝑆)
140	138, 133, 139	syl2an 289	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (^◡𝐹‘𝑧) ∈ 𝑆)
141	140, 8	eleqtrdi 2286	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (^◡𝐹‘𝑧) ∈ (0..^(𝑀 · 𝑁)))
142		elfzoelz 10216	. . . . . . . . . . . . . . 15 ⊢ ((^◡𝐹‘𝑧) ∈ (0..^(𝑀 · 𝑁)) → (^◡𝐹‘𝑧) ∈ ℤ)
143	141, 142	syl 14	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (^◡𝐹‘𝑧) ∈ ℤ)
144	14	adantr 276	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑀 ∈ ℕ)
145		modgcd 12131	. . . . . . . . . . . . . 14 ⊢ (((^◡𝐹‘𝑧) ∈ ℤ ∧ 𝑀 ∈ ℕ) → (((^◡𝐹‘𝑧) mod 𝑀) gcd 𝑀) = ((^◡𝐹‘𝑧) gcd 𝑀))
146	143, 144, 145	syl2anc 411	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (((^◡𝐹‘𝑧) mod 𝑀) gcd 𝑀) = ((^◡𝐹‘𝑧) gcd 𝑀))
147		zq 9694	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((^◡𝐹‘𝑧) ∈ ℤ → (^◡𝐹‘𝑧) ∈ ℚ)
148	143, 147	syl 14	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (^◡𝐹‘𝑧) ∈ ℚ)
149	144, 16	syl 14	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑀 ∈ ℚ)
150	144	nngt0d 9028	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 0 < 𝑀)
151	148, 149, 150	modqcld 10402	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) mod 𝑀) ∈ ℚ)
152	20	adantr 276	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑁 ∈ ℕ)
153	152, 22	syl 14	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑁 ∈ ℚ)
154	152	nngt0d 9028	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 0 < 𝑁)
155	148, 153, 154	modqcld 10402	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) mod 𝑁) ∈ ℚ)
156		opexg 4258	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((^◡𝐹‘𝑧) mod 𝑀) ∈ ℚ ∧ ((^◡𝐹‘𝑧) mod 𝑁) ∈ ℚ) → ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩ ∈ V)
157	151, 155, 156	syl2anc 411	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩ ∈ V)
158		oveq1 5926	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑤 = (^◡𝐹‘𝑧) → (𝑤 mod 𝑀) = ((^◡𝐹‘𝑧) mod 𝑀))
159		oveq1 5926	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑤 = (^◡𝐹‘𝑧) → (𝑤 mod 𝑁) = ((^◡𝐹‘𝑧) mod 𝑁))
160	158, 159	opeq12d 3813	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑤 = (^◡𝐹‘𝑧) → ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩ = ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩)
161	30	cbvmptv 4126	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 ∈ 𝑆 ↦ ⟨(𝑥 mod 𝑀), (𝑥 mod 𝑁)⟩) = (𝑤 ∈ 𝑆 ↦ ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩)
162	31, 161	eqtri 2214	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝐹 = (𝑤 ∈ 𝑆 ↦ ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩)
163	160, 162	fvmptg 5634	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((^◡𝐹‘𝑧) ∈ 𝑆 ∧ ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩ ∈ V) → (𝐹‘(^◡𝐹‘𝑧)) = ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩)
164	140, 157, 163	syl2anc 411	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (𝐹‘(^◡𝐹‘𝑧)) = ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩)
165	135, 164	eqtr3d 2228	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑧 = ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩)
166		simpr 110	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑧 ∈ (𝑈 × 𝑉))
167	165, 166	eqeltrrd 2271	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩ ∈ (𝑈 × 𝑉))
168		opelxp 4690	. . . . . . . . . . . . . . . . 17 ⊢ (⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩ ∈ (𝑈 × 𝑉) ↔ (((^◡𝐹‘𝑧) mod 𝑀) ∈ 𝑈 ∧ ((^◡𝐹‘𝑧) mod 𝑁) ∈ 𝑉))
169	167, 168	sylib 122	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (((^◡𝐹‘𝑧) mod 𝑀) ∈ 𝑈 ∧ ((^◡𝐹‘𝑧) mod 𝑁) ∈ 𝑉))
170	169	simpld 112	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) mod 𝑀) ∈ 𝑈)
171		oveq1 5926	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = ((^◡𝐹‘𝑧) mod 𝑀) → (𝑦 gcd 𝑀) = (((^◡𝐹‘𝑧) mod 𝑀) gcd 𝑀))
172	171	eqeq1d 2202	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = ((^◡𝐹‘𝑧) mod 𝑀) → ((𝑦 gcd 𝑀) = 1 ↔ (((^◡𝐹‘𝑧) mod 𝑀) gcd 𝑀) = 1))
173	172, 73	elrab2 2920	. . . . . . . . . . . . . . 15 ⊢ (((^◡𝐹‘𝑧) mod 𝑀) ∈ 𝑈 ↔ (((^◡𝐹‘𝑧) mod 𝑀) ∈ (0..^𝑀) ∧ (((^◡𝐹‘𝑧) mod 𝑀) gcd 𝑀) = 1))
174	170, 173	sylib 122	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (((^◡𝐹‘𝑧) mod 𝑀) ∈ (0..^𝑀) ∧ (((^◡𝐹‘𝑧) mod 𝑀) gcd 𝑀) = 1))
175	174	simprd 114	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (((^◡𝐹‘𝑧) mod 𝑀) gcd 𝑀) = 1)
176	146, 175	eqtr3d 2228	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) gcd 𝑀) = 1)
177		modgcd 12131	. . . . . . . . . . . . . 14 ⊢ (((^◡𝐹‘𝑧) ∈ ℤ ∧ 𝑁 ∈ ℕ) → (((^◡𝐹‘𝑧) mod 𝑁) gcd 𝑁) = ((^◡𝐹‘𝑧) gcd 𝑁))
178	143, 152, 177	syl2anc 411	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (((^◡𝐹‘𝑧) mod 𝑁) gcd 𝑁) = ((^◡𝐹‘𝑧) gcd 𝑁))
179	169	simprd 114	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) mod 𝑁) ∈ 𝑉)
180		oveq1 5926	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = ((^◡𝐹‘𝑧) mod 𝑁) → (𝑦 gcd 𝑁) = (((^◡𝐹‘𝑧) mod 𝑁) gcd 𝑁))
181	180	eqeq1d 2202	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = ((^◡𝐹‘𝑧) mod 𝑁) → ((𝑦 gcd 𝑁) = 1 ↔ (((^◡𝐹‘𝑧) mod 𝑁) gcd 𝑁) = 1))
182	181, 106	elrab2 2920	. . . . . . . . . . . . . . 15 ⊢ (((^◡𝐹‘𝑧) mod 𝑁) ∈ 𝑉 ↔ (((^◡𝐹‘𝑧) mod 𝑁) ∈ (0..^𝑁) ∧ (((^◡𝐹‘𝑧) mod 𝑁) gcd 𝑁) = 1))
183	179, 182	sylib 122	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (((^◡𝐹‘𝑧) mod 𝑁) ∈ (0..^𝑁) ∧ (((^◡𝐹‘𝑧) mod 𝑁) gcd 𝑁) = 1))
184	183	simprd 114	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (((^◡𝐹‘𝑧) mod 𝑁) gcd 𝑁) = 1)
185	178, 184	eqtr3d 2228	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) gcd 𝑁) = 1)
186	14	nnzd 9441	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑀 ∈ ℤ)
187	186	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑀 ∈ ℤ)
188	20	nnzd 9441	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 ∈ ℤ)
189	188	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑁 ∈ ℤ)
190		rpmul 12239	. . . . . . . . . . . . 13 ⊢ (((^◡𝐹‘𝑧) ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((((^◡𝐹‘𝑧) gcd 𝑀) = 1 ∧ ((^◡𝐹‘𝑧) gcd 𝑁) = 1) → ((^◡𝐹‘𝑧) gcd (𝑀 · 𝑁)) = 1))
191	143, 187, 189, 190	syl3anc 1249	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((((^◡𝐹‘𝑧) gcd 𝑀) = 1 ∧ ((^◡𝐹‘𝑧) gcd 𝑁) = 1) → ((^◡𝐹‘𝑧) gcd (𝑀 · 𝑁)) = 1))
192	176, 185, 191	mp2and 433	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) gcd (𝑀 · 𝑁)) = 1)
193		oveq1 5926	. . . . . . . . . . . . 13 ⊢ (𝑦 = (^◡𝐹‘𝑧) → (𝑦 gcd (𝑀 · 𝑁)) = ((^◡𝐹‘𝑧) gcd (𝑀 · 𝑁)))
194	193	eqeq1d 2202	. . . . . . . . . . . 12 ⊢ (𝑦 = (^◡𝐹‘𝑧) → ((𝑦 gcd (𝑀 · 𝑁)) = 1 ↔ ((^◡𝐹‘𝑧) gcd (𝑀 · 𝑁)) = 1))
195	194, 3	elrab2 2920	. . . . . . . . . . 11 ⊢ ((^◡𝐹‘𝑧) ∈ 𝑊 ↔ ((^◡𝐹‘𝑧) ∈ 𝑆 ∧ ((^◡𝐹‘𝑧) gcd (𝑀 · 𝑁)) = 1))
196	140, 192, 195	sylanbrc 417	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (^◡𝐹‘𝑧) ∈ 𝑊)
197		funfvima2 5792	. . . . . . . . . . . 12 ⊢ ((Fun 𝐹 ∧ 𝑊 ⊆ dom 𝐹) → ((^◡𝐹‘𝑧) ∈ 𝑊 → (𝐹‘(^◡𝐹‘𝑧)) ∈ (𝐹 “ 𝑊)))
198	117, 122, 197	syl2anc 411	. . . . . . . . . . 11 ⊢ (𝜑 → ((^◡𝐹‘𝑧) ∈ 𝑊 → (𝐹‘(^◡𝐹‘𝑧)) ∈ (𝐹 “ 𝑊)))
199	198	imp 124	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (^◡𝐹‘𝑧) ∈ 𝑊) → (𝐹‘(^◡𝐹‘𝑧)) ∈ (𝐹 “ 𝑊))
200	196, 199	syldan 282	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (𝐹‘(^◡𝐹‘𝑧)) ∈ (𝐹 “ 𝑊))
201	135, 200	eqeltrrd 2271	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑧 ∈ (𝐹 “ 𝑊))
202	201	ex 115	. . . . . . 7 ⊢ (𝜑 → (𝑧 ∈ (𝑈 × 𝑉) → 𝑧 ∈ (𝐹 “ 𝑊)))
203	202	ssrdv 3186	. . . . . 6 ⊢ (𝜑 → (𝑈 × 𝑉) ⊆ (𝐹 “ 𝑊))
204	125, 203	eqssd 3197	. . . . 5 ⊢ (𝜑 → (𝐹 “ 𝑊) = (𝑈 × 𝑉))
205		f1of1 5500	. . . . . . 7 ⊢ (𝐹:𝑆–1-1-onto→𝑇 → 𝐹:𝑆–1-1→𝑇)
206	114, 205	syl 14	. . . . . 6 ⊢ (𝜑 → 𝐹:𝑆–1-1→𝑇)
207	119	a1i 9	. . . . . 6 ⊢ (𝜑 → 𝑊 ⊆ 𝑆)
208		0z 9331	. . . . . . . . . 10 ⊢ 0 ∈ ℤ
209	186, 188	zmulcld 9448	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 · 𝑁) ∈ ℤ)
210		fzofig 10506	. . . . . . . . . 10 ⊢ ((0 ∈ ℤ ∧ (𝑀 · 𝑁) ∈ ℤ) → (0..^(𝑀 · 𝑁)) ∈ Fin)
211	208, 209, 210	sylancr 414	. . . . . . . . 9 ⊢ (𝜑 → (0..^(𝑀 · 𝑁)) ∈ Fin)
212	8, 211	eqeltrid 2280	. . . . . . . 8 ⊢ (𝜑 → 𝑆 ∈ Fin)
213		elfzoelz 10216	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ (0..^(𝑀 · 𝑁)) → 𝑦 ∈ ℤ)
214	213, 8	eleq2s 2288	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ 𝑆 → 𝑦 ∈ ℤ)
215	214	adantl 277	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑆) → 𝑦 ∈ ℤ)
216	209	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑆) → (𝑀 · 𝑁) ∈ ℤ)
217	215, 216	gcdcld 12108	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑆) → (𝑦 gcd (𝑀 · 𝑁)) ∈ ℕ₀)
218	217	nn0zd 9440	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑆) → (𝑦 gcd (𝑀 · 𝑁)) ∈ ℤ)
219		1zzd 9347	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑆) → 1 ∈ ℤ)
220		zdceq 9395	. . . . . . . . . 10 ⊢ (((𝑦 gcd (𝑀 · 𝑁)) ∈ ℤ ∧ 1 ∈ ℤ) → DECID (𝑦 gcd (𝑀 · 𝑁)) = 1)
221	218, 219, 220	syl2anc 411	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑆) → DECID (𝑦 gcd (𝑀 · 𝑁)) = 1)
222	221	ralrimiva 2567	. . . . . . . 8 ⊢ (𝜑 → ∀𝑦 ∈ 𝑆 DECID (𝑦 gcd (𝑀 · 𝑁)) = 1)
223	212, 222	ssfirab 6992	. . . . . . 7 ⊢ (𝜑 → {𝑦 ∈ 𝑆 ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1} ∈ Fin)
224	3, 223	eqeltrid 2280	. . . . . 6 ⊢ (𝜑 → 𝑊 ∈ Fin)
225		f1imaeng 6848	. . . . . 6 ⊢ ((𝐹:𝑆–1-1→𝑇 ∧ 𝑊 ⊆ 𝑆 ∧ 𝑊 ∈ Fin) → (𝐹 “ 𝑊) ≈ 𝑊)
226	206, 207, 224, 225	syl3anc 1249	. . . . 5 ⊢ (𝜑 → (𝐹 “ 𝑊) ≈ 𝑊)
227	204, 226	eqbrtrrd 4054	. . . 4 ⊢ (𝜑 → (𝑈 × 𝑉) ≈ 𝑊)
228		fzofig 10506	. . . . . . . . 9 ⊢ ((0 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (0..^𝑀) ∈ Fin)
229	208, 186, 228	sylancr 414	. . . . . . . 8 ⊢ (𝜑 → (0..^𝑀) ∈ Fin)
230		elfzoelz 10216	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ (0..^𝑀) → 𝑦 ∈ ℤ)
231	230	adantl 277	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑀)) → 𝑦 ∈ ℤ)
232	186	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑀)) → 𝑀 ∈ ℤ)
233	231, 232	gcdcld 12108	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑀)) → (𝑦 gcd 𝑀) ∈ ℕ₀)
234	233	nn0zd 9440	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑀)) → (𝑦 gcd 𝑀) ∈ ℤ)
235		1z 9346	. . . . . . . . . 10 ⊢ 1 ∈ ℤ
236		zdceq 9395	. . . . . . . . . 10 ⊢ (((𝑦 gcd 𝑀) ∈ ℤ ∧ 1 ∈ ℤ) → DECID (𝑦 gcd 𝑀) = 1)
237	234, 235, 236	sylancl 413	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑀)) → DECID (𝑦 gcd 𝑀) = 1)
238	237	ralrimiva 2567	. . . . . . . 8 ⊢ (𝜑 → ∀𝑦 ∈ (0..^𝑀)DECID (𝑦 gcd 𝑀) = 1)
239	229, 238	ssfirab 6992	. . . . . . 7 ⊢ (𝜑 → {𝑦 ∈ (0..^𝑀) ∣ (𝑦 gcd 𝑀) = 1} ∈ Fin)
240	73, 239	eqeltrid 2280	. . . . . 6 ⊢ (𝜑 → 𝑈 ∈ Fin)
241		fzofig 10506	. . . . . . . . 9 ⊢ ((0 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (0..^𝑁) ∈ Fin)
242	208, 188, 241	sylancr 414	. . . . . . . 8 ⊢ (𝜑 → (0..^𝑁) ∈ Fin)
243		elfzoelz 10216	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ (0..^𝑁) → 𝑦 ∈ ℤ)
244	243	adantl 277	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑁)) → 𝑦 ∈ ℤ)
245	188	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑁)) → 𝑁 ∈ ℤ)
246	244, 245	gcdcld 12108	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑁)) → (𝑦 gcd 𝑁) ∈ ℕ₀)
247	246	nn0zd 9440	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑁)) → (𝑦 gcd 𝑁) ∈ ℤ)
248		1zzd 9347	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑁)) → 1 ∈ ℤ)
249		zdceq 9395	. . . . . . . . . 10 ⊢ (((𝑦 gcd 𝑁) ∈ ℤ ∧ 1 ∈ ℤ) → DECID (𝑦 gcd 𝑁) = 1)
250	247, 248, 249	syl2anc 411	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑁)) → DECID (𝑦 gcd 𝑁) = 1)
251	250	ralrimiva 2567	. . . . . . . 8 ⊢ (𝜑 → ∀𝑦 ∈ (0..^𝑁)DECID (𝑦 gcd 𝑁) = 1)
252	242, 251	ssfirab 6992	. . . . . . 7 ⊢ (𝜑 → {𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1} ∈ Fin)
253	106, 252	eqeltrid 2280	. . . . . 6 ⊢ (𝜑 → 𝑉 ∈ Fin)
254		xpfi 6988	. . . . . 6 ⊢ ((𝑈 ∈ Fin ∧ 𝑉 ∈ Fin) → (𝑈 × 𝑉) ∈ Fin)
255	240, 253, 254	syl2anc 411	. . . . 5 ⊢ (𝜑 → (𝑈 × 𝑉) ∈ Fin)
256		hashen 10858	. . . . 5 ⊢ (((𝑈 × 𝑉) ∈ Fin ∧ 𝑊 ∈ Fin) → ((♯‘(𝑈 × 𝑉)) = (♯‘𝑊) ↔ (𝑈 × 𝑉) ≈ 𝑊))
257	255, 224, 256	syl2anc 411	. . . 4 ⊢ (𝜑 → ((♯‘(𝑈 × 𝑉)) = (♯‘𝑊) ↔ (𝑈 × 𝑉) ≈ 𝑊))
258	227, 257	mpbird 167	. . 3 ⊢ (𝜑 → (♯‘(𝑈 × 𝑉)) = (♯‘𝑊))
259		hashxp 10900	. . . 4 ⊢ ((𝑈 ∈ Fin ∧ 𝑉 ∈ Fin) → (♯‘(𝑈 × 𝑉)) = ((♯‘𝑈) · (♯‘𝑉)))
260	240, 253, 259	syl2anc 411	. . 3 ⊢ (𝜑 → (♯‘(𝑈 × 𝑉)) = ((♯‘𝑈) · (♯‘𝑉)))
261	258, 260	eqtr3d 2228	. 2 ⊢ (𝜑 → (♯‘𝑊) = ((♯‘𝑈) · (♯‘𝑉)))
262	14, 20	nnmulcld 9033	. . 3 ⊢ (𝜑 → (𝑀 · 𝑁) ∈ ℕ)
263		dfphi2 12361	. . . 4 ⊢ ((𝑀 · 𝑁) ∈ ℕ → (ϕ‘(𝑀 · 𝑁)) = (♯‘{𝑦 ∈ (0..^(𝑀 · 𝑁)) ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1}))
264	8	rabeqi 2753	. . . . . 6 ⊢ {𝑦 ∈ 𝑆 ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1} = {𝑦 ∈ (0..^(𝑀 · 𝑁)) ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1}
265	3, 264	eqtri 2214	. . . . 5 ⊢ 𝑊 = {𝑦 ∈ (0..^(𝑀 · 𝑁)) ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1}
266	265	fveq2i 5558	. . . 4 ⊢ (♯‘𝑊) = (♯‘{𝑦 ∈ (0..^(𝑀 · 𝑁)) ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1})
267	263, 266	eqtr4di 2244	. . 3 ⊢ ((𝑀 · 𝑁) ∈ ℕ → (ϕ‘(𝑀 · 𝑁)) = (♯‘𝑊))
268	262, 267	syl 14	. 2 ⊢ (𝜑 → (ϕ‘(𝑀 · 𝑁)) = (♯‘𝑊))
269		dfphi2 12361	. . . . 5 ⊢ (𝑀 ∈ ℕ → (ϕ‘𝑀) = (♯‘{𝑦 ∈ (0..^𝑀) ∣ (𝑦 gcd 𝑀) = 1}))
270	73	fveq2i 5558	. . . . 5 ⊢ (♯‘𝑈) = (♯‘{𝑦 ∈ (0..^𝑀) ∣ (𝑦 gcd 𝑀) = 1})
271	269, 270	eqtr4di 2244	. . . 4 ⊢ (𝑀 ∈ ℕ → (ϕ‘𝑀) = (♯‘𝑈))
272	14, 271	syl 14	. . 3 ⊢ (𝜑 → (ϕ‘𝑀) = (♯‘𝑈))
273		dfphi2 12361	. . . . 5 ⊢ (𝑁 ∈ ℕ → (ϕ‘𝑁) = (♯‘{𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1}))
274	106	fveq2i 5558	. . . . 5 ⊢ (♯‘𝑉) = (♯‘{𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1})
275	273, 274	eqtr4di 2244	. . . 4 ⊢ (𝑁 ∈ ℕ → (ϕ‘𝑁) = (♯‘𝑉))
276	20, 275	syl 14	. . 3 ⊢ (𝜑 → (ϕ‘𝑁) = (♯‘𝑉))
277	272, 276	oveq12d 5937	. 2 ⊢ (𝜑 → ((ϕ‘𝑀) · (ϕ‘𝑁)) = ((♯‘𝑈) · (♯‘𝑉)))
278	261, 268, 277	3eqtr4d 2236	1 ⊢ (𝜑 → (ϕ‘(𝑀 · 𝑁)) = ((ϕ‘𝑀) · (ϕ‘𝑁)))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 DECID wdc 835 ∧ w3a 980 = wceq 1364 ∈ wcel 2164 ≠ wne 2364 ∀wral 2472 {crab 2476 Vcvv 2760 ⊆ wss 3154 ⟨cop 3622 class class class wbr 4030 ↦ cmpt 4091 × cxp 4658 ^◡ccnv 4659 dom cdm 4660 “ cima 4663 Fun wfun 5249 Fn wfn 5250 ⟶wf 5251 –1-1→wf1 5252 –1-1-onto→wf1o 5254 ‘cfv 5255 (class class class)co 5919 ≈ cen 6794 Fincfn 6796 0cc0 7874 1c1 7875 · cmul 7879 ≤ cle 8057 ℕcn 8984 ℤcz 9320 ℚcq 9687 ..^cfzo 10211 mod cmo 10396 ♯chash 10849 ∥ cdvds 11933 gcd cgcd 12082 ϕcphi 12350

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 615 ax-in2 616 ax-io 710 ax-5 1458 ax-7 1459 ax-gen 1460 ax-ie1 1504 ax-ie2 1505 ax-8 1515 ax-10 1516 ax-11 1517 ax-i12 1518 ax-bndl 1520 ax-4 1521 ax-17 1537 ax-i9 1541 ax-ial 1545 ax-i5r 1546 ax-13 2166 ax-14 2167 ax-ext 2175 ax-coll 4145 ax-sep 4148 ax-nul 4156 ax-pow 4204 ax-pr 4239 ax-un 4465 ax-setind 4570 ax-iinf 4621 ax-cnex 7965 ax-resscn 7966 ax-1cn 7967 ax-1re 7968 ax-icn 7969 ax-addcl 7970 ax-addrcl 7971 ax-mulcl 7972 ax-mulrcl 7973 ax-addcom 7974 ax-mulcom 7975 ax-addass 7976 ax-mulass 7977 ax-distr 7978 ax-i2m1 7979 ax-0lt1 7980 ax-1rid 7981 ax-0id 7982 ax-rnegex 7983 ax-precex 7984 ax-cnre 7985 ax-pre-ltirr 7986 ax-pre-ltwlin 7987 ax-pre-lttrn 7988 ax-pre-apti 7989 ax-pre-ltadd 7990 ax-pre-mulgt0 7991 ax-pre-mulext 7992 ax-arch 7993 ax-caucvg 7994

This theorem depends on definitions: df-bi 117 df-stab 832 df-dc 836 df-3or 981 df-3an 982 df-tru 1367 df-fal 1370 df-nf 1472 df-sb 1774 df-eu 2045 df-mo 2046 df-clab 2180 df-cleq 2186 df-clel 2189 df-nfc 2325 df-ne 2365 df-nel 2460 df-ral 2477 df-rex 2478 df-reu 2479 df-rmo 2480 df-rab 2481 df-v 2762 df-sbc 2987 df-csb 3082 df-dif 3156 df-un 3158 df-in 3160 df-ss 3167 df-nul 3448 df-if 3559 df-pw 3604 df-sn 3625 df-pr 3626 df-op 3628 df-uni 3837 df-int 3872 df-iun 3915 df-br 4031 df-opab 4092 df-mpt 4093 df-tr 4129 df-id 4325 df-po 4328 df-iso 4329 df-iord 4398 df-on 4400 df-ilim 4401 df-suc 4403 df-iom 4624 df-xp 4666 df-rel 4667 df-cnv 4668 df-co 4669 df-dm 4670 df-rn 4671 df-res 4672 df-ima 4673 df-iota 5216 df-fun 5257 df-fn 5258 df-f 5259 df-f1 5260 df-fo 5261 df-f1o 5262 df-fv 5263 df-riota 5874 df-ov 5922 df-oprab 5923 df-mpo 5924 df-1st 6195 df-2nd 6196 df-recs 6360 df-irdg 6425 df-frec 6446 df-1o 6471 df-oadd 6475 df-er 6589 df-en 6797 df-dom 6798 df-fin 6799 df-sup 7045 df-pnf 8058 df-mnf 8059 df-xr 8060 df-ltxr 8061 df-le 8062 df-sub 8194 df-neg 8195 df-reap 8596 df-ap 8603 df-div 8694 df-inn 8985 df-2 9043 df-3 9044 df-4 9045 df-n0 9244 df-z 9321 df-uz 9596 df-q 9688 df-rp 9723 df-fz 10078 df-fzo 10212 df-fl 10342 df-mod 10397 df-seqfrec 10522 df-exp 10613 df-ihash 10850 df-cj 10989 df-re 10990 df-im 10991 df-rsqrt 11145 df-abs 11146 df-dvds 11934 df-gcd 12083 df-phi 12352

This theorem is referenced by: phimul 12367

W3C validator