lgseisenlem1 - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > lgseisenlem1		Structured version Visualization version GIF version

Theorem lgseisenlem1 25100

Description: Lemma for lgseisen 25104. If 𝑅(𝑢) = (𝑄 · 𝑢) mod 𝑃 and 𝑀(𝑢) = (-1↑𝑅(𝑢)) · 𝑅(𝑢), then for any even 1 ≤ 𝑢 ≤ 𝑃 − 1, 𝑀(𝑢) is also an even integer 1 ≤ 𝑀(𝑢) ≤ 𝑃 − 1. To simplify these statements, we divide all the even numbers by 2, so that it becomes the statement that 𝑀(𝑥 / 2) = (-1↑𝑅(𝑥 / 2)) · 𝑅(𝑥 / 2) / 2 is an integer between 1 and (𝑃 − 1) / 2. (Contributed by Mario Carneiro, 17-Jun-2015.)

**Hypotheses**
Ref	Expression
lgseisen.1	⊢ (𝜑 → 𝑃 ∈ (ℙ ∖ {2}))
lgseisen.2	⊢ (𝜑 → 𝑄 ∈ (ℙ ∖ {2}))
lgseisen.3	⊢ (𝜑 → 𝑃 ≠ 𝑄)
lgseisen.4	⊢ 𝑅 = ((𝑄 · (2 · 𝑥)) mod 𝑃)
lgseisen.5	⊢ 𝑀 = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2))

**Assertion**
Ref	Expression
lgseisenlem1	⊢ (𝜑 → 𝑀:(1...((𝑃 − 1) / 2))⟶(1...((𝑃 − 1) / 2)))

Distinct variable groups: 𝑥,𝑃 𝜑,𝑥 𝑥,𝑄 Allowed substitution hints: 𝑅(𝑥) 𝑀(𝑥)

