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

Theorem 2lgsoddprmlem2 14493
Description: Lemma 2 for 2lgsoddprm . (Contributed by AV, 19-Jul-2021.)
Assertion
Ref Expression
2lgsoddprmlem2 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ (2 โˆฅ (((๐‘โ†‘2) โˆ’ 1) / 8) โ†” 2 โˆฅ (((๐‘…โ†‘2) โˆ’ 1) / 8)))

Proof of Theorem 2lgsoddprmlem2
Dummy variable ๐‘˜ is distinct from all other variables.
StepHypRef Expression
1 8nn 9088 . . . . . 6 8 โˆˆ โ„•
2 nnq 9635 . . . . . 6 (8 โˆˆ โ„• โ†’ 8 โˆˆ โ„š)
31, 2ax-mp 5 . . . . 5 8 โˆˆ โ„š
4 8pos 9024 . . . . 5 0 < 8
5 eqcom 2179 . . . . . 6 (๐‘… = (๐‘ mod 8) โ†” (๐‘ mod 8) = ๐‘…)
6 modqmuladdim 10369 . . . . . 6 ((๐‘ โˆˆ โ„ค โˆง 8 โˆˆ โ„š โˆง 0 < 8) โ†’ ((๐‘ mod 8) = ๐‘… โ†’ โˆƒ๐‘˜ โˆˆ โ„ค ๐‘ = ((๐‘˜ ยท 8) + ๐‘…)))
75, 6biimtrid 152 . . . . 5 ((๐‘ โˆˆ โ„ค โˆง 8 โˆˆ โ„š โˆง 0 < 8) โ†’ (๐‘… = (๐‘ mod 8) โ†’ โˆƒ๐‘˜ โˆˆ โ„ค ๐‘ = ((๐‘˜ ยท 8) + ๐‘…)))
83, 4, 7mp3an23 1329 . . . 4 (๐‘ โˆˆ โ„ค โ†’ (๐‘… = (๐‘ mod 8) โ†’ โˆƒ๐‘˜ โˆˆ โ„ค ๐‘ = ((๐‘˜ ยท 8) + ๐‘…)))
98imp 124 . . 3 ((๐‘ โˆˆ โ„ค โˆง ๐‘… = (๐‘ mod 8)) โ†’ โˆƒ๐‘˜ โˆˆ โ„ค ๐‘ = ((๐‘˜ ยท 8) + ๐‘…))
1093adant2 1016 . 2 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ โˆƒ๐‘˜ โˆˆ โ„ค ๐‘ = ((๐‘˜ ยท 8) + ๐‘…))
11 zcn 9260 . . . . . . . 8 (๐‘˜ โˆˆ โ„ค โ†’ ๐‘˜ โˆˆ โ„‚)
12 8cn 9007 . . . . . . . . 9 8 โˆˆ โ„‚
1312a1i 9 . . . . . . . 8 (๐‘˜ โˆˆ โ„ค โ†’ 8 โˆˆ โ„‚)
1411, 13mulcomd 7981 . . . . . . 7 (๐‘˜ โˆˆ โ„ค โ†’ (๐‘˜ ยท 8) = (8 ยท ๐‘˜))
1514adantl 277 . . . . . 6 (((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (๐‘˜ ยท 8) = (8 ยท ๐‘˜))
1615oveq1d 5892 . . . . 5 (((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โ†’ ((๐‘˜ ยท 8) + ๐‘…) = ((8 ยท ๐‘˜) + ๐‘…))
1716eqeq2d 2189 . . . 4 (((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (๐‘ = ((๐‘˜ ยท 8) + ๐‘…) โ†” ๐‘ = ((8 ยท ๐‘˜) + ๐‘…)))
18 simpr 110 . . . . . . . . 9 (((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โ†’ ๐‘˜ โˆˆ โ„ค)
1918adantr 276 . . . . . . . 8 ((((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โˆง ๐‘ = ((8 ยท ๐‘˜) + ๐‘…)) โ†’ ๐‘˜ โˆˆ โ„ค)
20 id 19 . . . . . . . . . . . . . 14 (๐‘ โˆˆ โ„ค โ†’ ๐‘ โˆˆ โ„ค)
211a1i 9 . . . . . . . . . . . . . 14 (๐‘ โˆˆ โ„ค โ†’ 8 โˆˆ โ„•)
2220, 21zmodcld 10347 . . . . . . . . . . . . 13 (๐‘ โˆˆ โ„ค โ†’ (๐‘ mod 8) โˆˆ โ„•0)
2322nn0zd 9375 . . . . . . . . . . . 12 (๐‘ โˆˆ โ„ค โ†’ (๐‘ mod 8) โˆˆ โ„ค)
24233ad2ant1 1018 . . . . . . . . . . 11 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ (๐‘ mod 8) โˆˆ โ„ค)
25 eleq1 2240 . . . . . . . . . . . 12 (๐‘… = (๐‘ mod 8) โ†’ (๐‘… โˆˆ โ„ค โ†” (๐‘ mod 8) โˆˆ โ„ค))
26253ad2ant3 1020 . . . . . . . . . . 11 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ (๐‘… โˆˆ โ„ค โ†” (๐‘ mod 8) โˆˆ โ„ค))
2724, 26mpbird 167 . . . . . . . . . 10 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ ๐‘… โˆˆ โ„ค)
2827adantr 276 . . . . . . . . 9 (((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โ†’ ๐‘… โˆˆ โ„ค)
2928adantr 276 . . . . . . . 8 ((((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โˆง ๐‘ = ((8 ยท ๐‘˜) + ๐‘…)) โ†’ ๐‘… โˆˆ โ„ค)
30 simpr 110 . . . . . . . 8 ((((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โˆง ๐‘ = ((8 ยท ๐‘˜) + ๐‘…)) โ†’ ๐‘ = ((8 ยท ๐‘˜) + ๐‘…))
31 2lgsoddprmlem1 14492 . . . . . . . 8 ((๐‘˜ โˆˆ โ„ค โˆง ๐‘… โˆˆ โ„ค โˆง ๐‘ = ((8 ยท ๐‘˜) + ๐‘…)) โ†’ (((๐‘โ†‘2) โˆ’ 1) / 8) = (((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) + (((๐‘…โ†‘2) โˆ’ 1) / 8)))
3219, 29, 30, 31syl3anc 1238 . . . . . . 7 ((((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โˆง ๐‘ = ((8 ยท ๐‘˜) + ๐‘…)) โ†’ (((๐‘โ†‘2) โˆ’ 1) / 8) = (((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) + (((๐‘…โ†‘2) โˆ’ 1) / 8)))
3332breq2d 4017 . . . . . 6 ((((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โˆง ๐‘ = ((8 ยท ๐‘˜) + ๐‘…)) โ†’ (2 โˆฅ (((๐‘โ†‘2) โˆ’ 1) / 8) โ†” 2 โˆฅ (((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) + (((๐‘…โ†‘2) โˆ’ 1) / 8))))
34 2z 9283 . . . . . . 7 2 โˆˆ โ„ค
35 simp1 997 . . . . . . . . . . . 12 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ ๐‘ โˆˆ โ„ค)
361a1i 9 . . . . . . . . . . . 12 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ 8 โˆˆ โ„•)
3735, 36zmodcld 10347 . . . . . . . . . . 11 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ (๐‘ mod 8) โˆˆ โ„•0)
3837nn0red 9232 . . . . . . . . . 10 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ (๐‘ mod 8) โˆˆ โ„)
39 eleq1 2240 . . . . . . . . . . 11 (๐‘… = (๐‘ mod 8) โ†’ (๐‘… โˆˆ โ„ โ†” (๐‘ mod 8) โˆˆ โ„))
40393ad2ant3 1020 . . . . . . . . . 10 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ (๐‘… โˆˆ โ„ โ†” (๐‘ mod 8) โˆˆ โ„))
4138, 40mpbird 167 . . . . . . . . 9 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ ๐‘… โˆˆ โ„)
42 resqcl 10590 . . . . . . . . . . 11 (๐‘… โˆˆ โ„ โ†’ (๐‘…โ†‘2) โˆˆ โ„)
43 peano2rem 8226 . . . . . . . . . . 11 ((๐‘…โ†‘2) โˆˆ โ„ โ†’ ((๐‘…โ†‘2) โˆ’ 1) โˆˆ โ„)
4442, 43syl 14 . . . . . . . . . 10 (๐‘… โˆˆ โ„ โ†’ ((๐‘…โ†‘2) โˆ’ 1) โˆˆ โ„)
45 8re 9006 . . . . . . . . . . 11 8 โˆˆ โ„
4645a1i 9 . . . . . . . . . 10 (๐‘… โˆˆ โ„ โ†’ 8 โˆˆ โ„)
4745, 4gt0ap0ii 8587 . . . . . . . . . . 11 8 # 0
4847a1i 9 . . . . . . . . . 10 (๐‘… โˆˆ โ„ โ†’ 8 # 0)
4944, 46, 48redivclapd 8794 . . . . . . . . 9 (๐‘… โˆˆ โ„ โ†’ (((๐‘…โ†‘2) โˆ’ 1) / 8) โˆˆ โ„)
5041, 49syl 14 . . . . . . . 8 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ (((๐‘…โ†‘2) โˆ’ 1) / 8) โˆˆ โ„)
5150adantr 276 . . . . . . 7 (((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (((๐‘…โ†‘2) โˆ’ 1) / 8) โˆˆ โ„)
52 eleq1 2240 . . . . . . . . . . . 12 (๐‘… = (๐‘ mod 8) โ†’ (๐‘… โˆˆ โ„•0 โ†” (๐‘ mod 8) โˆˆ โ„•0))
53523ad2ant3 1020 . . . . . . . . . . 11 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ (๐‘… โˆˆ โ„•0 โ†” (๐‘ mod 8) โˆˆ โ„•0))
5437, 53mpbird 167 . . . . . . . . . 10 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ ๐‘… โˆˆ โ„•0)
55 nn0z 9275 . . . . . . . . . 10 (๐‘… โˆˆ โ„•0 โ†’ ๐‘… โˆˆ โ„ค)
561nnzi 9276 . . . . . . . . . . . . . . 15 8 โˆˆ โ„ค
5756a1i 9 . . . . . . . . . . . . . 14 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ 8 โˆˆ โ„ค)
58 zsqcl 10593 . . . . . . . . . . . . . . 15 (๐‘˜ โˆˆ โ„ค โ†’ (๐‘˜โ†‘2) โˆˆ โ„ค)
5958adantl 277 . . . . . . . . . . . . . 14 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (๐‘˜โ†‘2) โˆˆ โ„ค)
6057, 59zmulcld 9383 . . . . . . . . . . . . 13 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (8 ยท (๐‘˜โ†‘2)) โˆˆ โ„ค)
6134a1i 9 . . . . . . . . . . . . . 14 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ 2 โˆˆ โ„ค)
62 zmulcl 9308 . . . . . . . . . . . . . . 15 ((๐‘˜ โˆˆ โ„ค โˆง ๐‘… โˆˆ โ„ค) โ†’ (๐‘˜ ยท ๐‘…) โˆˆ โ„ค)
6362ancoms 268 . . . . . . . . . . . . . 14 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (๐‘˜ ยท ๐‘…) โˆˆ โ„ค)
6461, 63zmulcld 9383 . . . . . . . . . . . . 13 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (2 ยท (๐‘˜ ยท ๐‘…)) โˆˆ โ„ค)
6560, 64zaddcld 9381 . . . . . . . . . . . 12 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ ((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) โˆˆ โ„ค)
66 4z 9285 . . . . . . . . . . . . . . . . 17 4 โˆˆ โ„ค
6766a1i 9 . . . . . . . . . . . . . . . 16 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ 4 โˆˆ โ„ค)
6867, 59zmulcld 9383 . . . . . . . . . . . . . . 15 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (4 ยท (๐‘˜โ†‘2)) โˆˆ โ„ค)
6968, 63zaddcld 9381 . . . . . . . . . . . . . 14 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ ((4 ยท (๐‘˜โ†‘2)) + (๐‘˜ ยท ๐‘…)) โˆˆ โ„ค)
70 dvdsmul1 11822 . . . . . . . . . . . . . 14 ((2 โˆˆ โ„ค โˆง ((4 ยท (๐‘˜โ†‘2)) + (๐‘˜ ยท ๐‘…)) โˆˆ โ„ค) โ†’ 2 โˆฅ (2 ยท ((4 ยท (๐‘˜โ†‘2)) + (๐‘˜ ยท ๐‘…))))
7134, 69, 70sylancr 414 . . . . . . . . . . . . 13 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ 2 โˆฅ (2 ยท ((4 ยท (๐‘˜โ†‘2)) + (๐‘˜ ยท ๐‘…))))
72 4t2e8 9079 . . . . . . . . . . . . . . . . . . 19 (4 ยท 2) = 8
73 4cn 8999 . . . . . . . . . . . . . . . . . . . 20 4 โˆˆ โ„‚
74 2cn 8992 . . . . . . . . . . . . . . . . . . . 20 2 โˆˆ โ„‚
7573, 74mulcomi 7965 . . . . . . . . . . . . . . . . . . 19 (4 ยท 2) = (2 ยท 4)
7672, 75eqtr3i 2200 . . . . . . . . . . . . . . . . . 18 8 = (2 ยท 4)
7776a1i 9 . . . . . . . . . . . . . . . . 17 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ 8 = (2 ยท 4))
7877oveq1d 5892 . . . . . . . . . . . . . . . 16 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (8 ยท (๐‘˜โ†‘2)) = ((2 ยท 4) ยท (๐‘˜โ†‘2)))
7974a1i 9 . . . . . . . . . . . . . . . . 17 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ 2 โˆˆ โ„‚)
8073a1i 9 . . . . . . . . . . . . . . . . 17 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ 4 โˆˆ โ„‚)
8158zcnd 9378 . . . . . . . . . . . . . . . . . 18 (๐‘˜ โˆˆ โ„ค โ†’ (๐‘˜โ†‘2) โˆˆ โ„‚)
8281adantl 277 . . . . . . . . . . . . . . . . 17 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (๐‘˜โ†‘2) โˆˆ โ„‚)
8379, 80, 82mulassd 7983 . . . . . . . . . . . . . . . 16 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ ((2 ยท 4) ยท (๐‘˜โ†‘2)) = (2 ยท (4 ยท (๐‘˜โ†‘2))))
8478, 83eqtrd 2210 . . . . . . . . . . . . . . 15 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (8 ยท (๐‘˜โ†‘2)) = (2 ยท (4 ยท (๐‘˜โ†‘2))))
8584oveq1d 5892 . . . . . . . . . . . . . 14 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ ((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) = ((2 ยท (4 ยท (๐‘˜โ†‘2))) + (2 ยท (๐‘˜ ยท ๐‘…))))
8668zcnd 9378 . . . . . . . . . . . . . . 15 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (4 ยท (๐‘˜โ†‘2)) โˆˆ โ„‚)
8762zcnd 9378 . . . . . . . . . . . . . . . 16 ((๐‘˜ โˆˆ โ„ค โˆง ๐‘… โˆˆ โ„ค) โ†’ (๐‘˜ ยท ๐‘…) โˆˆ โ„‚)
8887ancoms 268 . . . . . . . . . . . . . . 15 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (๐‘˜ ยท ๐‘…) โˆˆ โ„‚)
8979, 86, 88adddid 7984 . . . . . . . . . . . . . 14 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (2 ยท ((4 ยท (๐‘˜โ†‘2)) + (๐‘˜ ยท ๐‘…))) = ((2 ยท (4 ยท (๐‘˜โ†‘2))) + (2 ยท (๐‘˜ ยท ๐‘…))))
9085, 89eqtr4d 2213 . . . . . . . . . . . . 13 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ ((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) = (2 ยท ((4 ยท (๐‘˜โ†‘2)) + (๐‘˜ ยท ๐‘…))))
9171, 90breqtrrd 4033 . . . . . . . . . . . 12 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ 2 โˆฅ ((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))))
9265, 91jca 306 . . . . . . . . . . 11 ((๐‘… โˆˆ โ„ค โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) โˆˆ โ„ค โˆง 2 โˆฅ ((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…)))))
9392ex 115 . . . . . . . . . 10 (๐‘… โˆˆ โ„ค โ†’ (๐‘˜ โˆˆ โ„ค โ†’ (((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) โˆˆ โ„ค โˆง 2 โˆฅ ((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))))))
9454, 55, 933syl 17 . . . . . . . . 9 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ (๐‘˜ โˆˆ โ„ค โ†’ (((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) โˆˆ โ„ค โˆง 2 โˆฅ ((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))))))
9594imp 124 . . . . . . . 8 (((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) โˆˆ โ„ค โˆง 2 โˆฅ ((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…)))))
9695adantr 276 . . . . . . 7 ((((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โˆง ๐‘ = ((8 ยท ๐‘˜) + ๐‘…)) โ†’ (((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) โˆˆ โ„ค โˆง 2 โˆฅ ((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…)))))
97 dvdsaddre2b 11850 . . . . . . 7 ((2 โˆˆ โ„ค โˆง (((๐‘…โ†‘2) โˆ’ 1) / 8) โˆˆ โ„ โˆง (((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) โˆˆ โ„ค โˆง 2 โˆฅ ((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))))) โ†’ (2 โˆฅ (((๐‘…โ†‘2) โˆ’ 1) / 8) โ†” 2 โˆฅ (((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) + (((๐‘…โ†‘2) โˆ’ 1) / 8))))
9834, 51, 96, 97mp3an2ani 1344 . . . . . 6 ((((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โˆง ๐‘ = ((8 ยท ๐‘˜) + ๐‘…)) โ†’ (2 โˆฅ (((๐‘…โ†‘2) โˆ’ 1) / 8) โ†” 2 โˆฅ (((8 ยท (๐‘˜โ†‘2)) + (2 ยท (๐‘˜ ยท ๐‘…))) + (((๐‘…โ†‘2) โˆ’ 1) / 8))))
9933, 98bitr4d 191 . . . . 5 ((((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โˆง ๐‘ = ((8 ยท ๐‘˜) + ๐‘…)) โ†’ (2 โˆฅ (((๐‘โ†‘2) โˆ’ 1) / 8) โ†” 2 โˆฅ (((๐‘…โ†‘2) โˆ’ 1) / 8)))
10099ex 115 . . . 4 (((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (๐‘ = ((8 ยท ๐‘˜) + ๐‘…) โ†’ (2 โˆฅ (((๐‘โ†‘2) โˆ’ 1) / 8) โ†” 2 โˆฅ (((๐‘…โ†‘2) โˆ’ 1) / 8))))
10117, 100sylbid 150 . . 3 (((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โˆง ๐‘˜ โˆˆ โ„ค) โ†’ (๐‘ = ((๐‘˜ ยท 8) + ๐‘…) โ†’ (2 โˆฅ (((๐‘โ†‘2) โˆ’ 1) / 8) โ†” 2 โˆฅ (((๐‘…โ†‘2) โˆ’ 1) / 8))))
102101rexlimdva 2594 . 2 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ (โˆƒ๐‘˜ โˆˆ โ„ค ๐‘ = ((๐‘˜ ยท 8) + ๐‘…) โ†’ (2 โˆฅ (((๐‘โ†‘2) โˆ’ 1) / 8) โ†” 2 โˆฅ (((๐‘…โ†‘2) โˆ’ 1) / 8))))
10310, 102mpd 13 1 ((๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘… = (๐‘ mod 8)) โ†’ (2 โˆฅ (((๐‘โ†‘2) โˆ’ 1) / 8) โ†” 2 โˆฅ (((๐‘…โ†‘2) โˆ’ 1) / 8)))
Colors of variables: wff set class
Syntax hints:  ยฌ wn 3   โ†’ wi 4   โˆง wa 104   โ†” wb 105   โˆง w3a 978   = wceq 1353   โˆˆ wcel 2148  โˆƒwrex 2456   class class class wbr 4005  (class class class)co 5877  โ„‚cc 7811  โ„cr 7812  0cc0 7813  1c1 7814   + caddc 7816   ยท cmul 7818   < clt 7994   โˆ’ cmin 8130   # cap 8540   / cdiv 8631  โ„•cn 8921  2c2 8972  4c4 8974  8c8 8978  โ„•0cn0 9178  โ„คcz 9255  โ„šcq 9621   mod cmo 10324  โ†‘cexp 10521   โˆฅ cdvds 11796
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 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-coll 4120  ax-sep 4123  ax-nul 4131  ax-pow 4176  ax-pr 4211  ax-un 4435  ax-setind 4538  ax-iinf 4589  ax-cnex 7904  ax-resscn 7905  ax-1cn 7906  ax-1re 7907  ax-icn 7908  ax-addcl 7909  ax-addrcl 7910  ax-mulcl 7911  ax-mulrcl 7912  ax-addcom 7913  ax-mulcom 7914  ax-addass 7915  ax-mulass 7916  ax-distr 7917  ax-i2m1 7918  ax-0lt1 7919  ax-1rid 7920  ax-0id 7921  ax-rnegex 7922  ax-precex 7923  ax-cnre 7924  ax-pre-ltirr 7925  ax-pre-ltwlin 7926  ax-pre-lttrn 7927  ax-pre-apti 7928  ax-pre-ltadd 7929  ax-pre-mulgt0 7930  ax-pre-mulext 7931  ax-arch 7932
This theorem depends on definitions:  df-bi 117  df-dc 835  df-3or 979  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ne 2348  df-nel 2443  df-ral 2460  df-rex 2461  df-reu 2462  df-rmo 2463  df-rab 2464  df-v 2741  df-sbc 2965  df-csb 3060  df-dif 3133  df-un 3135  df-in 3137  df-ss 3144  df-nul 3425  df-if 3537  df-pw 3579  df-sn 3600  df-pr 3601  df-op 3603  df-uni 3812  df-int 3847  df-iun 3890  df-br 4006  df-opab 4067  df-mpt 4068  df-tr 4104  df-id 4295  df-po 4298  df-iso 4299  df-iord 4368  df-on 4370  df-ilim 4371  df-suc 4373  df-iom 4592  df-xp 4634  df-rel 4635  df-cnv 4636  df-co 4637  df-dm 4638  df-rn 4639  df-res 4640  df-ima 4641  df-iota 5180  df-fun 5220  df-fn 5221  df-f 5222  df-f1 5223  df-fo 5224  df-f1o 5225  df-fv 5226  df-riota 5833  df-ov 5880  df-oprab 5881  df-mpo 5882  df-1st 6143  df-2nd 6144  df-recs 6308  df-frec 6394  df-pnf 7996  df-mnf 7997  df-xr 7998  df-ltxr 7999  df-le 8000  df-sub 8132  df-neg 8133  df-reap 8534  df-ap 8541  df-div 8632  df-inn 8922  df-2 8980  df-3 8981  df-4 8982  df-5 8983  df-6 8984  df-7 8985  df-8 8986  df-n0 9179  df-z 9256  df-uz 9531  df-q 9622  df-rp 9656  df-ico 9896  df-fl 10272  df-mod 10325  df-seqfrec 10448  df-exp 10522  df-dvds 11797
This theorem is referenced by:  2lgsoddprmlem4  14499
  Copyright terms: Public domain W3C validator