phimullem - Intuitionistic Logic Explorer

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

Theorem phimullem 12877

Description: Lemma for phimul 12878. (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 6035	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑤 → (𝑦 gcd (𝑀 · 𝑁)) = (𝑤 gcd (𝑀 · 𝑁)))
2	1	eqeq1d 2240	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑤 → ((𝑦 gcd (𝑀 · 𝑁)) = 1 ↔ (𝑤 gcd (𝑀 · 𝑁)) = 1))
3		phimul.6	. . . . . . . . . . . . 13 ⊢ 𝑊 = {𝑦 ∈ 𝑆 ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1}
4	2, 3	elrab2 2966	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ 𝑊 ↔ (𝑤 ∈ 𝑆 ∧ (𝑤 gcd (𝑀 · 𝑁)) = 1))
5	4	simplbi 274	. . . . . . . . . . 11 ⊢ (𝑤 ∈ 𝑊 → 𝑤 ∈ 𝑆)
6	5	adantl 277	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑤 ∈ 𝑆)
7		elfzoelz 10444	. . . . . . . . . . . . . . 15 ⊢ (𝑤 ∈ (0..^(𝑀 · 𝑁)) → 𝑤 ∈ ℤ)
8		crth.1	. . . . . . . . . . . . . . 15 ⊢ 𝑆 = (0..^(𝑀 · 𝑁))
9	7, 8	eleq2s 2326	. . . . . . . . . . . . . 14 ⊢ (𝑤 ∈ 𝑆 → 𝑤 ∈ ℤ)
10	6, 9	syl 14	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑤 ∈ ℤ)
11		zq 9921	. . . . . . . . . . . . 13 ⊢ (𝑤 ∈ ℤ → 𝑤 ∈ ℚ)
12	10, 11	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑤 ∈ ℚ)
13		crth.4	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑀 gcd 𝑁) = 1))
14	13	simp1d 1036	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑀 ∈ ℕ)
15	14	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑀 ∈ ℕ)
16		nnq 9928	. . . . . . . . . . . . 13 ⊢ (𝑀 ∈ ℕ → 𝑀 ∈ ℚ)
17	15, 16	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑀 ∈ ℚ)
18	15	nngt0d 9246	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 0 < 𝑀)
19	12, 17, 18	modqcld 10653	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 mod 𝑀) ∈ ℚ)
20	13	simp2d 1037	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 ∈ ℕ)
21	20	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑁 ∈ ℕ)
22		nnq 9928	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℚ)
23	21, 22	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑁 ∈ ℚ)
24	21	nngt0d 9246	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 0 < 𝑁)
25	12, 23, 24	modqcld 10653	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 mod 𝑁) ∈ ℚ)
26		opexg 4326	. . . . . . . . . . 11 ⊢ (((𝑤 mod 𝑀) ∈ ℚ ∧ (𝑤 mod 𝑁) ∈ ℚ) → ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩ ∈ V)
27	19, 25, 26	syl2anc 411	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩ ∈ V)
28		oveq1 6035	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (𝑥 mod 𝑀) = (𝑤 mod 𝑀))
29		oveq1 6035	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (𝑥 mod 𝑁) = (𝑤 mod 𝑁))
30	28, 29	opeq12d 3875	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → ⟨(𝑥 mod 𝑀), (𝑥 mod 𝑁)⟩ = ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩)
31		crth.3	. . . . . . . . . . 11 ⊢ 𝐹 = (𝑥 ∈ 𝑆 ↦ ⟨(𝑥 mod 𝑀), (𝑥 mod 𝑁)⟩)
32	30, 31	fvmptg 5731	. . . . . . . . . 10 ⊢ ((𝑤 ∈ 𝑆 ∧ ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩ ∈ V) → (𝐹‘𝑤) = ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩)
33	6, 27, 32	syl2anc 411	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝐹‘𝑤) = ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩)
34	5, 8	eleqtrdi 2324	. . . . . . . . . . . . . 14 ⊢ (𝑤 ∈ 𝑊 → 𝑤 ∈ (0..^(𝑀 · 𝑁)))
35	34	adantl 277	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑤 ∈ (0..^(𝑀 · 𝑁)))
36	35, 7	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑤 ∈ ℤ)
37		zmodfzo 10672	. . . . . . . . . . . 12 ⊢ ((𝑤 ∈ ℤ ∧ 𝑀 ∈ ℕ) → (𝑤 mod 𝑀) ∈ (0..^𝑀))
38	36, 15, 37	syl2anc 411	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 mod 𝑀) ∈ (0..^𝑀))
39		modgcd 12642	. . . . . . . . . . . . 13 ⊢ ((𝑤 ∈ ℤ ∧ 𝑀 ∈ ℕ) → ((𝑤 mod 𝑀) gcd 𝑀) = (𝑤 gcd 𝑀))
40	36, 15, 39	syl2anc 411	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ((𝑤 mod 𝑀) gcd 𝑀) = (𝑤 gcd 𝑀))
41	15	nnzd 9662	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑀 ∈ ℤ)
42		gcddvds 12614	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑤 ∈ ℤ ∧ 𝑀 ∈ ℤ) → ((𝑤 gcd 𝑀) ∥ 𝑤 ∧ (𝑤 gcd 𝑀) ∥ 𝑀))
43	36, 41, 42	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ((𝑤 gcd 𝑀) ∥ 𝑤 ∧ (𝑤 gcd 𝑀) ∥ 𝑀))
44	43	simpld 112	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) ∥ 𝑤)
45		nnne0 9230	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑀 ∈ ℕ → 𝑀 ≠ 0)
46		simpr 110	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑤 = 0 ∧ 𝑀 = 0) → 𝑀 = 0)
47	46	necon3ai 2452	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑀 ≠ 0 → ¬ (𝑤 = 0 ∧ 𝑀 = 0))
48	15, 45, 47	3syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ¬ (𝑤 = 0 ∧ 𝑀 = 0))
49		gcdn0cl 12613	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑤 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ ¬ (𝑤 = 0 ∧ 𝑀 = 0)) → (𝑤 gcd 𝑀) ∈ ℕ)
50	36, 41, 48, 49	syl21anc 1273	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) ∈ ℕ)
51	50	nnzd 9662	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) ∈ ℤ)
52	21	nnzd 9662	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑁 ∈ ℤ)
53	43	simprd 114	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) ∥ 𝑀)
54	51, 41, 52, 53	dvdsmultr1d 12473	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) ∥ (𝑀 · 𝑁))
55	15, 21	nnmulcld 9251	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑀 · 𝑁) ∈ ℕ)
56	55	nnzd 9662	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑀 · 𝑁) ∈ ℤ)
57		nnne0 9230	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 · 𝑁) ∈ ℕ → (𝑀 · 𝑁) ≠ 0)
58		simpr 110	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑤 = 0 ∧ (𝑀 · 𝑁) = 0) → (𝑀 · 𝑁) = 0)
59	58	necon3ai 2452	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 · 𝑁) ≠ 0 → ¬ (𝑤 = 0 ∧ (𝑀 · 𝑁) = 0))
60	55, 57, 59	3syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ¬ (𝑤 = 0 ∧ (𝑀 · 𝑁) = 0))
61		dvdslegcd 12615	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑤 gcd 𝑀) ∈ ℤ ∧ 𝑤 ∈ ℤ ∧ (𝑀 · 𝑁) ∈ ℤ) ∧ ¬ (𝑤 = 0 ∧ (𝑀 · 𝑁) = 0)) → (((𝑤 gcd 𝑀) ∥ 𝑤 ∧ (𝑤 gcd 𝑀) ∥ (𝑀 · 𝑁)) → (𝑤 gcd 𝑀) ≤ (𝑤 gcd (𝑀 · 𝑁))))
62	51, 36, 56, 60, 61	syl31anc 1277	. . . . . . . . . . . . . . 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 4119	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑀) ≤ 1)
67		nnle1eq1 9226	. . . . . . . . . . . . . 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 2264	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ((𝑤 mod 𝑀) gcd 𝑀) = 1)
71		oveq1 6035	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑤 mod 𝑀) → (𝑦 gcd 𝑀) = ((𝑤 mod 𝑀) gcd 𝑀))
72	71	eqeq1d 2240	. . . . . . . . . . . 12 ⊢ (𝑦 = (𝑤 mod 𝑀) → ((𝑦 gcd 𝑀) = 1 ↔ ((𝑤 mod 𝑀) gcd 𝑀) = 1))
73		phimul.4	. . . . . . . . . . . 12 ⊢ 𝑈 = {𝑦 ∈ (0..^𝑀) ∣ (𝑦 gcd 𝑀) = 1}
74	72, 73	elrab2 2966	. . . . . . . . . . 11 ⊢ ((𝑤 mod 𝑀) ∈ 𝑈 ↔ ((𝑤 mod 𝑀) ∈ (0..^𝑀) ∧ ((𝑤 mod 𝑀) gcd 𝑀) = 1))
75	38, 70, 74	sylanbrc 417	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 mod 𝑀) ∈ 𝑈)
76		zmodfzo 10672	. . . . . . . . . . . 12 ⊢ ((𝑤 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑤 mod 𝑁) ∈ (0..^𝑁))
77	36, 21, 76	syl2anc 411	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 mod 𝑁) ∈ (0..^𝑁))
78		modgcd 12642	. . . . . . . . . . . . 13 ⊢ ((𝑤 ∈ ℤ ∧ 𝑁 ∈ ℕ) → ((𝑤 mod 𝑁) gcd 𝑁) = (𝑤 gcd 𝑁))
79	36, 21, 78	syl2anc 411	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ((𝑤 mod 𝑁) gcd 𝑁) = (𝑤 gcd 𝑁))
80		gcddvds 12614	. . . . . . . . . . . . . . . . 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 12455	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → 𝑁 ∥ (𝑀 · 𝑁))
85	41, 52, 84	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → 𝑁 ∥ (𝑀 · 𝑁))
86		nnne0 9230	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ ℕ → 𝑁 ≠ 0)
87		simpr 110	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑤 = 0 ∧ 𝑁 = 0) → 𝑁 = 0)
88	87	necon3ai 2452	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ≠ 0 → ¬ (𝑤 = 0 ∧ 𝑁 = 0))
89	21, 86, 88	3syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ¬ (𝑤 = 0 ∧ 𝑁 = 0))
90		gcdn0cl 12613	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑤 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬ (𝑤 = 0 ∧ 𝑁 = 0)) → (𝑤 gcd 𝑁) ∈ ℕ)
91	36, 52, 89, 90	syl21anc 1273	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑁) ∈ ℕ)
92	91	nnzd 9662	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑁) ∈ ℤ)
93		dvdstr 12469	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑤 gcd 𝑁) ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ (𝑀 · 𝑁) ∈ ℤ) → (((𝑤 gcd 𝑁) ∥ 𝑁 ∧ 𝑁 ∥ (𝑀 · 𝑁)) → (𝑤 gcd 𝑁) ∥ (𝑀 · 𝑁)))
94	92, 52, 56, 93	syl3anc 1274	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (((𝑤 gcd 𝑁) ∥ 𝑁 ∧ 𝑁 ∥ (𝑀 · 𝑁)) → (𝑤 gcd 𝑁) ∥ (𝑀 · 𝑁)))
95	83, 85, 94	mp2and 433	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑁) ∥ (𝑀 · 𝑁))
96		dvdslegcd 12615	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑤 gcd 𝑁) ∈ ℤ ∧ 𝑤 ∈ ℤ ∧ (𝑀 · 𝑁) ∈ ℤ) ∧ ¬ (𝑤 = 0 ∧ (𝑀 · 𝑁) = 0)) → (((𝑤 gcd 𝑁) ∥ 𝑤 ∧ (𝑤 gcd 𝑁) ∥ (𝑀 · 𝑁)) → (𝑤 gcd 𝑁) ≤ (𝑤 gcd (𝑀 · 𝑁))))
97	92, 36, 56, 60, 96	syl31anc 1277	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (((𝑤 gcd 𝑁) ∥ 𝑤 ∧ (𝑤 gcd 𝑁) ∥ (𝑀 · 𝑁)) → (𝑤 gcd 𝑁) ≤ (𝑤 gcd (𝑀 · 𝑁))))
98	82, 95, 97	mp2and 433	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑁) ≤ (𝑤 gcd (𝑀 · 𝑁)))
99	98, 65	breqtrd 4119	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 gcd 𝑁) ≤ 1)
100		nnle1eq1 9226	. . . . . . . . . . . . . 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 2264	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ((𝑤 mod 𝑁) gcd 𝑁) = 1)
104		oveq1 6035	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑤 mod 𝑁) → (𝑦 gcd 𝑁) = ((𝑤 mod 𝑁) gcd 𝑁))
105	104	eqeq1d 2240	. . . . . . . . . . . 12 ⊢ (𝑦 = (𝑤 mod 𝑁) → ((𝑦 gcd 𝑁) = 1 ↔ ((𝑤 mod 𝑁) gcd 𝑁) = 1))
106		phimul.5	. . . . . . . . . . . 12 ⊢ 𝑉 = {𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1}
107	105, 106	elrab2 2966	. . . . . . . . . . 11 ⊢ ((𝑤 mod 𝑁) ∈ 𝑉 ↔ ((𝑤 mod 𝑁) ∈ (0..^𝑁) ∧ ((𝑤 mod 𝑁) gcd 𝑁) = 1))
108	77, 103, 107	sylanbrc 417	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝑤 mod 𝑁) ∈ 𝑉)
109		opelxpi 4763	. . . . . . . . . 10 ⊢ (((𝑤 mod 𝑀) ∈ 𝑈 ∧ (𝑤 mod 𝑁) ∈ 𝑉) → ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩ ∈ (𝑈 × 𝑉))
110	75, 108, 109	syl2anc 411	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩ ∈ (𝑈 × 𝑉))
111	33, 110	eqeltrd 2308	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑊) → (𝐹‘𝑤) ∈ (𝑈 × 𝑉))
112	111	ralrimiva 2606	. . . . . . 7 ⊢ (𝜑 → ∀𝑤 ∈ 𝑊 (𝐹‘𝑤) ∈ (𝑈 × 𝑉))
113		crth.2	. . . . . . . . . 10 ⊢ 𝑇 = ((0..^𝑀) × (0..^𝑁))
114	8, 113, 31, 13	crth 12876	. . . . . . . . 9 ⊢ (𝜑 → 𝐹:𝑆–1-1-onto→𝑇)
115		f1ofn 5593	. . . . . . . . 9 ⊢ (𝐹:𝑆–1-1-onto→𝑇 → 𝐹 Fn 𝑆)
116		fnfun 5434	. . . . . . . . 9 ⊢ (𝐹 Fn 𝑆 → Fun 𝐹)
117	114, 115, 116	3syl 17	. . . . . . . 8 ⊢ (𝜑 → Fun 𝐹)
118		ssrab2 3313	. . . . . . . . . 10 ⊢ {𝑦 ∈ 𝑆 ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1} ⊆ 𝑆
119	3, 118	eqsstri 3260	. . . . . . . . 9 ⊢ 𝑊 ⊆ 𝑆
120		fndm 5436	. . . . . . . . . 10 ⊢ (𝐹 Fn 𝑆 → dom 𝐹 = 𝑆)
121	114, 115, 120	3syl 17	. . . . . . . . 9 ⊢ (𝜑 → dom 𝐹 = 𝑆)
122	119, 121	sseqtrrid 3279	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ⊆ dom 𝐹)
123		funimass4 5705	. . . . . . . 8 ⊢ ((Fun 𝐹 ∧ 𝑊 ⊆ dom 𝐹) → ((𝐹 “ 𝑊) ⊆ (𝑈 × 𝑉) ↔ ∀𝑤 ∈ 𝑊 (𝐹‘𝑤) ∈ (𝑈 × 𝑉)))
124	117, 122, 123	syl2anc 411	. . . . . . 7 ⊢ (𝜑 → ((𝐹 “ 𝑊) ⊆ (𝑈 × 𝑉) ↔ ∀𝑤 ∈ 𝑊 (𝐹‘𝑤) ∈ (𝑈 × 𝑉)))
125	112, 124	mpbird 167	. . . . . 6 ⊢ (𝜑 → (𝐹 “ 𝑊) ⊆ (𝑈 × 𝑉))
126		ssrab2 3313	. . . . . . . . . . . . . 14 ⊢ {𝑦 ∈ (0..^𝑀) ∣ (𝑦 gcd 𝑀) = 1} ⊆ (0..^𝑀)
127	73, 126	eqsstri 3260	. . . . . . . . . . . . 13 ⊢ 𝑈 ⊆ (0..^𝑀)
128		ssrab2 3313	. . . . . . . . . . . . . 14 ⊢ {𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1} ⊆ (0..^𝑁)
129	106, 128	eqsstri 3260	. . . . . . . . . . . . 13 ⊢ 𝑉 ⊆ (0..^𝑁)
130		xpss12 4839	. . . . . . . . . . . . 13 ⊢ ((𝑈 ⊆ (0..^𝑀) ∧ 𝑉 ⊆ (0..^𝑁)) → (𝑈 × 𝑉) ⊆ ((0..^𝑀) × (0..^𝑁)))
131	127, 129, 130	mp2an 426	. . . . . . . . . . . 12 ⊢ (𝑈 × 𝑉) ⊆ ((0..^𝑀) × (0..^𝑁))
132	131, 113	sseqtrri 3263	. . . . . . . . . . 11 ⊢ (𝑈 × 𝑉) ⊆ 𝑇
133	132	sseli 3224	. . . . . . . . . 10 ⊢ (𝑧 ∈ (𝑈 × 𝑉) → 𝑧 ∈ 𝑇)
134		f1ocnvfv2 5929	. . . . . . . . . 10 ⊢ ((𝐹:𝑆–1-1-onto→𝑇 ∧ 𝑧 ∈ 𝑇) → (𝐹‘(^◡𝐹‘𝑧)) = 𝑧)
135	114, 133, 134	syl2an 289	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (𝐹‘(^◡𝐹‘𝑧)) = 𝑧)
136		f1ocnv 5605	. . . . . . . . . . . . 13 ⊢ (𝐹:𝑆–1-1-onto→𝑇 → ^◡𝐹:𝑇–1-1-onto→𝑆)
137		f1of 5592	. . . . . . . . . . . . 13 ⊢ (^◡𝐹:𝑇–1-1-onto→𝑆 → ^◡𝐹:𝑇⟶𝑆)
138	114, 136, 137	3syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → ^◡𝐹:𝑇⟶𝑆)
139		ffvelcdm 5788	. . . . . . . . . . . 12 ⊢ ((^◡𝐹:𝑇⟶𝑆 ∧ 𝑧 ∈ 𝑇) → (^◡𝐹‘𝑧) ∈ 𝑆)
140	138, 133, 139	syl2an 289	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (^◡𝐹‘𝑧) ∈ 𝑆)
141	140, 8	eleqtrdi 2324	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (^◡𝐹‘𝑧) ∈ (0..^(𝑀 · 𝑁)))
142		elfzoelz 10444	. . . . . . . . . . . . . . 15 ⊢ ((^◡𝐹‘𝑧) ∈ (0..^(𝑀 · 𝑁)) → (^◡𝐹‘𝑧) ∈ ℤ)
143	141, 142	syl 14	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (^◡𝐹‘𝑧) ∈ ℤ)
144	14	adantr 276	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑀 ∈ ℕ)
145		modgcd 12642	. . . . . . . . . . . . . 14 ⊢ (((^◡𝐹‘𝑧) ∈ ℤ ∧ 𝑀 ∈ ℕ) → (((^◡𝐹‘𝑧) mod 𝑀) gcd 𝑀) = ((^◡𝐹‘𝑧) gcd 𝑀))
146	143, 144, 145	syl2anc 411	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (((^◡𝐹‘𝑧) mod 𝑀) gcd 𝑀) = ((^◡𝐹‘𝑧) gcd 𝑀))
147		zq 9921	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((^◡𝐹‘𝑧) ∈ ℤ → (^◡𝐹‘𝑧) ∈ ℚ)
148	143, 147	syl 14	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (^◡𝐹‘𝑧) ∈ ℚ)
149	144, 16	syl 14	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑀 ∈ ℚ)
150	144	nngt0d 9246	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 0 < 𝑀)
151	148, 149, 150	modqcld 10653	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) mod 𝑀) ∈ ℚ)
152	20	adantr 276	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑁 ∈ ℕ)
153	152, 22	syl 14	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑁 ∈ ℚ)
154	152	nngt0d 9246	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 0 < 𝑁)
155	148, 153, 154	modqcld 10653	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) mod 𝑁) ∈ ℚ)
156		opexg 4326	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((^◡𝐹‘𝑧) mod 𝑀) ∈ ℚ ∧ ((^◡𝐹‘𝑧) mod 𝑁) ∈ ℚ) → ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩ ∈ V)
157	151, 155, 156	syl2anc 411	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩ ∈ V)
158		oveq1 6035	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑤 = (^◡𝐹‘𝑧) → (𝑤 mod 𝑀) = ((^◡𝐹‘𝑧) mod 𝑀))
159		oveq1 6035	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑤 = (^◡𝐹‘𝑧) → (𝑤 mod 𝑁) = ((^◡𝐹‘𝑧) mod 𝑁))
160	158, 159	opeq12d 3875	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑤 = (^◡𝐹‘𝑧) → ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩ = ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩)
161	30	cbvmptv 4190	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 ∈ 𝑆 ↦ ⟨(𝑥 mod 𝑀), (𝑥 mod 𝑁)⟩) = (𝑤 ∈ 𝑆 ↦ ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩)
162	31, 161	eqtri 2252	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝐹 = (𝑤 ∈ 𝑆 ↦ ⟨(𝑤 mod 𝑀), (𝑤 mod 𝑁)⟩)
163	160, 162	fvmptg 5731	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((^◡𝐹‘𝑧) ∈ 𝑆 ∧ ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩ ∈ V) → (𝐹‘(^◡𝐹‘𝑧)) = ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩)
164	140, 157, 163	syl2anc 411	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (𝐹‘(^◡𝐹‘𝑧)) = ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩)
165	135, 164	eqtr3d 2266	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑧 = ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩)
166		simpr 110	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑧 ∈ (𝑈 × 𝑉))
167	165, 166	eqeltrrd 2309	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩ ∈ (𝑈 × 𝑉))
168		opelxp 4761	. . . . . . . . . . . . . . . . 17 ⊢ (⟨((^◡𝐹‘𝑧) mod 𝑀), ((^◡𝐹‘𝑧) mod 𝑁)⟩ ∈ (𝑈 × 𝑉) ↔ (((^◡𝐹‘𝑧) mod 𝑀) ∈ 𝑈 ∧ ((^◡𝐹‘𝑧) mod 𝑁) ∈ 𝑉))
169	167, 168	sylib 122	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (((^◡𝐹‘𝑧) mod 𝑀) ∈ 𝑈 ∧ ((^◡𝐹‘𝑧) mod 𝑁) ∈ 𝑉))
170	169	simpld 112	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) mod 𝑀) ∈ 𝑈)
171		oveq1 6035	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = ((^◡𝐹‘𝑧) mod 𝑀) → (𝑦 gcd 𝑀) = (((^◡𝐹‘𝑧) mod 𝑀) gcd 𝑀))
172	171	eqeq1d 2240	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = ((^◡𝐹‘𝑧) mod 𝑀) → ((𝑦 gcd 𝑀) = 1 ↔ (((^◡𝐹‘𝑧) mod 𝑀) gcd 𝑀) = 1))
173	172, 73	elrab2 2966	. . . . . . . . . . . . . . 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 2266	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) gcd 𝑀) = 1)
177		modgcd 12642	. . . . . . . . . . . . . 14 ⊢ (((^◡𝐹‘𝑧) ∈ ℤ ∧ 𝑁 ∈ ℕ) → (((^◡𝐹‘𝑧) mod 𝑁) gcd 𝑁) = ((^◡𝐹‘𝑧) gcd 𝑁))
178	143, 152, 177	syl2anc 411	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (((^◡𝐹‘𝑧) mod 𝑁) gcd 𝑁) = ((^◡𝐹‘𝑧) gcd 𝑁))
179	169	simprd 114	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) mod 𝑁) ∈ 𝑉)
180		oveq1 6035	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = ((^◡𝐹‘𝑧) mod 𝑁) → (𝑦 gcd 𝑁) = (((^◡𝐹‘𝑧) mod 𝑁) gcd 𝑁))
181	180	eqeq1d 2240	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = ((^◡𝐹‘𝑧) mod 𝑁) → ((𝑦 gcd 𝑁) = 1 ↔ (((^◡𝐹‘𝑧) mod 𝑁) gcd 𝑁) = 1))
182	181, 106	elrab2 2966	. . . . . . . . . . . . . . 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 2266	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) gcd 𝑁) = 1)
186	14	nnzd 9662	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑀 ∈ ℤ)
187	186	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑀 ∈ ℤ)
188	20	nnzd 9662	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 ∈ ℤ)
189	188	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑁 ∈ ℤ)
190		rpmul 12750	. . . . . . . . . . . . 13 ⊢ (((^◡𝐹‘𝑧) ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((((^◡𝐹‘𝑧) gcd 𝑀) = 1 ∧ ((^◡𝐹‘𝑧) gcd 𝑁) = 1) → ((^◡𝐹‘𝑧) gcd (𝑀 · 𝑁)) = 1))
191	143, 187, 189, 190	syl3anc 1274	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((((^◡𝐹‘𝑧) gcd 𝑀) = 1 ∧ ((^◡𝐹‘𝑧) gcd 𝑁) = 1) → ((^◡𝐹‘𝑧) gcd (𝑀 · 𝑁)) = 1))
192	176, 185, 191	mp2and 433	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → ((^◡𝐹‘𝑧) gcd (𝑀 · 𝑁)) = 1)
193		oveq1 6035	. . . . . . . . . . . . 13 ⊢ (𝑦 = (^◡𝐹‘𝑧) → (𝑦 gcd (𝑀 · 𝑁)) = ((^◡𝐹‘𝑧) gcd (𝑀 · 𝑁)))
194	193	eqeq1d 2240	. . . . . . . . . . . 12 ⊢ (𝑦 = (^◡𝐹‘𝑧) → ((𝑦 gcd (𝑀 · 𝑁)) = 1 ↔ ((^◡𝐹‘𝑧) gcd (𝑀 · 𝑁)) = 1))
195	194, 3	elrab2 2966	. . . . . . . . . . 11 ⊢ ((^◡𝐹‘𝑧) ∈ 𝑊 ↔ ((^◡𝐹‘𝑧) ∈ 𝑆 ∧ ((^◡𝐹‘𝑧) gcd (𝑀 · 𝑁)) = 1))
196	140, 192, 195	sylanbrc 417	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → (^◡𝐹‘𝑧) ∈ 𝑊)
197		funfvima2 5897	. . . . . . . . . . . 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 2309	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝑈 × 𝑉)) → 𝑧 ∈ (𝐹 “ 𝑊))
202	201	ex 115	. . . . . . 7 ⊢ (𝜑 → (𝑧 ∈ (𝑈 × 𝑉) → 𝑧 ∈ (𝐹 “ 𝑊)))
203	202	ssrdv 3234	. . . . . 6 ⊢ (𝜑 → (𝑈 × 𝑉) ⊆ (𝐹 “ 𝑊))
204	125, 203	eqssd 3245	. . . . 5 ⊢ (𝜑 → (𝐹 “ 𝑊) = (𝑈 × 𝑉))
205		f1of1 5591	. . . . . . 7 ⊢ (𝐹:𝑆–1-1-onto→𝑇 → 𝐹:𝑆–1-1→𝑇)
206	114, 205	syl 14	. . . . . 6 ⊢ (𝜑 → 𝐹:𝑆–1-1→𝑇)
207	119	a1i 9	. . . . . 6 ⊢ (𝜑 → 𝑊 ⊆ 𝑆)
208		0z 9551	. . . . . . . . . 10 ⊢ 0 ∈ ℤ
209	186, 188	zmulcld 9669	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 · 𝑁) ∈ ℤ)
210		fzofig 10757	. . . . . . . . . 10 ⊢ ((0 ∈ ℤ ∧ (𝑀 · 𝑁) ∈ ℤ) → (0..^(𝑀 · 𝑁)) ∈ Fin)
211	208, 209, 210	sylancr 414	. . . . . . . . 9 ⊢ (𝜑 → (0..^(𝑀 · 𝑁)) ∈ Fin)
212	8, 211	eqeltrid 2318	. . . . . . . 8 ⊢ (𝜑 → 𝑆 ∈ Fin)
213		elfzoelz 10444	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ (0..^(𝑀 · 𝑁)) → 𝑦 ∈ ℤ)
214	213, 8	eleq2s 2326	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ 𝑆 → 𝑦 ∈ ℤ)
215	214	adantl 277	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑆) → 𝑦 ∈ ℤ)
216	209	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑆) → (𝑀 · 𝑁) ∈ ℤ)
217	215, 216	gcdcld 12619	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑆) → (𝑦 gcd (𝑀 · 𝑁)) ∈ ℕ₀)
218	217	nn0zd 9661	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑆) → (𝑦 gcd (𝑀 · 𝑁)) ∈ ℤ)
219		1zzd 9567	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑆) → 1 ∈ ℤ)
220		zdceq 9616	. . . . . . . . . 10 ⊢ (((𝑦 gcd (𝑀 · 𝑁)) ∈ ℤ ∧ 1 ∈ ℤ) → DECID (𝑦 gcd (𝑀 · 𝑁)) = 1)
221	218, 219, 220	syl2anc 411	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑆) → DECID (𝑦 gcd (𝑀 · 𝑁)) = 1)
222	221	ralrimiva 2606	. . . . . . . 8 ⊢ (𝜑 → ∀𝑦 ∈ 𝑆 DECID (𝑦 gcd (𝑀 · 𝑁)) = 1)
223	212, 222	ssfirab 7172	. . . . . . 7 ⊢ (𝜑 → {𝑦 ∈ 𝑆 ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1} ∈ Fin)
224	3, 223	eqeltrid 2318	. . . . . 6 ⊢ (𝜑 → 𝑊 ∈ Fin)
225		f1imaeng 7009	. . . . . 6 ⊢ ((𝐹:𝑆–1-1→𝑇 ∧ 𝑊 ⊆ 𝑆 ∧ 𝑊 ∈ Fin) → (𝐹 “ 𝑊) ≈ 𝑊)
226	206, 207, 224, 225	syl3anc 1274	. . . . 5 ⊢ (𝜑 → (𝐹 “ 𝑊) ≈ 𝑊)
227	204, 226	eqbrtrrd 4117	. . . 4 ⊢ (𝜑 → (𝑈 × 𝑉) ≈ 𝑊)
228		fzofig 10757	. . . . . . . . 9 ⊢ ((0 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (0..^𝑀) ∈ Fin)
229	208, 186, 228	sylancr 414	. . . . . . . 8 ⊢ (𝜑 → (0..^𝑀) ∈ Fin)
230		elfzoelz 10444	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ (0..^𝑀) → 𝑦 ∈ ℤ)
231	230	adantl 277	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑀)) → 𝑦 ∈ ℤ)
232	186	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑀)) → 𝑀 ∈ ℤ)
233	231, 232	gcdcld 12619	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑀)) → (𝑦 gcd 𝑀) ∈ ℕ₀)
234	233	nn0zd 9661	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑀)) → (𝑦 gcd 𝑀) ∈ ℤ)
235		1z 9566	. . . . . . . . . 10 ⊢ 1 ∈ ℤ
236		zdceq 9616	. . . . . . . . . 10 ⊢ (((𝑦 gcd 𝑀) ∈ ℤ ∧ 1 ∈ ℤ) → DECID (𝑦 gcd 𝑀) = 1)
237	234, 235, 236	sylancl 413	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑀)) → DECID (𝑦 gcd 𝑀) = 1)
238	237	ralrimiva 2606	. . . . . . . 8 ⊢ (𝜑 → ∀𝑦 ∈ (0..^𝑀)DECID (𝑦 gcd 𝑀) = 1)
239	229, 238	ssfirab 7172	. . . . . . 7 ⊢ (𝜑 → {𝑦 ∈ (0..^𝑀) ∣ (𝑦 gcd 𝑀) = 1} ∈ Fin)
240	73, 239	eqeltrid 2318	. . . . . 6 ⊢ (𝜑 → 𝑈 ∈ Fin)
241		fzofig 10757	. . . . . . . . 9 ⊢ ((0 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (0..^𝑁) ∈ Fin)
242	208, 188, 241	sylancr 414	. . . . . . . 8 ⊢ (𝜑 → (0..^𝑁) ∈ Fin)
243		elfzoelz 10444	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ (0..^𝑁) → 𝑦 ∈ ℤ)
244	243	adantl 277	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑁)) → 𝑦 ∈ ℤ)
245	188	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑁)) → 𝑁 ∈ ℤ)
246	244, 245	gcdcld 12619	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑁)) → (𝑦 gcd 𝑁) ∈ ℕ₀)
247	246	nn0zd 9661	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑁)) → (𝑦 gcd 𝑁) ∈ ℤ)
248		1zzd 9567	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑁)) → 1 ∈ ℤ)
249		zdceq 9616	. . . . . . . . . 10 ⊢ (((𝑦 gcd 𝑁) ∈ ℤ ∧ 1 ∈ ℤ) → DECID (𝑦 gcd 𝑁) = 1)
250	247, 248, 249	syl2anc 411	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ (0..^𝑁)) → DECID (𝑦 gcd 𝑁) = 1)
251	250	ralrimiva 2606	. . . . . . . 8 ⊢ (𝜑 → ∀𝑦 ∈ (0..^𝑁)DECID (𝑦 gcd 𝑁) = 1)
252	242, 251	ssfirab 7172	. . . . . . 7 ⊢ (𝜑 → {𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1} ∈ Fin)
253	106, 252	eqeltrid 2318	. . . . . 6 ⊢ (𝜑 → 𝑉 ∈ Fin)
254		xpfi 7167	. . . . . 6 ⊢ ((𝑈 ∈ Fin ∧ 𝑉 ∈ Fin) → (𝑈 × 𝑉) ∈ Fin)
255	240, 253, 254	syl2anc 411	. . . . 5 ⊢ (𝜑 → (𝑈 × 𝑉) ∈ Fin)
256		hashen 11109	. . . . 5 ⊢ (((𝑈 × 𝑉) ∈ Fin ∧ 𝑊 ∈ Fin) → ((♯‘(𝑈 × 𝑉)) = (♯‘𝑊) ↔ (𝑈 × 𝑉) ≈ 𝑊))
257	255, 224, 256	syl2anc 411	. . . 4 ⊢ (𝜑 → ((♯‘(𝑈 × 𝑉)) = (♯‘𝑊) ↔ (𝑈 × 𝑉) ≈ 𝑊))
258	227, 257	mpbird 167	. . 3 ⊢ (𝜑 → (♯‘(𝑈 × 𝑉)) = (♯‘𝑊))
259		hashxp 11153	. . . 4 ⊢ ((𝑈 ∈ Fin ∧ 𝑉 ∈ Fin) → (♯‘(𝑈 × 𝑉)) = ((♯‘𝑈) · (♯‘𝑉)))
260	240, 253, 259	syl2anc 411	. . 3 ⊢ (𝜑 → (♯‘(𝑈 × 𝑉)) = ((♯‘𝑈) · (♯‘𝑉)))
261	258, 260	eqtr3d 2266	. 2 ⊢ (𝜑 → (♯‘𝑊) = ((♯‘𝑈) · (♯‘𝑉)))
262	14, 20	nnmulcld 9251	. . 3 ⊢ (𝜑 → (𝑀 · 𝑁) ∈ ℕ)
263		dfphi2 12872	. . . 4 ⊢ ((𝑀 · 𝑁) ∈ ℕ → (ϕ‘(𝑀 · 𝑁)) = (♯‘{𝑦 ∈ (0..^(𝑀 · 𝑁)) ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1}))
264	8	rabeqi 2796	. . . . . 6 ⊢ {𝑦 ∈ 𝑆 ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1} = {𝑦 ∈ (0..^(𝑀 · 𝑁)) ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1}
265	3, 264	eqtri 2252	. . . . 5 ⊢ 𝑊 = {𝑦 ∈ (0..^(𝑀 · 𝑁)) ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1}
266	265	fveq2i 5651	. . . 4 ⊢ (♯‘𝑊) = (♯‘{𝑦 ∈ (0..^(𝑀 · 𝑁)) ∣ (𝑦 gcd (𝑀 · 𝑁)) = 1})
267	263, 266	eqtr4di 2282	. . 3 ⊢ ((𝑀 · 𝑁) ∈ ℕ → (ϕ‘(𝑀 · 𝑁)) = (♯‘𝑊))
268	262, 267	syl 14	. 2 ⊢ (𝜑 → (ϕ‘(𝑀 · 𝑁)) = (♯‘𝑊))
269		dfphi2 12872	. . . . 5 ⊢ (𝑀 ∈ ℕ → (ϕ‘𝑀) = (♯‘{𝑦 ∈ (0..^𝑀) ∣ (𝑦 gcd 𝑀) = 1}))
270	73	fveq2i 5651	. . . . 5 ⊢ (♯‘𝑈) = (♯‘{𝑦 ∈ (0..^𝑀) ∣ (𝑦 gcd 𝑀) = 1})
271	269, 270	eqtr4di 2282	. . . 4 ⊢ (𝑀 ∈ ℕ → (ϕ‘𝑀) = (♯‘𝑈))
272	14, 271	syl 14	. . 3 ⊢ (𝜑 → (ϕ‘𝑀) = (♯‘𝑈))
273		dfphi2 12872	. . . . 5 ⊢ (𝑁 ∈ ℕ → (ϕ‘𝑁) = (♯‘{𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1}))
274	106	fveq2i 5651	. . . . 5 ⊢ (♯‘𝑉) = (♯‘{𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1})
275	273, 274	eqtr4di 2282	. . . 4 ⊢ (𝑁 ∈ ℕ → (ϕ‘𝑁) = (♯‘𝑉))
276	20, 275	syl 14	. . 3 ⊢ (𝜑 → (ϕ‘𝑁) = (♯‘𝑉))
277	272, 276	oveq12d 6046	. 2 ⊢ (𝜑 → ((ϕ‘𝑀) · (ϕ‘𝑁)) = ((♯‘𝑈) · (♯‘𝑉)))
278	261, 268, 277	3eqtr4d 2274	1 ⊢ (𝜑 → (ϕ‘(𝑀 · 𝑁)) = ((ϕ‘𝑀) · (ϕ‘𝑁)))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 DECID wdc 842 ∧ w3a 1005 = wceq 1398 ∈ wcel 2202 ≠ wne 2403 ∀wral 2511 {crab 2515 Vcvv 2803 ⊆ wss 3201 ⟨cop 3676 class class class wbr 4093 ↦ cmpt 4155 × cxp 4729 ^◡ccnv 4730 dom cdm 4731 “ cima 4734 Fun wfun 5327 Fn wfn 5328 ⟶wf 5329 –1-1→wf1 5330 –1-1-onto→wf1o 5332 ‘cfv 5333 (class class class)co 6028 ≈ cen 6950 Fincfn 6952 0cc0 8092 1c1 8093 · cmul 8097 ≤ cle 8274 ℕcn 9202 ℤcz 9540 ℚcq 9914 ..^cfzo 10439 mod cmo 10647 ♯chash 11100 ∥ cdvds 12428 gcd cgcd 12604 ϕcphi 12861

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 619 ax-in2 620 ax-io 717 ax-5 1496 ax-7 1497 ax-gen 1498 ax-ie1 1542 ax-ie2 1543 ax-8 1553 ax-10 1554 ax-11 1555 ax-i12 1556 ax-bndl 1558 ax-4 1559 ax-17 1575 ax-i9 1579 ax-ial 1583 ax-i5r 1584 ax-13 2204 ax-14 2205 ax-ext 2213 ax-coll 4209 ax-sep 4212 ax-nul 4220 ax-pow 4270 ax-pr 4305 ax-un 4536 ax-setind 4641 ax-iinf 4692 ax-cnex 8183 ax-resscn 8184 ax-1cn 8185 ax-1re 8186 ax-icn 8187 ax-addcl 8188 ax-addrcl 8189 ax-mulcl 8190 ax-mulrcl 8191 ax-addcom 8192 ax-mulcom 8193 ax-addass 8194 ax-mulass 8195 ax-distr 8196 ax-i2m1 8197 ax-0lt1 8198 ax-1rid 8199 ax-0id 8200 ax-rnegex 8201 ax-precex 8202 ax-cnre 8203 ax-pre-ltirr 8204 ax-pre-ltwlin 8205 ax-pre-lttrn 8206 ax-pre-apti 8207 ax-pre-ltadd 8208 ax-pre-mulgt0 8209 ax-pre-mulext 8210 ax-arch 8211 ax-caucvg 8212

This theorem depends on definitions: df-bi 117 df-stab 839 df-dc 843 df-3or 1006 df-3an 1007 df-tru 1401 df-fal 1404 df-nf 1510 df-sb 1811 df-eu 2082 df-mo 2083 df-clab 2218 df-cleq 2224 df-clel 2227 df-nfc 2364 df-ne 2404 df-nel 2499 df-ral 2516 df-rex 2517 df-reu 2518 df-rmo 2519 df-rab 2520 df-v 2805 df-sbc 3033 df-csb 3129 df-dif 3203 df-un 3205 df-in 3207 df-ss 3214 df-nul 3497 df-if 3608 df-pw 3658 df-sn 3679 df-pr 3680 df-op 3682 df-uni 3899 df-int 3934 df-iun 3977 df-br 4094 df-opab 4156 df-mpt 4157 df-tr 4193 df-id 4396 df-po 4399 df-iso 4400 df-iord 4469 df-on 4471 df-ilim 4472 df-suc 4474 df-iom 4695 df-xp 4737 df-rel 4738 df-cnv 4739 df-co 4740 df-dm 4741 df-rn 4742 df-res 4743 df-ima 4744 df-iota 5293 df-fun 5335 df-fn 5336 df-f 5337 df-f1 5338 df-fo 5339 df-f1o 5340 df-fv 5341 df-riota 5981 df-ov 6031 df-oprab 6032 df-mpo 6033 df-1st 6312 df-2nd 6313 df-recs 6514 df-irdg 6579 df-frec 6600 df-1o 6625 df-oadd 6629 df-er 6745 df-en 6953 df-dom 6954 df-fin 6955 df-sup 7243 df-pnf 8275 df-mnf 8276 df-xr 8277 df-ltxr 8278 df-le 8279 df-sub 8411 df-neg 8412 df-reap 8814 df-ap 8821 df-div 8912 df-inn 9203 df-2 9261 df-3 9262 df-4 9263 df-n0 9462 df-z 9541 df-uz 9817 df-q 9915 df-rp 9950 df-fz 10306 df-fzo 10440 df-fl 10593 df-mod 10648 df-seqfrec 10773 df-exp 10864 df-ihash 11101 df-cj 11482 df-re 11483 df-im 11484 df-rsqrt 11638 df-abs 11639 df-dvds 12429 df-gcd 12605 df-phi 12863

This theorem is referenced by: phimul 12878

W3C validator