**Proof of Theorem lgseisenlem1**
Step	Hyp	Ref	Expression
1		neg1cn 11124	. . . . . . . . . . . . . . 15 ⊢ -1 ∈ ℂ
2	1	a1i 11	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → -1 ∈ ℂ)
3		neg1ne0 11126	. . . . . . . . . . . . . . 15 ⊢ -1 ≠ 0
4	3	a1i 11	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → -1 ≠ 0)
5		2z 11409	. . . . . . . . . . . . . . 15 ⊢ 2 ∈ ℤ
6	5	a1i 11	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → 2 ∈ ℤ)
7		simpr 477	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → (𝑅 / 2) ∈ ℤ)
8		expmulz 12906	. . . . . . . . . . . . . 14 ⊢ (((-1 ∈ ℂ ∧ -1 ≠ 0) ∧ (2 ∈ ℤ ∧ (𝑅 / 2) ∈ ℤ)) → (-1↑(2 · (𝑅 / 2))) = ((-1↑2)↑(𝑅 / 2)))
9	2, 4, 6, 7, 8	syl22anc 1327	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → (-1↑(2 · (𝑅 / 2))) = ((-1↑2)↑(𝑅 / 2)))
10		lgseisen.4	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝑅 = ((𝑄 · (2 · 𝑥)) mod 𝑃)
11		lgseisen.2	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝑄 ∈ (ℙ ∖ {2}))
12	11	adantr 481	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑄 ∈ (ℙ ∖ {2}))
13	12	eldifad 3586	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑄 ∈ ℙ)
14		prmz 15389	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑄 ∈ ℙ → 𝑄 ∈ ℤ)
15	13, 14	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑄 ∈ ℤ)
16		elfzelz 12342	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑥 ∈ (1...((𝑃 − 1) / 2)) → 𝑥 ∈ ℤ)
17	16	adantl 482	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑥 ∈ ℤ)
18		zmulcl 11426	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((2 ∈ ℤ ∧ 𝑥 ∈ ℤ) → (2 · 𝑥) ∈ ℤ)
19	5, 17, 18	sylancr 695	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℤ)
20	15, 19	zmulcld 11488	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) ∈ ℤ)
21		lgseisen.1	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝑃 ∈ (ℙ ∖ {2}))
22	21	adantr 481	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ (ℙ ∖ {2}))
23	22	eldifad 3586	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℙ)
24		prmnn 15388	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
25	23, 24	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℕ)
26		zmodfz 12692	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑄 · (2 · 𝑥)) ∈ ℤ ∧ 𝑃 ∈ ℕ) → ((𝑄 · (2 · 𝑥)) mod 𝑃) ∈ (0...(𝑃 − 1)))
27	20, 25, 26	syl2anc 693	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) mod 𝑃) ∈ (0...(𝑃 − 1)))
28	10, 27	syl5eqel 2705	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ (0...(𝑃 − 1)))
29		elfznn0 12433	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∈ (0...(𝑃 − 1)) → 𝑅 ∈ ℕ₀)
30	28, 29	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ ℕ₀)
31	30	nn0zd 11480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ ℤ)
32	31	zcnd 11483	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ ℂ)
33	32	adantr 481	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → 𝑅 ∈ ℂ)
34		2cnd 11093	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → 2 ∈ ℂ)
35		2ne0 11113	. . . . . . . . . . . . . . . 16 ⊢ 2 ≠ 0
36	35	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → 2 ≠ 0)
37	33, 34, 36	divcan2d 10803	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → (2 · (𝑅 / 2)) = 𝑅)
38	37	oveq2d 6666	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → (-1↑(2 · (𝑅 / 2))) = (-1↑𝑅))
39		neg1sqe1 12959	. . . . . . . . . . . . . . 15 ⊢ (-1↑2) = 1
40	39	oveq1i 6660	. . . . . . . . . . . . . 14 ⊢ ((-1↑2)↑(𝑅 / 2)) = (1↑(𝑅 / 2))
41		1exp 12889	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 / 2) ∈ ℤ → (1↑(𝑅 / 2)) = 1)
42	41	adantl 482	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → (1↑(𝑅 / 2)) = 1)
43	40, 42	syl5eq 2668	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → ((-1↑2)↑(𝑅 / 2)) = 1)
44	9, 38, 43	3eqtr3d 2664	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → (-1↑𝑅) = 1)
45	44	oveq1d 6665	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → ((-1↑𝑅) · 𝑅) = (1 · 𝑅))
46	33	mulid2d 10058	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → (1 · 𝑅) = 𝑅)
47	45, 46	eqtrd 2656	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → ((-1↑𝑅) · 𝑅) = 𝑅)
48	47	oveq1d 6665	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → (((-1↑𝑅) · 𝑅) mod 𝑃) = (𝑅 mod 𝑃))
49	30	nn0red 11352	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ ℝ)
50	25	nnrpd 11870	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℝ⁺)
51	30	nn0ge0d 11354	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 0 ≤ 𝑅)
52	20	zred 11482	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) ∈ ℝ)
53		modlt 12679	. . . . . . . . . . . . 13 ⊢ (((𝑄 · (2 · 𝑥)) ∈ ℝ ∧ 𝑃 ∈ ℝ⁺) → ((𝑄 · (2 · 𝑥)) mod 𝑃) < 𝑃)
54	52, 50, 53	syl2anc 693	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) mod 𝑃) < 𝑃)
55	10, 54	syl5eqbr 4688	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 < 𝑃)
56		modid 12695	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ ℝ ∧ 𝑃 ∈ ℝ⁺) ∧ (0 ≤ 𝑅 ∧ 𝑅 < 𝑃)) → (𝑅 mod 𝑃) = 𝑅)
57	49, 50, 51, 55, 56	syl22anc 1327	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑅 mod 𝑃) = 𝑅)
58	57	adantr 481	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → (𝑅 mod 𝑃) = 𝑅)
59	48, 58	eqtrd 2656	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → (((-1↑𝑅) · 𝑅) mod 𝑃) = 𝑅)
60	59	oveq1d 6665	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) = (𝑅 / 2))
61	60, 7	eqeltrd 2701	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ (𝑅 / 2) ∈ ℤ) → ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ∈ ℤ)
62	25	nncnd 11036	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℂ)
63	62	mulid2d 10058	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (1 · 𝑃) = 𝑃)
64	63	oveq2d 6666	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-𝑅 + (1 · 𝑃)) = (-𝑅 + 𝑃))
65	49	renegcld 10457	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → -𝑅 ∈ ℝ)
66	65	recnd 10068	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → -𝑅 ∈ ℂ)
67	62, 66	addcomd 10238	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 + -𝑅) = (-𝑅 + 𝑃))
68	62, 32	negsubd 10398	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 + -𝑅) = (𝑃 − 𝑅))
69	64, 67, 68	3eqtr2d 2662	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-𝑅 + (1 · 𝑃)) = (𝑃 − 𝑅))
70	69	oveq1d 6665	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-𝑅 + (1 · 𝑃)) mod 𝑃) = ((𝑃 − 𝑅) mod 𝑃))
71		1zzd 11408	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 1 ∈ ℤ)
72		modcyc 12705	. . . . . . . . . . . . 13 ⊢ ((-𝑅 ∈ ℝ ∧ 𝑃 ∈ ℝ⁺ ∧ 1 ∈ ℤ) → ((-𝑅 + (1 · 𝑃)) mod 𝑃) = (-𝑅 mod 𝑃))
73	65, 50, 71, 72	syl3anc 1326	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-𝑅 + (1 · 𝑃)) mod 𝑃) = (-𝑅 mod 𝑃))
74	25	nnred 11035	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℝ)
75	74, 49	resubcld 10458	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 − 𝑅) ∈ ℝ)
76	49, 74, 55	ltled 10185	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ≤ 𝑃)
77	74, 49	subge0d 10617	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (0 ≤ (𝑃 − 𝑅) ↔ 𝑅 ≤ 𝑃))
78	76, 77	mpbird 247	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 0 ≤ (𝑃 − 𝑅))
79		2nn 11185	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ 2 ∈ ℕ
80		elfznn 12370	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑥 ∈ (1...((𝑃 − 1) / 2)) → 𝑥 ∈ ℕ)
81	80	adantl 482	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑥 ∈ ℕ)
82		nnmulcl 11043	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((2 ∈ ℕ ∧ 𝑥 ∈ ℕ) → (2 · 𝑥) ∈ ℕ)
83	79, 81, 82	sylancr 695	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℕ)
84		elfzle2 12345	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑥 ∈ (1...((𝑃 − 1) / 2)) → 𝑥 ≤ ((𝑃 − 1) / 2))
85	84	adantl 482	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑥 ≤ ((𝑃 − 1) / 2))
86	81	nnred 11035	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑥 ∈ ℝ)
87		prmuz2 15408	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ_≥‘2))
88		uz2m1nn 11763	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑃 ∈ (ℤ_≥‘2) → (𝑃 − 1) ∈ ℕ)
89	23, 87, 88	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 − 1) ∈ ℕ)
90	89	nnred 11035	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 − 1) ∈ ℝ)
91		2re 11090	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ 2 ∈ ℝ
92	91	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 2 ∈ ℝ)
93		2pos 11112	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ 0 < 2
94	93	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 0 < 2)
95		lemuldiv2 10904	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑥 ∈ ℝ ∧ (𝑃 − 1) ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → ((2 · 𝑥) ≤ (𝑃 − 1) ↔ 𝑥 ≤ ((𝑃 − 1) / 2)))
96	86, 90, 92, 94, 95	syl112anc 1330	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((2 · 𝑥) ≤ (𝑃 − 1) ↔ 𝑥 ≤ ((𝑃 − 1) / 2)))
97	85, 96	mpbird 247	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ≤ (𝑃 − 1))
98		prmz 15389	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
99	23, 98	syl 17	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℤ)
100		peano2zm 11420	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑃 ∈ ℤ → (𝑃 − 1) ∈ ℤ)
101		fznn 12408	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑃 − 1) ∈ ℤ → ((2 · 𝑥) ∈ (1...(𝑃 − 1)) ↔ ((2 · 𝑥) ∈ ℕ ∧ (2 · 𝑥) ≤ (𝑃 − 1))))
102	99, 100, 101	3syl 18	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((2 · 𝑥) ∈ (1...(𝑃 − 1)) ↔ ((2 · 𝑥) ∈ ℕ ∧ (2 · 𝑥) ≤ (𝑃 − 1))))
103	83, 97, 102	mpbir2and 957	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ (1...(𝑃 − 1)))
104		fzm1ndvds 15044	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑃 ∈ ℕ ∧ (2 · 𝑥) ∈ (1...(𝑃 − 1))) → ¬ 𝑃 ∥ (2 · 𝑥))
105	25, 103, 104	syl2anc 693	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ 𝑃 ∥ (2 · 𝑥))
106		lgseisen.3	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝑃 ≠ 𝑄)
107	106	adantr 481	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ≠ 𝑄)
108		prmrp 15424	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑃 ∈ ℙ ∧ 𝑄 ∈ ℙ) → ((𝑃 gcd 𝑄) = 1 ↔ 𝑃 ≠ 𝑄))
109	23, 13, 108	syl2anc 693	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 gcd 𝑄) = 1 ↔ 𝑃 ≠ 𝑄))
110	107, 109	mpbird 247	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 gcd 𝑄) = 1)
111		coprmdvds 15366	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑃 ∈ ℤ ∧ 𝑄 ∈ ℤ ∧ (2 · 𝑥) ∈ ℤ) → ((𝑃 ∥ (𝑄 · (2 · 𝑥)) ∧ (𝑃 gcd 𝑄) = 1) → 𝑃 ∥ (2 · 𝑥)))
112	99, 15, 19, 111	syl3anc 1326	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 ∥ (𝑄 · (2 · 𝑥)) ∧ (𝑃 gcd 𝑄) = 1) → 𝑃 ∥ (2 · 𝑥)))
113	110, 112	mpan2d 710	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 ∥ (𝑄 · (2 · 𝑥)) → 𝑃 ∥ (2 · 𝑥)))
114	105, 113	mtod 189	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ 𝑃 ∥ (𝑄 · (2 · 𝑥)))
115		dvdsval3 14987	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑃 ∈ ℕ ∧ (𝑄 · (2 · 𝑥)) ∈ ℤ) → (𝑃 ∥ (𝑄 · (2 · 𝑥)) ↔ ((𝑄 · (2 · 𝑥)) mod 𝑃) = 0))
116	25, 20, 115	syl2anc 693	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 ∥ (𝑄 · (2 · 𝑥)) ↔ ((𝑄 · (2 · 𝑥)) mod 𝑃) = 0))
117	114, 116	mtbid 314	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ ((𝑄 · (2 · 𝑥)) mod 𝑃) = 0)
118	10	eqeq1i 2627	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 = 0 ↔ ((𝑄 · (2 · 𝑥)) mod 𝑃) = 0)
119	117, 118	sylnibr 319	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ 𝑅 = 0)
120	89	nnnn0d 11351	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 − 1) ∈ ℕ₀)
121		nn0uz 11722	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ℕ₀ = (ℤ_≥‘0)
122	120, 121	syl6eleq 2711	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 − 1) ∈ (ℤ_≥‘0))
123		elfzp12 12419	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑃 − 1) ∈ (ℤ_≥‘0) → (𝑅 ∈ (0...(𝑃 − 1)) ↔ (𝑅 = 0 ∨ 𝑅 ∈ ((0 + 1)...(𝑃 − 1)))))
124	122, 123	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑅 ∈ (0...(𝑃 − 1)) ↔ (𝑅 = 0 ∨ 𝑅 ∈ ((0 + 1)...(𝑃 − 1)))))
125	28, 124	mpbid 222	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑅 = 0 ∨ 𝑅 ∈ ((0 + 1)...(𝑃 − 1))))
126	125	ord 392	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (¬ 𝑅 = 0 → 𝑅 ∈ ((0 + 1)...(𝑃 − 1))))
127	119, 126	mpd 15	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ ((0 + 1)...(𝑃 − 1)))
128		1e0p1 11552	. . . . . . . . . . . . . . . . . 18 ⊢ 1 = (0 + 1)
129	128	oveq1i 6660	. . . . . . . . . . . . . . . . 17 ⊢ (1...(𝑃 − 1)) = ((0 + 1)...(𝑃 − 1))
130	127, 129	syl6eleqr 2712	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ (1...(𝑃 − 1)))
131		elfznn 12370	. . . . . . . . . . . . . . . 16 ⊢ (𝑅 ∈ (1...(𝑃 − 1)) → 𝑅 ∈ ℕ)
132	130, 131	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ ℕ)
133	132	nnrpd 11870	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ ℝ⁺)
134	74, 133	ltsubrpd 11904	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 − 𝑅) < 𝑃)
135		modid 12695	. . . . . . . . . . . . 13 ⊢ ((((𝑃 − 𝑅) ∈ ℝ ∧ 𝑃 ∈ ℝ⁺) ∧ (0 ≤ (𝑃 − 𝑅) ∧ (𝑃 − 𝑅) < 𝑃)) → ((𝑃 − 𝑅) mod 𝑃) = (𝑃 − 𝑅))
136	75, 50, 78, 134, 135	syl22anc 1327	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 − 𝑅) mod 𝑃) = (𝑃 − 𝑅))
137	70, 73, 136	3eqtr3d 2664	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-𝑅 mod 𝑃) = (𝑃 − 𝑅))
138	137	adantr 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (-𝑅 mod 𝑃) = (𝑃 − 𝑅))
139		ax-1cn 9994	. . . . . . . . . . . . . . . 16 ⊢ 1 ∈ ℂ
140	139	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → 1 ∈ ℂ)
141	132	adantr 481	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → 𝑅 ∈ ℕ)
142	5	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 2 ∈ ℤ)
143	35	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 2 ≠ 0)
144	31	peano2zd 11485	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑅 + 1) ∈ ℤ)
145		dvdsval2 14986	. . . . . . . . . . . . . . . . . 18 ⊢ ((2 ∈ ℤ ∧ 2 ≠ 0 ∧ (𝑅 + 1) ∈ ℤ) → (2 ∥ (𝑅 + 1) ↔ ((𝑅 + 1) / 2) ∈ ℤ))
146	142, 143, 144, 145	syl3anc 1326	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 ∥ (𝑅 + 1) ↔ ((𝑅 + 1) / 2) ∈ ℤ))
147	146	biimpar 502	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → 2 ∥ (𝑅 + 1))
148	31	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → 𝑅 ∈ ℤ)
149	79	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → 2 ∈ ℕ)
150		1lt2 11194	. . . . . . . . . . . . . . . . . 18 ⊢ 1 < 2
151	150	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → 1 < 2)
152		ndvdsp1 15135	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∈ ℤ ∧ 2 ∈ ℕ ∧ 1 < 2) → (2 ∥ 𝑅 → ¬ 2 ∥ (𝑅 + 1)))
153	148, 149, 151, 152	syl3anc 1326	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (2 ∥ 𝑅 → ¬ 2 ∥ (𝑅 + 1)))
154	147, 153	mt2d 131	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → ¬ 2 ∥ 𝑅)
155		oexpneg 15069	. . . . . . . . . . . . . . 15 ⊢ ((1 ∈ ℂ ∧ 𝑅 ∈ ℕ ∧ ¬ 2 ∥ 𝑅) → (-1↑𝑅) = -(1↑𝑅))
156	140, 141, 154, 155	syl3anc 1326	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (-1↑𝑅) = -(1↑𝑅))
157		1exp 12889	. . . . . . . . . . . . . . . 16 ⊢ (𝑅 ∈ ℤ → (1↑𝑅) = 1)
158	148, 157	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (1↑𝑅) = 1)
159	158	negeqd 10275	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → -(1↑𝑅) = -1)
160	156, 159	eqtrd 2656	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (-1↑𝑅) = -1)
161	160	oveq1d 6665	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → ((-1↑𝑅) · 𝑅) = (-1 · 𝑅))
162	32	adantr 481	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → 𝑅 ∈ ℂ)
163	162	mulm1d 10482	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (-1 · 𝑅) = -𝑅)
164	161, 163	eqtrd 2656	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → ((-1↑𝑅) · 𝑅) = -𝑅)
165	164	oveq1d 6665	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (((-1↑𝑅) · 𝑅) mod 𝑃) = (-𝑅 mod 𝑃))
166	62	adantr 481	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → 𝑃 ∈ ℂ)
167	166, 162, 140	pnpcan2d 10430	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → ((𝑃 + 1) − (𝑅 + 1)) = (𝑃 − 𝑅))
168	138, 165, 167	3eqtr4d 2666	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (((-1↑𝑅) · 𝑅) mod 𝑃) = ((𝑃 + 1) − (𝑅 + 1)))
169	168	oveq1d 6665	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) = (((𝑃 + 1) − (𝑅 + 1)) / 2))
170		peano2cn 10208	. . . . . . . . . 10 ⊢ (𝑃 ∈ ℂ → (𝑃 + 1) ∈ ℂ)
171	166, 170	syl 17	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (𝑃 + 1) ∈ ℂ)
172		peano2cn 10208	. . . . . . . . . 10 ⊢ (𝑅 ∈ ℂ → (𝑅 + 1) ∈ ℂ)
173	162, 172	syl 17	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (𝑅 + 1) ∈ ℂ)
174		2cnd 11093	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → 2 ∈ ℂ)
175	35	a1i 11	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → 2 ≠ 0)
176	171, 173, 174, 175	divsubdird 10840	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (((𝑃 + 1) − (𝑅 + 1)) / 2) = (((𝑃 + 1) / 2) − ((𝑅 + 1) / 2)))
177	169, 176	eqtrd 2656	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) = (((𝑃 + 1) / 2) − ((𝑅 + 1) / 2)))
178	166, 140, 174	subadd23d 10414	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → ((𝑃 − 1) + 2) = (𝑃 + (2 − 1)))
179		2m1e1 11135	. . . . . . . . . . . . 13 ⊢ (2 − 1) = 1
180	179	oveq2i 6661	. . . . . . . . . . . 12 ⊢ (𝑃 + (2 − 1)) = (𝑃 + 1)
181	178, 180	syl6req 2673	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (𝑃 + 1) = ((𝑃 − 1) + 2))
182	181	oveq1d 6665	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → ((𝑃 + 1) / 2) = (((𝑃 − 1) + 2) / 2))
183	89	nncnd 11036	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 − 1) ∈ ℂ)
184	183	adantr 481	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (𝑃 − 1) ∈ ℂ)
185	184, 174, 174, 175	divdird 10839	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (((𝑃 − 1) + 2) / 2) = (((𝑃 − 1) / 2) + (2 / 2)))
186		2div2e1 11150	. . . . . . . . . . . 12 ⊢ (2 / 2) = 1
187	186	oveq2i 6661	. . . . . . . . . . 11 ⊢ (((𝑃 − 1) / 2) + (2 / 2)) = (((𝑃 − 1) / 2) + 1)
188	185, 187	syl6eq 2672	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (((𝑃 − 1) + 2) / 2) = (((𝑃 − 1) / 2) + 1))
189	182, 188	eqtrd 2656	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → ((𝑃 + 1) / 2) = (((𝑃 − 1) / 2) + 1))
190		oddprm 15515	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ (ℙ ∖ {2}) → ((𝑃 − 1) / 2) ∈ ℕ)
191	22, 190	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 − 1) / 2) ∈ ℕ)
192	191	nnzd 11481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 − 1) / 2) ∈ ℤ)
193	192	adantr 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → ((𝑃 − 1) / 2) ∈ ℤ)
194	193	peano2zd 11485	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (((𝑃 − 1) / 2) + 1) ∈ ℤ)
195	189, 194	eqeltrd 2701	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → ((𝑃 + 1) / 2) ∈ ℤ)
196		simpr 477	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → ((𝑅 + 1) / 2) ∈ ℤ)
197	195, 196	zsubcld 11487	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → (((𝑃 + 1) / 2) − ((𝑅 + 1) / 2)) ∈ ℤ)
198	177, 197	eqeltrd 2701	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) ∧ ((𝑅 + 1) / 2) ∈ ℤ) → ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ∈ ℤ)
199		zeo 11463	. . . . . . 7 ⊢ (𝑅 ∈ ℤ → ((𝑅 / 2) ∈ ℤ ∨ ((𝑅 + 1) / 2) ∈ ℤ))
200	31, 199	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑅 / 2) ∈ ℤ ∨ ((𝑅 + 1) / 2) ∈ ℤ))
201	61, 198, 200	mpjaodan 827	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ∈ ℤ)
202		m1expcl 12883	. . . . . . . . . 10 ⊢ (𝑅 ∈ ℤ → (-1↑𝑅) ∈ ℤ)
203	31, 202	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑅) ∈ ℤ)
204	203, 31	zmulcld 11488	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑𝑅) · 𝑅) ∈ ℤ)
205	204, 25	zmodcld 12691	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((-1↑𝑅) · 𝑅) mod 𝑃) ∈ ℕ₀)
206	205	nn0red 11352	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((-1↑𝑅) · 𝑅) mod 𝑃) ∈ ℝ)
207		fzm1ndvds 15044	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℕ ∧ 𝑅 ∈ (1...(𝑃 − 1))) → ¬ 𝑃 ∥ 𝑅)
208	25, 130, 207	syl2anc 693	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ 𝑃 ∥ 𝑅)
209		ax-1ne0 10005	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1 ≠ 0
210		divneg2 10749	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((1 ∈ ℂ ∧ 1 ∈ ℂ ∧ 1 ≠ 0) → -(1 / 1) = (1 / -1))
211	139, 139, 209, 210	mp3an 1424	. . . . . . . . . . . . . . . . . . 19 ⊢ -(1 / 1) = (1 / -1)
212		1div1e1 10717	. . . . . . . . . . . . . . . . . . . 20 ⊢ (1 / 1) = 1
213	212	negeqi 10274	. . . . . . . . . . . . . . . . . . 19 ⊢ -(1 / 1) = -1
214	211, 213	eqtr3i 2646	. . . . . . . . . . . . . . . . . 18 ⊢ (1 / -1) = -1
215	214	oveq1i 6660	. . . . . . . . . . . . . . . . 17 ⊢ ((1 / -1)↑𝑅) = (-1↑𝑅)
216	1	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → -1 ∈ ℂ)
217	3	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → -1 ≠ 0)
218	216, 217, 31	exprecd 13016	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((1 / -1)↑𝑅) = (1 / (-1↑𝑅)))
219	215, 218	syl5eqr 2670	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑅) = (1 / (-1↑𝑅)))
220	219	oveq2d 6666	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑𝑅) · (-1↑𝑅)) = ((-1↑𝑅) · (1 / (-1↑𝑅))))
221	203	zcnd 11483	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑅) ∈ ℂ)
222	216, 217, 31	expne0d 13014	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑅) ≠ 0)
223	221, 222	recidd 10796	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑𝑅) · (1 / (-1↑𝑅))) = 1)
224	220, 223	eqtrd 2656	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑𝑅) · (-1↑𝑅)) = 1)
225	224	oveq1d 6665	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((-1↑𝑅) · (-1↑𝑅)) · 𝑅) = (1 · 𝑅))
226	221, 221, 32	mulassd 10063	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((-1↑𝑅) · (-1↑𝑅)) · 𝑅) = ((-1↑𝑅) · ((-1↑𝑅) · 𝑅)))
227	32	mulid2d 10058	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (1 · 𝑅) = 𝑅)
228	225, 226, 227	3eqtr3d 2664	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑𝑅) · ((-1↑𝑅) · 𝑅)) = 𝑅)
229	228	breq2d 4665	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 ∥ ((-1↑𝑅) · ((-1↑𝑅) · 𝑅)) ↔ 𝑃 ∥ 𝑅))
230	208, 229	mtbird 315	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ 𝑃 ∥ ((-1↑𝑅) · ((-1↑𝑅) · 𝑅)))
231		dvdsmultr2 15021	. . . . . . . . . . 11 ⊢ ((𝑃 ∈ ℤ ∧ (-1↑𝑅) ∈ ℤ ∧ ((-1↑𝑅) · 𝑅) ∈ ℤ) → (𝑃 ∥ ((-1↑𝑅) · 𝑅) → 𝑃 ∥ ((-1↑𝑅) · ((-1↑𝑅) · 𝑅))))
232	99, 203, 204, 231	syl3anc 1326	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 ∥ ((-1↑𝑅) · 𝑅) → 𝑃 ∥ ((-1↑𝑅) · ((-1↑𝑅) · 𝑅))))
233	230, 232	mtod 189	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ 𝑃 ∥ ((-1↑𝑅) · 𝑅))
234		dvdsval3 14987	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℕ ∧ ((-1↑𝑅) · 𝑅) ∈ ℤ) → (𝑃 ∥ ((-1↑𝑅) · 𝑅) ↔ (((-1↑𝑅) · 𝑅) mod 𝑃) = 0))
235	25, 204, 234	syl2anc 693	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 ∥ ((-1↑𝑅) · 𝑅) ↔ (((-1↑𝑅) · 𝑅) mod 𝑃) = 0))
236	233, 235	mtbid 314	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ (((-1↑𝑅) · 𝑅) mod 𝑃) = 0)
237		elnn0 11294	. . . . . . . . . 10 ⊢ ((((-1↑𝑅) · 𝑅) mod 𝑃) ∈ ℕ₀ ↔ ((((-1↑𝑅) · 𝑅) mod 𝑃) ∈ ℕ ∨ (((-1↑𝑅) · 𝑅) mod 𝑃) = 0))
238	205, 237	sylib 208	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((((-1↑𝑅) · 𝑅) mod 𝑃) ∈ ℕ ∨ (((-1↑𝑅) · 𝑅) mod 𝑃) = 0))
239	238	ord 392	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (¬ (((-1↑𝑅) · 𝑅) mod 𝑃) ∈ ℕ → (((-1↑𝑅) · 𝑅) mod 𝑃) = 0))
240	236, 239	mt3d 140	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((-1↑𝑅) · 𝑅) mod 𝑃) ∈ ℕ)
241	240	nngt0d 11064	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 0 < (((-1↑𝑅) · 𝑅) mod 𝑃))
242	206, 92, 241, 94	divgt0d 10959	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 0 < ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2))
243		elnnz 11387	. . . . 5 ⊢ (((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ∈ ℕ ↔ (((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ∈ ℤ ∧ 0 < ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2)))
244	201, 242, 243	sylanbrc 698	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ∈ ℕ)
245	244	nnge1d 11063	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 1 ≤ ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2))
246		zmodfz 12692	. . . . . 6 ⊢ ((((-1↑𝑅) · 𝑅) ∈ ℤ ∧ 𝑃 ∈ ℕ) → (((-1↑𝑅) · 𝑅) mod 𝑃) ∈ (0...(𝑃 − 1)))
247	204, 25, 246	syl2anc 693	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((-1↑𝑅) · 𝑅) mod 𝑃) ∈ (0...(𝑃 − 1)))
248		elfzle2 12345	. . . . 5 ⊢ ((((-1↑𝑅) · 𝑅) mod 𝑃) ∈ (0...(𝑃 − 1)) → (((-1↑𝑅) · 𝑅) mod 𝑃) ≤ (𝑃 − 1))
249	247, 248	syl 17	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((-1↑𝑅) · 𝑅) mod 𝑃) ≤ (𝑃 − 1))
250		lediv1 10888	. . . . 5 ⊢ (((((-1↑𝑅) · 𝑅) mod 𝑃) ∈ ℝ ∧ (𝑃 − 1) ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → ((((-1↑𝑅) · 𝑅) mod 𝑃) ≤ (𝑃 − 1) ↔ ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ≤ ((𝑃 − 1) / 2)))
251	206, 90, 92, 94, 250	syl112anc 1330	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((((-1↑𝑅) · 𝑅) mod 𝑃) ≤ (𝑃 − 1) ↔ ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ≤ ((𝑃 − 1) / 2)))
252	249, 251	mpbid 222	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ≤ ((𝑃 − 1) / 2))
253		elfz 12332	. . . 4 ⊢ ((((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ∈ ℤ ∧ 1 ∈ ℤ ∧ ((𝑃 − 1) / 2) ∈ ℤ) → (((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ∈ (1...((𝑃 − 1) / 2)) ↔ (1 ≤ ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ∧ ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ≤ ((𝑃 − 1) / 2))))
254	201, 71, 192, 253	syl3anc 1326	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ∈ (1...((𝑃 − 1) / 2)) ↔ (1 ≤ ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ∧ ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ≤ ((𝑃 − 1) / 2))))
255	245, 252, 254	mpbir2and 957	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2) ∈ (1...((𝑃 − 1) / 2)))
256		lgseisen.5	. 2 ⊢ 𝑀 = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2))
257	255, 256	fmptd 6385	1 ⊢ (𝜑 → 𝑀:(1...((𝑃 − 1) / 2))⟶(1...((𝑃 − 1) / 2)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 196 ∨ wo 383 ∧ wa 384 = wceq 1483 ∈ wcel 1990 ≠ wne 2794 ∖ cdif 3571 {csn 4177 class class class wbr 4653 ↦ cmpt 4729 ⟶wf 5884 ‘cfv 5888 (class class class)co 6650 ℂcc 9934 ℝcr 9935 0cc0 9936 1c1 9937 + caddc 9939 · cmul 9941 < clt 10074 ≤ cle 10075 − cmin 10266 -cneg 10267 / cdiv 10684 ℕcn 11020 2c2 11070 ℕ₀cn0 11292 ℤcz 11377 ℤ_≥cuz 11687 ℝ⁺crp 11832 ...cfz 12326 mod cmo 12668 ↑cexp 12860 ∥ cdvds 14983 gcd cgcd 15216 ℙcprime 15385

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1722 ax-4 1737 ax-5 1839 ax-6 1888 ax-7 1935 ax-8 1992 ax-9 1999 ax-10 2019 ax-11 2034 ax-12 2047 ax-13 2246 ax-ext 2602 ax-sep 4781 ax-nul 4789 ax-pow 4843 ax-pr 4906 ax-un 6949 ax-cnex 9992 ax-resscn 9993 ax-1cn 9994 ax-icn 9995 ax-addcl 9996 ax-addrcl 9997 ax-mulcl 9998 ax-mulrcl 9999 ax-mulcom 10000 ax-addass 10001 ax-mulass 10002 ax-distr 10003 ax-i2m1 10004 ax-1ne0 10005 ax-1rid 10006 ax-rnegex 10007 ax-rrecex 10008 ax-cnre 10009 ax-pre-lttri 10010 ax-pre-lttrn 10011 ax-pre-ltadd 10012 ax-pre-mulgt0 10013 ax-pre-sup 10014

This theorem depends on definitions: df-bi 197 df-or 385 df-an 386 df-3or 1038 df-3an 1039 df-tru 1486 df-ex 1705 df-nf 1710 df-sb 1881 df-eu 2474 df-mo 2475 df-clab 2609 df-cleq 2615 df-clel 2618 df-nfc 2753 df-ne 2795 df-nel 2898 df-ral 2917 df-rex 2918 df-reu 2919 df-rmo 2920 df-rab 2921 df-v 3202 df-sbc 3436 df-csb 3534 df-dif 3577 df-un 3579 df-in 3581 df-ss 3588 df-pss 3590 df-nul 3916 df-if 4087 df-pw 4160 df-sn 4178 df-pr 4180 df-tp 4182 df-op 4184 df-uni 4437 df-iun 4522 df-br 4654 df-opab 4713 df-mpt 4730 df-tr 4753 df-id 5024 df-eprel 5029 df-po 5035 df-so 5036 df-fr 5073 df-we 5075 df-xp 5120 df-rel 5121 df-cnv 5122 df-co 5123 df-dm 5124 df-rn 5125 df-res 5126 df-ima 5127 df-pred 5680 df-ord 5726 df-on 5727 df-lim 5728 df-suc 5729 df-iota 5851 df-fun 5890 df-fn 5891 df-f 5892 df-f1 5893 df-fo 5894 df-f1o 5895 df-fv 5896 df-riota 6611 df-ov 6653 df-oprab 6654 df-mpt2 6655 df-om 7066 df-1st 7168 df-2nd 7169 df-wrecs 7407 df-recs 7468 df-rdg 7506 df-1o 7560 df-2o 7561 df-er 7742 df-en 7956 df-dom 7957 df-sdom 7958 df-fin 7959 df-sup 8348 df-inf 8349 df-pnf 10076 df-mnf 10077 df-xr 10078 df-ltxr 10079 df-le 10080 df-sub 10268 df-neg 10269 df-div 10685 df-nn 11021 df-2 11079 df-3 11080 df-n0 11293 df-z 11378 df-uz 11688 df-rp 11833 df-fz 12327 df-fl 12593 df-mod 12669 df-seq 12802 df-exp 12861 df-cj 13839 df-re 13840 df-im 13841 df-sqrt 13975 df-abs 13976 df-dvds 14984 df-gcd 15217 df-prm 15386

This theorem is referenced by: lgseisenlem2 25101 lgseisenlem3 25102

W3C validator