lgsdir2 - Metamath Proof Explorer

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

Theorem lgsdir2 26823

Description: The Legendre symbol is completely multiplicative at 2. (Contributed by Mario Carneiro, 4-Feb-2015.)

**Assertion**
Ref	Expression
lgsdir2	⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 · 𝐵) /_L 2) = ((𝐴 /_L 2) · (𝐵 /_L 2)))

**Proof of Theorem lgsdir2**
Step	Hyp	Ref	Expression
1		0cn 11203	. . . . . 6 ⊢ 0 ∈ ℂ
2		ax-1cn 11165	. . . . . . 7 ⊢ 1 ∈ ℂ
3		neg1cn 12323	. . . . . . 7 ⊢ -1 ∈ ℂ
4	2, 3	ifcli 4575	. . . . . 6 ⊢ if((𝐵 mod 8) ∈ {1, 7}, 1, -1) ∈ ℂ
5	1, 4	ifcli 4575	. . . . 5 ⊢ if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1)) ∈ ℂ
6	5	mul02i 11400	. . . 4 ⊢ (0 · if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1))) = 0
7		iftrue 4534	. . . . . 6 ⊢ (2 ∥ 𝐴 → if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) = 0)
8	7	adantl 483	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 2 ∥ 𝐴) → if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) = 0)
9	8	oveq1d 7421	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 2 ∥ 𝐴) → (if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) · if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1))) = (0 · if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1))))
10		2z 12591	. . . . . . 7 ⊢ 2 ∈ ℤ
11		dvdsmultr1 16236	. . . . . . 7 ⊢ ((2 ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (2 ∥ 𝐴 → 2 ∥ (𝐴 · 𝐵)))
12	10, 11	mp3an1 1449	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (2 ∥ 𝐴 → 2 ∥ (𝐴 · 𝐵)))
13	12	imp 408	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 2 ∥ 𝐴) → 2 ∥ (𝐴 · 𝐵))
14	13	iftrued 4536	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 2 ∥ 𝐴) → if(2 ∥ (𝐴 · 𝐵), 0, if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1)) = 0)
15	6, 9, 14	3eqtr4a 2799	. . 3 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 2 ∥ 𝐴) → (if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) · if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1))) = if(2 ∥ (𝐴 · 𝐵), 0, if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1)))
16	2, 3	ifcli 4575	. . . . . 6 ⊢ if((𝐴 mod 8) ∈ {1, 7}, 1, -1) ∈ ℂ
17	1, 16	ifcli 4575	. . . . 5 ⊢ if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) ∈ ℂ
18	17	mul01i 11401	. . . 4 ⊢ (if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) · 0) = 0
19		iftrue 4534	. . . . . 6 ⊢ (2 ∥ 𝐵 → if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1)) = 0)
20	19	adantl 483	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 2 ∥ 𝐵) → if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1)) = 0)
21	20	oveq2d 7422	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 2 ∥ 𝐵) → (if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) · if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1))) = (if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) · 0))
22		dvdsmultr2 16238	. . . . . . 7 ⊢ ((2 ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (2 ∥ 𝐵 → 2 ∥ (𝐴 · 𝐵)))
23	10, 22	mp3an1 1449	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (2 ∥ 𝐵 → 2 ∥ (𝐴 · 𝐵)))
24	23	imp 408	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 2 ∥ 𝐵) → 2 ∥ (𝐴 · 𝐵))
25	24	iftrued 4536	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 2 ∥ 𝐵) → if(2 ∥ (𝐴 · 𝐵), 0, if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1)) = 0)
26	18, 21, 25	3eqtr4a 2799	. . 3 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 2 ∥ 𝐵) → (if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) · if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1))) = if(2 ∥ (𝐴 · 𝐵), 0, if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1)))
27	4	mullidi 11216	. . . . . 6 ⊢ (1 · if((𝐵 mod 8) ∈ {1, 7}, 1, -1)) = if((𝐵 mod 8) ∈ {1, 7}, 1, -1)
28		iftrue 4534	. . . . . . . 8 ⊢ ((𝐴 mod 8) ∈ {1, 7} → if((𝐴 mod 8) ∈ {1, 7}, 1, -1) = 1)
29	28	adantl 483	. . . . . . 7 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐴 mod 8) ∈ {1, 7}) → if((𝐴 mod 8) ∈ {1, 7}, 1, -1) = 1)
30	29	oveq1d 7421	. . . . . 6 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐴 mod 8) ∈ {1, 7}) → (if((𝐴 mod 8) ∈ {1, 7}, 1, -1) · if((𝐵 mod 8) ∈ {1, 7}, 1, -1)) = (1 · if((𝐵 mod 8) ∈ {1, 7}, 1, -1)))
31		lgsdir2lem4 26821	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (𝐴 mod 8) ∈ {1, 7}) → (((𝐴 · 𝐵) mod 8) ∈ {1, 7} ↔ (𝐵 mod 8) ∈ {1, 7}))
32	31	adantlr 714	. . . . . . 7 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐴 mod 8) ∈ {1, 7}) → (((𝐴 · 𝐵) mod 8) ∈ {1, 7} ↔ (𝐵 mod 8) ∈ {1, 7}))
33	32	ifbid 4551	. . . . . 6 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐴 mod 8) ∈ {1, 7}) → if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1) = if((𝐵 mod 8) ∈ {1, 7}, 1, -1))
34	27, 30, 33	3eqtr4a 2799	. . . . 5 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐴 mod 8) ∈ {1, 7}) → (if((𝐴 mod 8) ∈ {1, 7}, 1, -1) · if((𝐵 mod 8) ∈ {1, 7}, 1, -1)) = if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1))
35	16	mulridi 11215	. . . . . 6 ⊢ (if((𝐴 mod 8) ∈ {1, 7}, 1, -1) · 1) = if((𝐴 mod 8) ∈ {1, 7}, 1, -1)
36		iftrue 4534	. . . . . . . 8 ⊢ ((𝐵 mod 8) ∈ {1, 7} → if((𝐵 mod 8) ∈ {1, 7}, 1, -1) = 1)
37	36	adantl 483	. . . . . . 7 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐵 mod 8) ∈ {1, 7}) → if((𝐵 mod 8) ∈ {1, 7}, 1, -1) = 1)
38	37	oveq2d 7422	. . . . . 6 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐵 mod 8) ∈ {1, 7}) → (if((𝐴 mod 8) ∈ {1, 7}, 1, -1) · if((𝐵 mod 8) ∈ {1, 7}, 1, -1)) = (if((𝐴 mod 8) ∈ {1, 7}, 1, -1) · 1))
39		zcn 12560	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℤ → 𝐴 ∈ ℂ)
40		zcn 12560	. . . . . . . . . . . 12 ⊢ (𝐵 ∈ ℤ → 𝐵 ∈ ℂ)
41		mulcom 11193	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (𝐴 · 𝐵) = (𝐵 · 𝐴))
42	39, 40, 41	syl2an 597	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝐴 · 𝐵) = (𝐵 · 𝐴))
43	42	ad2antrr 725	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐵 mod 8) ∈ {1, 7}) → (𝐴 · 𝐵) = (𝐵 · 𝐴))
44	43	oveq1d 7421	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐵 mod 8) ∈ {1, 7}) → ((𝐴 · 𝐵) mod 8) = ((𝐵 · 𝐴) mod 8))
45	44	eleq1d 2819	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐵 mod 8) ∈ {1, 7}) → (((𝐴 · 𝐵) mod 8) ∈ {1, 7} ↔ ((𝐵 · 𝐴) mod 8) ∈ {1, 7}))
46		lgsdir2lem4 26821	. . . . . . . . . 10 ⊢ (((𝐵 ∈ ℤ ∧ 𝐴 ∈ ℤ) ∧ (𝐵 mod 8) ∈ {1, 7}) → (((𝐵 · 𝐴) mod 8) ∈ {1, 7} ↔ (𝐴 mod 8) ∈ {1, 7}))
47	46	ancom1s 652	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (𝐵 mod 8) ∈ {1, 7}) → (((𝐵 · 𝐴) mod 8) ∈ {1, 7} ↔ (𝐴 mod 8) ∈ {1, 7}))
48	47	adantlr 714	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐵 mod 8) ∈ {1, 7}) → (((𝐵 · 𝐴) mod 8) ∈ {1, 7} ↔ (𝐴 mod 8) ∈ {1, 7}))
49	45, 48	bitrd 279	. . . . . . 7 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐵 mod 8) ∈ {1, 7}) → (((𝐴 · 𝐵) mod 8) ∈ {1, 7} ↔ (𝐴 mod 8) ∈ {1, 7}))
50	49	ifbid 4551	. . . . . 6 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐵 mod 8) ∈ {1, 7}) → if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1) = if((𝐴 mod 8) ∈ {1, 7}, 1, -1))
51	35, 38, 50	3eqtr4a 2799	. . . . 5 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (𝐵 mod 8) ∈ {1, 7}) → (if((𝐴 mod 8) ∈ {1, 7}, 1, -1) · if((𝐵 mod 8) ∈ {1, 7}, 1, -1)) = if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1))
52		neg1mulneg1e1 12422	. . . . . 6 ⊢ (-1 · -1) = 1
53		iffalse 4537	. . . . . . . 8 ⊢ (¬ (𝐴 mod 8) ∈ {1, 7} → if((𝐴 mod 8) ∈ {1, 7}, 1, -1) = -1)
54		iffalse 4537	. . . . . . . 8 ⊢ (¬ (𝐵 mod 8) ∈ {1, 7} → if((𝐵 mod 8) ∈ {1, 7}, 1, -1) = -1)
55	53, 54	oveqan12d 7425	. . . . . . 7 ⊢ ((¬ (𝐴 mod 8) ∈ {1, 7} ∧ ¬ (𝐵 mod 8) ∈ {1, 7}) → (if((𝐴 mod 8) ∈ {1, 7}, 1, -1) · if((𝐵 mod 8) ∈ {1, 7}, 1, -1)) = (-1 · -1))
56	55	adantl 483	. . . . . 6 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (¬ (𝐴 mod 8) ∈ {1, 7} ∧ ¬ (𝐵 mod 8) ∈ {1, 7})) → (if((𝐴 mod 8) ∈ {1, 7}, 1, -1) · if((𝐵 mod 8) ∈ {1, 7}, 1, -1)) = (-1 · -1))
57		lgsdir2lem3 26820	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ ¬ 2 ∥ 𝐴) → (𝐴 mod 8) ∈ ({1, 7} ∪ {3, 5}))
58	57	ad2ant2r 746	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) → (𝐴 mod 8) ∈ ({1, 7} ∪ {3, 5}))
59		elun 4148	. . . . . . . . . . 11 ⊢ ((𝐴 mod 8) ∈ ({1, 7} ∪ {3, 5}) ↔ ((𝐴 mod 8) ∈ {1, 7} ∨ (𝐴 mod 8) ∈ {3, 5}))
60	58, 59	sylib 217	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) → ((𝐴 mod 8) ∈ {1, 7} ∨ (𝐴 mod 8) ∈ {3, 5}))
61	60	orcanai 1002	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ ¬ (𝐴 mod 8) ∈ {1, 7}) → (𝐴 mod 8) ∈ {3, 5})
62		lgsdir2lem3 26820	. . . . . . . . . . . 12 ⊢ ((𝐵 ∈ ℤ ∧ ¬ 2 ∥ 𝐵) → (𝐵 mod 8) ∈ ({1, 7} ∪ {3, 5}))
63	62	ad2ant2l 745	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) → (𝐵 mod 8) ∈ ({1, 7} ∪ {3, 5}))
64		elun 4148	. . . . . . . . . . 11 ⊢ ((𝐵 mod 8) ∈ ({1, 7} ∪ {3, 5}) ↔ ((𝐵 mod 8) ∈ {1, 7} ∨ (𝐵 mod 8) ∈ {3, 5}))
65	63, 64	sylib 217	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) → ((𝐵 mod 8) ∈ {1, 7} ∨ (𝐵 mod 8) ∈ {3, 5}))
66	65	orcanai 1002	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ ¬ (𝐵 mod 8) ∈ {1, 7}) → (𝐵 mod 8) ∈ {3, 5})
67	61, 66	anim12dan 620	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (¬ (𝐴 mod 8) ∈ {1, 7} ∧ ¬ (𝐵 mod 8) ∈ {1, 7})) → ((𝐴 mod 8) ∈ {3, 5} ∧ (𝐵 mod 8) ∈ {3, 5}))
68		lgsdir2lem5 26822	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ ((𝐴 mod 8) ∈ {3, 5} ∧ (𝐵 mod 8) ∈ {3, 5})) → ((𝐴 · 𝐵) mod 8) ∈ {1, 7})
69	68	adantlr 714	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ ((𝐴 mod 8) ∈ {3, 5} ∧ (𝐵 mod 8) ∈ {3, 5})) → ((𝐴 · 𝐵) mod 8) ∈ {1, 7})
70	67, 69	syldan 592	. . . . . . 7 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (¬ (𝐴 mod 8) ∈ {1, 7} ∧ ¬ (𝐵 mod 8) ∈ {1, 7})) → ((𝐴 · 𝐵) mod 8) ∈ {1, 7})
71	70	iftrued 4536	. . . . . 6 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (¬ (𝐴 mod 8) ∈ {1, 7} ∧ ¬ (𝐵 mod 8) ∈ {1, 7})) → if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1) = 1)
72	52, 56, 71	3eqtr4a 2799	. . . . 5 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) ∧ (¬ (𝐴 mod 8) ∈ {1, 7} ∧ ¬ (𝐵 mod 8) ∈ {1, 7})) → (if((𝐴 mod 8) ∈ {1, 7}, 1, -1) · if((𝐵 mod 8) ∈ {1, 7}, 1, -1)) = if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1))
73	34, 51, 72	pm2.61ddan 813	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) → (if((𝐴 mod 8) ∈ {1, 7}, 1, -1) · if((𝐵 mod 8) ∈ {1, 7}, 1, -1)) = if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1))
74		iffalse 4537	. . . . . 6 ⊢ (¬ 2 ∥ 𝐴 → if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) = if((𝐴 mod 8) ∈ {1, 7}, 1, -1))
75		iffalse 4537	. . . . . 6 ⊢ (¬ 2 ∥ 𝐵 → if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1)) = if((𝐵 mod 8) ∈ {1, 7}, 1, -1))
76	74, 75	oveqan12d 7425	. . . . 5 ⊢ ((¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵) → (if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) · if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1))) = (if((𝐴 mod 8) ∈ {1, 7}, 1, -1) · if((𝐵 mod 8) ∈ {1, 7}, 1, -1)))
77	76	adantl 483	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) → (if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) · if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1))) = (if((𝐴 mod 8) ∈ {1, 7}, 1, -1) · if((𝐵 mod 8) ∈ {1, 7}, 1, -1)))
78		ioran 983	. . . . . 6 ⊢ (¬ (2 ∥ 𝐴 ∨ 2 ∥ 𝐵) ↔ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵))
79		2prm 16626	. . . . . . . . 9 ⊢ 2 ∈ ℙ
80		euclemma 16647	. . . . . . . . 9 ⊢ ((2 ∈ ℙ ∧ 𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (2 ∥ (𝐴 · 𝐵) ↔ (2 ∥ 𝐴 ∨ 2 ∥ 𝐵)))
81	79, 80	mp3an1 1449	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (2 ∥ (𝐴 · 𝐵) ↔ (2 ∥ 𝐴 ∨ 2 ∥ 𝐵)))
82	81	notbid 318	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (¬ 2 ∥ (𝐴 · 𝐵) ↔ ¬ (2 ∥ 𝐴 ∨ 2 ∥ 𝐵)))
83	82	biimpar 479	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ ¬ (2 ∥ 𝐴 ∨ 2 ∥ 𝐵)) → ¬ 2 ∥ (𝐴 · 𝐵))
84	78, 83	sylan2br 596	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) → ¬ 2 ∥ (𝐴 · 𝐵))
85		iffalse 4537	. . . . 5 ⊢ (¬ 2 ∥ (𝐴 · 𝐵) → if(2 ∥ (𝐴 · 𝐵), 0, if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1)) = if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1))
86	84, 85	syl 17	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) → if(2 ∥ (𝐴 · 𝐵), 0, if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1)) = if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1))
87	73, 77, 86	3eqtr4d 2783	. . 3 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (¬ 2 ∥ 𝐴 ∧ ¬ 2 ∥ 𝐵)) → (if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) · if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1))) = if(2 ∥ (𝐴 · 𝐵), 0, if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1)))
88	15, 26, 87	pm2.61ddan 813	. 2 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) · if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1))) = if(2 ∥ (𝐴 · 𝐵), 0, if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1)))
89		lgs2 26807	. . 3 ⊢ (𝐴 ∈ ℤ → (𝐴 /_L 2) = if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)))
90		lgs2 26807	. . 3 ⊢ (𝐵 ∈ ℤ → (𝐵 /_L 2) = if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1)))
91	89, 90	oveqan12d 7425	. 2 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 /_L 2) · (𝐵 /_L 2)) = (if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) · if(2 ∥ 𝐵, 0, if((𝐵 mod 8) ∈ {1, 7}, 1, -1))))
92		zmulcl 12608	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝐴 · 𝐵) ∈ ℤ)
93		lgs2 26807	. . 3 ⊢ ((𝐴 · 𝐵) ∈ ℤ → ((𝐴 · 𝐵) /_L 2) = if(2 ∥ (𝐴 · 𝐵), 0, if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1)))
94	92, 93	syl 17	. 2 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 · 𝐵) /_L 2) = if(2 ∥ (𝐴 · 𝐵), 0, if(((𝐴 · 𝐵) mod 8) ∈ {1, 7}, 1, -1)))
95	88, 91, 94	3eqtr4rd 2784	1 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 · 𝐵) /_L 2) = ((𝐴 /_L 2) · (𝐵 /_L 2)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 397 ∨ wo 846 = wceq 1542 ∈ wcel 2107 ∪ cun 3946 ifcif 4528 {cpr 4630 class class class wbr 5148 (class class class)co 7406 ℂcc 11105 0cc0 11107 1c1 11108 · cmul 11112 -cneg 11442 2c2 12264 3c3 12265 5c5 12267 7c7 12269 8c8 12270 ℤcz 12555 mod cmo 13831 ∥ cdvds 16194 ℙcprime 16605 /_L clgs 26787

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2704 ax-rep 5285 ax-sep 5299 ax-nul 5306 ax-pow 5363 ax-pr 5427 ax-un 7722 ax-cnex 11163 ax-resscn 11164 ax-1cn 11165 ax-icn 11166 ax-addcl 11167 ax-addrcl 11168 ax-mulcl 11169 ax-mulrcl 11170 ax-mulcom 11171 ax-addass 11172 ax-mulass 11173 ax-distr 11174 ax-i2m1 11175 ax-1ne0 11176 ax-1rid 11177 ax-rnegex 11178 ax-rrecex 11179 ax-cnre 11180 ax-pre-lttri 11181 ax-pre-lttrn 11182 ax-pre-ltadd 11183 ax-pre-mulgt0 11184 ax-pre-sup 11185

This theorem depends on definitions: df-bi 206 df-an 398 df-or 847 df-3or 1089 df-3an 1090 df-tru 1545 df-fal 1555 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2886 df-ne 2942 df-nel 3048 df-ral 3063 df-rex 3072 df-rmo 3377 df-reu 3378 df-rab 3434 df-v 3477 df-sbc 3778 df-csb 3894 df-dif 3951 df-un 3953 df-in 3955 df-ss 3965 df-pss 3967 df-nul 4323 df-if 4529 df-pw 4604 df-sn 4629 df-pr 4631 df-op 4635 df-uni 4909 df-int 4951 df-iun 4999 df-br 5149 df-opab 5211 df-mpt 5232 df-tr 5266 df-id 5574 df-eprel 5580 df-po 5588 df-so 5589 df-fr 5631 df-we 5633 df-xp 5682 df-rel 5683 df-cnv 5684 df-co 5685 df-dm 5686 df-rn 5687 df-res 5688 df-ima 5689 df-pred 6298 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6493 df-fun 6543 df-fn 6544 df-f 6545 df-f1 6546 df-fo 6547 df-f1o 6548 df-fv 6549 df-riota 7362 df-ov 7409 df-oprab 7410 df-mpo 7411 df-om 7853 df-1st 7972 df-2nd 7973 df-frecs 8263 df-wrecs 8294 df-recs 8368 df-rdg 8407 df-1o 8463 df-2o 8464 df-oadd 8467 df-er 8700 df-en 8937 df-dom 8938 df-sdom 8939 df-fin 8940 df-sup 9434 df-inf 9435 df-dju 9893 df-card 9931 df-pnf 11247 df-mnf 11248 df-xr 11249 df-ltxr 11250 df-le 11251 df-sub 11443 df-neg 11444 df-div 11869 df-nn 12210 df-2 12272 df-3 12273 df-4 12274 df-5 12275 df-6 12276 df-7 12277 df-8 12278 df-9 12279 df-n0 12470 df-xnn0 12542 df-z 12556 df-uz 12820 df-q 12930 df-rp 12972 df-fz 13482 df-fzo 13625 df-fl 13754 df-mod 13832 df-seq 13964 df-exp 14025 df-hash 14288 df-cj 15043 df-re 15044 df-im 15045 df-sqrt 15179 df-abs 15180 df-dvds 16195 df-gcd 16433 df-prm 16606 df-phi 16696 df-pc 16767 df-lgs 26788

This theorem is referenced by: lgsdirprm 26824

W3C validator