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

Theorem 4sqlem17 16890
Description: Lemma for 4sq 16893. (Contributed by Mario Carneiro, 16-Jul-2014.) (Revised by AV, 14-Sep-2020.)
Hypotheses
Ref Expression
4sq.1 ๐‘† = {๐‘› โˆฃ โˆƒ๐‘ฅ โˆˆ โ„ค โˆƒ๐‘ฆ โˆˆ โ„ค โˆƒ๐‘ง โˆˆ โ„ค โˆƒ๐‘ค โˆˆ โ„ค ๐‘› = (((๐‘ฅโ†‘2) + (๐‘ฆโ†‘2)) + ((๐‘งโ†‘2) + (๐‘คโ†‘2)))}
4sq.2 (๐œ‘ โ†’ ๐‘ โˆˆ โ„•)
4sq.3 (๐œ‘ โ†’ ๐‘ƒ = ((2 ยท ๐‘) + 1))
4sq.4 (๐œ‘ โ†’ ๐‘ƒ โˆˆ โ„™)
4sq.5 (๐œ‘ โ†’ (0...(2 ยท ๐‘)) โŠ† ๐‘†)
4sq.6 ๐‘‡ = {๐‘– โˆˆ โ„• โˆฃ (๐‘– ยท ๐‘ƒ) โˆˆ ๐‘†}
4sq.7 ๐‘€ = inf(๐‘‡, โ„, < )
4sq.m (๐œ‘ โ†’ ๐‘€ โˆˆ (โ„คโ‰ฅโ€˜2))
4sq.a (๐œ‘ โ†’ ๐ด โˆˆ โ„ค)
4sq.b (๐œ‘ โ†’ ๐ต โˆˆ โ„ค)
4sq.c (๐œ‘ โ†’ ๐ถ โˆˆ โ„ค)
4sq.d (๐œ‘ โ†’ ๐ท โˆˆ โ„ค)
4sq.e ๐ธ = (((๐ด + (๐‘€ / 2)) mod ๐‘€) โˆ’ (๐‘€ / 2))
4sq.f ๐น = (((๐ต + (๐‘€ / 2)) mod ๐‘€) โˆ’ (๐‘€ / 2))
4sq.g ๐บ = (((๐ถ + (๐‘€ / 2)) mod ๐‘€) โˆ’ (๐‘€ / 2))
4sq.h ๐ป = (((๐ท + (๐‘€ / 2)) mod ๐‘€) โˆ’ (๐‘€ / 2))
4sq.r ๐‘… = ((((๐ธโ†‘2) + (๐นโ†‘2)) + ((๐บโ†‘2) + (๐ปโ†‘2))) / ๐‘€)
4sq.p (๐œ‘ โ†’ (๐‘€ ยท ๐‘ƒ) = (((๐ดโ†‘2) + (๐ตโ†‘2)) + ((๐ถโ†‘2) + (๐ทโ†‘2))))
Assertion
Ref Expression
4sqlem17 ยฌ ๐œ‘
Distinct variable groups:   ๐‘ค,๐‘›,๐‘ฅ,๐‘ฆ,๐‘ง   ๐ต,๐‘›   ๐‘›,๐ธ   ๐‘›,๐บ   ๐‘›,๐ป   ๐ด,๐‘›   ๐ถ,๐‘›   ๐ท,๐‘›   ๐‘›,๐น   ๐‘–,๐‘›,๐‘€   ๐‘›,๐‘   ๐‘ƒ,๐‘–,๐‘›   ๐œ‘,๐‘›   ๐‘†,๐‘–,๐‘›   ๐‘…,๐‘–
Allowed substitution hints:   ๐œ‘(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค,๐‘–)   ๐ด(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค,๐‘–)   ๐ต(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค,๐‘–)   ๐ถ(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค,๐‘–)   ๐ท(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค,๐‘–)   ๐‘ƒ(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค)   ๐‘…(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค,๐‘›)   ๐‘†(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค)   ๐‘‡(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค,๐‘–,๐‘›)   ๐ธ(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค,๐‘–)   ๐น(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค,๐‘–)   ๐บ(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค,๐‘–)   ๐ป(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค,๐‘–)   ๐‘€(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค)   ๐‘(๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค,๐‘–)

Proof of Theorem 4sqlem17
StepHypRef Expression
1 4sq.1 . . . . . . 7 ๐‘† = {๐‘› โˆฃ โˆƒ๐‘ฅ โˆˆ โ„ค โˆƒ๐‘ฆ โˆˆ โ„ค โˆƒ๐‘ง โˆˆ โ„ค โˆƒ๐‘ค โˆˆ โ„ค ๐‘› = (((๐‘ฅโ†‘2) + (๐‘ฆโ†‘2)) + ((๐‘งโ†‘2) + (๐‘คโ†‘2)))}
2 4sq.2 . . . . . . 7 (๐œ‘ โ†’ ๐‘ โˆˆ โ„•)
3 4sq.3 . . . . . . 7 (๐œ‘ โ†’ ๐‘ƒ = ((2 ยท ๐‘) + 1))
4 4sq.4 . . . . . . 7 (๐œ‘ โ†’ ๐‘ƒ โˆˆ โ„™)
5 4sq.5 . . . . . . 7 (๐œ‘ โ†’ (0...(2 ยท ๐‘)) โŠ† ๐‘†)
6 4sq.6 . . . . . . 7 ๐‘‡ = {๐‘– โˆˆ โ„• โˆฃ (๐‘– ยท ๐‘ƒ) โˆˆ ๐‘†}
7 4sq.7 . . . . . . 7 ๐‘€ = inf(๐‘‡, โ„, < )
8 4sq.m . . . . . . 7 (๐œ‘ โ†’ ๐‘€ โˆˆ (โ„คโ‰ฅโ€˜2))
9 4sq.a . . . . . . 7 (๐œ‘ โ†’ ๐ด โˆˆ โ„ค)
10 4sq.b . . . . . . 7 (๐œ‘ โ†’ ๐ต โˆˆ โ„ค)
11 4sq.c . . . . . . 7 (๐œ‘ โ†’ ๐ถ โˆˆ โ„ค)
12 4sq.d . . . . . . 7 (๐œ‘ โ†’ ๐ท โˆˆ โ„ค)
13 4sq.e . . . . . . 7 ๐ธ = (((๐ด + (๐‘€ / 2)) mod ๐‘€) โˆ’ (๐‘€ / 2))
14 4sq.f . . . . . . 7 ๐น = (((๐ต + (๐‘€ / 2)) mod ๐‘€) โˆ’ (๐‘€ / 2))
15 4sq.g . . . . . . 7 ๐บ = (((๐ถ + (๐‘€ / 2)) mod ๐‘€) โˆ’ (๐‘€ / 2))
16 4sq.h . . . . . . 7 ๐ป = (((๐ท + (๐‘€ / 2)) mod ๐‘€) โˆ’ (๐‘€ / 2))
17 4sq.r . . . . . . 7 ๐‘… = ((((๐ธโ†‘2) + (๐นโ†‘2)) + ((๐บโ†‘2) + (๐ปโ†‘2))) / ๐‘€)
18 4sq.p . . . . . . 7 (๐œ‘ โ†’ (๐‘€ ยท ๐‘ƒ) = (((๐ดโ†‘2) + (๐ตโ†‘2)) + ((๐ถโ†‘2) + (๐ทโ†‘2))))
191, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 184sqlem16 16889 . . . . . 6 (๐œ‘ โ†’ (๐‘… โ‰ค ๐‘€ โˆง ((๐‘… = 0 โˆจ ๐‘… = ๐‘€) โ†’ (๐‘€โ†‘2) โˆฅ (๐‘€ ยท ๐‘ƒ))))
2019simpld 495 . . . . 5 (๐œ‘ โ†’ ๐‘… โ‰ค ๐‘€)
216ssrab3 4079 . . . . . . . 8 ๐‘‡ โŠ† โ„•
22 nnuz 12861 . . . . . . . 8 โ„• = (โ„คโ‰ฅโ€˜1)
2321, 22sseqtri 4017 . . . . . . 7 ๐‘‡ โŠ† (โ„คโ‰ฅโ€˜1)
241, 2, 3, 4, 5, 6, 74sqlem13 16886 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ (๐‘‡ โ‰  โˆ… โˆง ๐‘€ < ๐‘ƒ))
2524simpld 495 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ๐‘‡ โ‰  โˆ…)
26 infssuzcl 12912 . . . . . . . . . . . . . . 15 ((๐‘‡ โŠ† (โ„คโ‰ฅโ€˜1) โˆง ๐‘‡ โ‰  โˆ…) โ†’ inf(๐‘‡, โ„, < ) โˆˆ ๐‘‡)
2723, 25, 26sylancr 587 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ inf(๐‘‡, โ„, < ) โˆˆ ๐‘‡)
287, 27eqeltrid 2837 . . . . . . . . . . . . 13 (๐œ‘ โ†’ ๐‘€ โˆˆ ๐‘‡)
2921, 28sselid 3979 . . . . . . . . . . . 12 (๐œ‘ โ†’ ๐‘€ โˆˆ โ„•)
3029nnred 12223 . . . . . . . . . . 11 (๐œ‘ โ†’ ๐‘€ โˆˆ โ„)
3124simprd 496 . . . . . . . . . . 11 (๐œ‘ โ†’ ๐‘€ < ๐‘ƒ)
3230, 31ltned 11346 . . . . . . . . . 10 (๐œ‘ โ†’ ๐‘€ โ‰  ๐‘ƒ)
3329nncnd 12224 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ ๐‘€ โˆˆ โ„‚)
3433sqvald 14104 . . . . . . . . . . . . 13 (๐œ‘ โ†’ (๐‘€โ†‘2) = (๐‘€ ยท ๐‘€))
3534breq1d 5157 . . . . . . . . . . . 12 (๐œ‘ โ†’ ((๐‘€โ†‘2) โˆฅ (๐‘€ ยท ๐‘ƒ) โ†” (๐‘€ ยท ๐‘€) โˆฅ (๐‘€ ยท ๐‘ƒ)))
3629nnzd 12581 . . . . . . . . . . . . 13 (๐œ‘ โ†’ ๐‘€ โˆˆ โ„ค)
37 prmz 16608 . . . . . . . . . . . . . 14 (๐‘ƒ โˆˆ โ„™ โ†’ ๐‘ƒ โˆˆ โ„ค)
384, 37syl 17 . . . . . . . . . . . . 13 (๐œ‘ โ†’ ๐‘ƒ โˆˆ โ„ค)
3929nnne0d 12258 . . . . . . . . . . . . 13 (๐œ‘ โ†’ ๐‘€ โ‰  0)
40 dvdscmulr 16224 . . . . . . . . . . . . 13 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ƒ โˆˆ โ„ค โˆง (๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0)) โ†’ ((๐‘€ ยท ๐‘€) โˆฅ (๐‘€ ยท ๐‘ƒ) โ†” ๐‘€ โˆฅ ๐‘ƒ))
4136, 38, 36, 39, 40syl112anc 1374 . . . . . . . . . . . 12 (๐œ‘ โ†’ ((๐‘€ ยท ๐‘€) โˆฅ (๐‘€ ยท ๐‘ƒ) โ†” ๐‘€ โˆฅ ๐‘ƒ))
42 dvdsprm 16636 . . . . . . . . . . . . 13 ((๐‘€ โˆˆ (โ„คโ‰ฅโ€˜2) โˆง ๐‘ƒ โˆˆ โ„™) โ†’ (๐‘€ โˆฅ ๐‘ƒ โ†” ๐‘€ = ๐‘ƒ))
438, 4, 42syl2anc 584 . . . . . . . . . . . 12 (๐œ‘ โ†’ (๐‘€ โˆฅ ๐‘ƒ โ†” ๐‘€ = ๐‘ƒ))
4435, 41, 433bitrd 304 . . . . . . . . . . 11 (๐œ‘ โ†’ ((๐‘€โ†‘2) โˆฅ (๐‘€ ยท ๐‘ƒ) โ†” ๐‘€ = ๐‘ƒ))
4544necon3bbid 2978 . . . . . . . . . 10 (๐œ‘ โ†’ (ยฌ (๐‘€โ†‘2) โˆฅ (๐‘€ ยท ๐‘ƒ) โ†” ๐‘€ โ‰  ๐‘ƒ))
4632, 45mpbird 256 . . . . . . . . 9 (๐œ‘ โ†’ ยฌ (๐‘€โ†‘2) โˆฅ (๐‘€ ยท ๐‘ƒ))
471, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 184sqlem14 16887 . . . . . . . . . . . 12 (๐œ‘ โ†’ ๐‘… โˆˆ โ„•0)
48 elnn0 12470 . . . . . . . . . . . 12 (๐‘… โˆˆ โ„•0 โ†” (๐‘… โˆˆ โ„• โˆจ ๐‘… = 0))
4947, 48sylib 217 . . . . . . . . . . 11 (๐œ‘ โ†’ (๐‘… โˆˆ โ„• โˆจ ๐‘… = 0))
5049ord 862 . . . . . . . . . 10 (๐œ‘ โ†’ (ยฌ ๐‘… โˆˆ โ„• โ†’ ๐‘… = 0))
51 orc 865 . . . . . . . . . . 11 (๐‘… = 0 โ†’ (๐‘… = 0 โˆจ ๐‘… = ๐‘€))
5219simprd 496 . . . . . . . . . . 11 (๐œ‘ โ†’ ((๐‘… = 0 โˆจ ๐‘… = ๐‘€) โ†’ (๐‘€โ†‘2) โˆฅ (๐‘€ ยท ๐‘ƒ)))
5351, 52syl5 34 . . . . . . . . . 10 (๐œ‘ โ†’ (๐‘… = 0 โ†’ (๐‘€โ†‘2) โˆฅ (๐‘€ ยท ๐‘ƒ)))
5450, 53syld 47 . . . . . . . . 9 (๐œ‘ โ†’ (ยฌ ๐‘… โˆˆ โ„• โ†’ (๐‘€โ†‘2) โˆฅ (๐‘€ ยท ๐‘ƒ)))
5546, 54mt3d 148 . . . . . . . 8 (๐œ‘ โ†’ ๐‘… โˆˆ โ„•)
56 gzreim 16868 . . . . . . . . . . . . . . . . . . 19 ((๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ค) โ†’ (๐ด + (i ยท ๐ต)) โˆˆ โ„ค[i])
579, 10, 56syl2anc 584 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ (๐ด + (i ยท ๐ต)) โˆˆ โ„ค[i])
58 gzcn 16861 . . . . . . . . . . . . . . . . . 18 ((๐ด + (i ยท ๐ต)) โˆˆ โ„ค[i] โ†’ (๐ด + (i ยท ๐ต)) โˆˆ โ„‚)
5957, 58syl 17 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ (๐ด + (i ยท ๐ต)) โˆˆ โ„‚)
6059absvalsq2d 15386 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ ((absโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) = (((โ„œโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) + ((โ„‘โ€˜(๐ด + (i ยท ๐ต)))โ†‘2)))
619zred 12662 . . . . . . . . . . . . . . . . . . 19 (๐œ‘ โ†’ ๐ด โˆˆ โ„)
6210zred 12662 . . . . . . . . . . . . . . . . . . 19 (๐œ‘ โ†’ ๐ต โˆˆ โ„)
6361, 62crred 15174 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ (โ„œโ€˜(๐ด + (i ยท ๐ต))) = ๐ด)
6463oveq1d 7420 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ ((โ„œโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) = (๐ดโ†‘2))
6561, 62crimd 15175 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ (โ„‘โ€˜(๐ด + (i ยท ๐ต))) = ๐ต)
6665oveq1d 7420 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ ((โ„‘โ€˜(๐ด + (i ยท ๐ต)))โ†‘2) = (๐ตโ†‘2))
6764, 66oveq12d 7423 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ (((โ„œโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) + ((โ„‘โ€˜(๐ด + (i ยท ๐ต)))โ†‘2)) = ((๐ดโ†‘2) + (๐ตโ†‘2)))
6860, 67eqtrd 2772 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ((absโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) = ((๐ดโ†‘2) + (๐ตโ†‘2)))
69 gzreim 16868 . . . . . . . . . . . . . . . . . . 19 ((๐ถ โˆˆ โ„ค โˆง ๐ท โˆˆ โ„ค) โ†’ (๐ถ + (i ยท ๐ท)) โˆˆ โ„ค[i])
7011, 12, 69syl2anc 584 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ (๐ถ + (i ยท ๐ท)) โˆˆ โ„ค[i])
71 gzcn 16861 . . . . . . . . . . . . . . . . . 18 ((๐ถ + (i ยท ๐ท)) โˆˆ โ„ค[i] โ†’ (๐ถ + (i ยท ๐ท)) โˆˆ โ„‚)
7270, 71syl 17 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ (๐ถ + (i ยท ๐ท)) โˆˆ โ„‚)
7372absvalsq2d 15386 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ ((absโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2) = (((โ„œโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2) + ((โ„‘โ€˜(๐ถ + (i ยท ๐ท)))โ†‘2)))
7411zred 12662 . . . . . . . . . . . . . . . . . . 19 (๐œ‘ โ†’ ๐ถ โˆˆ โ„)
7512zred 12662 . . . . . . . . . . . . . . . . . . 19 (๐œ‘ โ†’ ๐ท โˆˆ โ„)
7674, 75crred 15174 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ (โ„œโ€˜(๐ถ + (i ยท ๐ท))) = ๐ถ)
7776oveq1d 7420 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ ((โ„œโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2) = (๐ถโ†‘2))
7874, 75crimd 15175 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ (โ„‘โ€˜(๐ถ + (i ยท ๐ท))) = ๐ท)
7978oveq1d 7420 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ ((โ„‘โ€˜(๐ถ + (i ยท ๐ท)))โ†‘2) = (๐ทโ†‘2))
8077, 79oveq12d 7423 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ (((โ„œโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2) + ((โ„‘โ€˜(๐ถ + (i ยท ๐ท)))โ†‘2)) = ((๐ถโ†‘2) + (๐ทโ†‘2)))
8173, 80eqtrd 2772 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ((absโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2) = ((๐ถโ†‘2) + (๐ทโ†‘2)))
8268, 81oveq12d 7423 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ (((absโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) + ((absโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2)) = (((๐ดโ†‘2) + (๐ตโ†‘2)) + ((๐ถโ†‘2) + (๐ทโ†‘2))))
8318, 82eqtr4d 2775 . . . . . . . . . . . . 13 (๐œ‘ โ†’ (๐‘€ ยท ๐‘ƒ) = (((absโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) + ((absโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2)))
8483oveq1d 7420 . . . . . . . . . . . 12 (๐œ‘ โ†’ ((๐‘€ ยท ๐‘ƒ) / ๐‘€) = ((((absโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) + ((absโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2)) / ๐‘€))
85 prmnn 16607 . . . . . . . . . . . . . . 15 (๐‘ƒ โˆˆ โ„™ โ†’ ๐‘ƒ โˆˆ โ„•)
864, 85syl 17 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ ๐‘ƒ โˆˆ โ„•)
8786nncnd 12224 . . . . . . . . . . . . 13 (๐œ‘ โ†’ ๐‘ƒ โˆˆ โ„‚)
8887, 33, 39divcan3d 11991 . . . . . . . . . . . 12 (๐œ‘ โ†’ ((๐‘€ ยท ๐‘ƒ) / ๐‘€) = ๐‘ƒ)
8984, 88eqtr3d 2774 . . . . . . . . . . 11 (๐œ‘ โ†’ ((((absโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) + ((absโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2)) / ๐‘€) = ๐‘ƒ)
909, 29, 134sqlem5 16871 . . . . . . . . . . . . . . . . . . 19 (๐œ‘ โ†’ (๐ธ โˆˆ โ„ค โˆง ((๐ด โˆ’ ๐ธ) / ๐‘€) โˆˆ โ„ค))
9190simpld 495 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ ๐ธ โˆˆ โ„ค)
9210, 29, 144sqlem5 16871 . . . . . . . . . . . . . . . . . . 19 (๐œ‘ โ†’ (๐น โˆˆ โ„ค โˆง ((๐ต โˆ’ ๐น) / ๐‘€) โˆˆ โ„ค))
9392simpld 495 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ ๐น โˆˆ โ„ค)
94 gzreim 16868 . . . . . . . . . . . . . . . . . 18 ((๐ธ โˆˆ โ„ค โˆง ๐น โˆˆ โ„ค) โ†’ (๐ธ + (i ยท ๐น)) โˆˆ โ„ค[i])
9591, 93, 94syl2anc 584 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ (๐ธ + (i ยท ๐น)) โˆˆ โ„ค[i])
96 gzcn 16861 . . . . . . . . . . . . . . . . 17 ((๐ธ + (i ยท ๐น)) โˆˆ โ„ค[i] โ†’ (๐ธ + (i ยท ๐น)) โˆˆ โ„‚)
9795, 96syl 17 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ (๐ธ + (i ยท ๐น)) โˆˆ โ„‚)
9897absvalsq2d 15386 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ((absโ€˜(๐ธ + (i ยท ๐น)))โ†‘2) = (((โ„œโ€˜(๐ธ + (i ยท ๐น)))โ†‘2) + ((โ„‘โ€˜(๐ธ + (i ยท ๐น)))โ†‘2)))
9991zred 12662 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ ๐ธ โˆˆ โ„)
10093zred 12662 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ ๐น โˆˆ โ„)
10199, 100crred 15174 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ (โ„œโ€˜(๐ธ + (i ยท ๐น))) = ๐ธ)
102101oveq1d 7420 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ ((โ„œโ€˜(๐ธ + (i ยท ๐น)))โ†‘2) = (๐ธโ†‘2))
10399, 100crimd 15175 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ (โ„‘โ€˜(๐ธ + (i ยท ๐น))) = ๐น)
104103oveq1d 7420 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ ((โ„‘โ€˜(๐ธ + (i ยท ๐น)))โ†‘2) = (๐นโ†‘2))
105102, 104oveq12d 7423 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ (((โ„œโ€˜(๐ธ + (i ยท ๐น)))โ†‘2) + ((โ„‘โ€˜(๐ธ + (i ยท ๐น)))โ†‘2)) = ((๐ธโ†‘2) + (๐นโ†‘2)))
10698, 105eqtrd 2772 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ ((absโ€˜(๐ธ + (i ยท ๐น)))โ†‘2) = ((๐ธโ†‘2) + (๐นโ†‘2)))
10711, 29, 154sqlem5 16871 . . . . . . . . . . . . . . . . . . 19 (๐œ‘ โ†’ (๐บ โˆˆ โ„ค โˆง ((๐ถ โˆ’ ๐บ) / ๐‘€) โˆˆ โ„ค))
108107simpld 495 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ ๐บ โˆˆ โ„ค)
10912, 29, 164sqlem5 16871 . . . . . . . . . . . . . . . . . . 19 (๐œ‘ โ†’ (๐ป โˆˆ โ„ค โˆง ((๐ท โˆ’ ๐ป) / ๐‘€) โˆˆ โ„ค))
110109simpld 495 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ ๐ป โˆˆ โ„ค)
111 gzreim 16868 . . . . . . . . . . . . . . . . . 18 ((๐บ โˆˆ โ„ค โˆง ๐ป โˆˆ โ„ค) โ†’ (๐บ + (i ยท ๐ป)) โˆˆ โ„ค[i])
112108, 110, 111syl2anc 584 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ (๐บ + (i ยท ๐ป)) โˆˆ โ„ค[i])
113 gzcn 16861 . . . . . . . . . . . . . . . . 17 ((๐บ + (i ยท ๐ป)) โˆˆ โ„ค[i] โ†’ (๐บ + (i ยท ๐ป)) โˆˆ โ„‚)
114112, 113syl 17 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ (๐บ + (i ยท ๐ป)) โˆˆ โ„‚)
115114absvalsq2d 15386 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ((absโ€˜(๐บ + (i ยท ๐ป)))โ†‘2) = (((โ„œโ€˜(๐บ + (i ยท ๐ป)))โ†‘2) + ((โ„‘โ€˜(๐บ + (i ยท ๐ป)))โ†‘2)))
116108zred 12662 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ ๐บ โˆˆ โ„)
117110zred 12662 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ ๐ป โˆˆ โ„)
118116, 117crred 15174 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ (โ„œโ€˜(๐บ + (i ยท ๐ป))) = ๐บ)
119118oveq1d 7420 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ ((โ„œโ€˜(๐บ + (i ยท ๐ป)))โ†‘2) = (๐บโ†‘2))
120116, 117crimd 15175 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ (โ„‘โ€˜(๐บ + (i ยท ๐ป))) = ๐ป)
121120oveq1d 7420 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ ((โ„‘โ€˜(๐บ + (i ยท ๐ป)))โ†‘2) = (๐ปโ†‘2))
122119, 121oveq12d 7423 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ (((โ„œโ€˜(๐บ + (i ยท ๐ป)))โ†‘2) + ((โ„‘โ€˜(๐บ + (i ยท ๐ป)))โ†‘2)) = ((๐บโ†‘2) + (๐ปโ†‘2)))
123115, 122eqtrd 2772 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ ((absโ€˜(๐บ + (i ยท ๐ป)))โ†‘2) = ((๐บโ†‘2) + (๐ปโ†‘2)))
124106, 123oveq12d 7423 . . . . . . . . . . . . 13 (๐œ‘ โ†’ (((absโ€˜(๐ธ + (i ยท ๐น)))โ†‘2) + ((absโ€˜(๐บ + (i ยท ๐ป)))โ†‘2)) = (((๐ธโ†‘2) + (๐นโ†‘2)) + ((๐บโ†‘2) + (๐ปโ†‘2))))
125124oveq1d 7420 . . . . . . . . . . . 12 (๐œ‘ โ†’ ((((absโ€˜(๐ธ + (i ยท ๐น)))โ†‘2) + ((absโ€˜(๐บ + (i ยท ๐ป)))โ†‘2)) / ๐‘€) = ((((๐ธโ†‘2) + (๐นโ†‘2)) + ((๐บโ†‘2) + (๐ปโ†‘2))) / ๐‘€))
126125, 17eqtr4di 2790 . . . . . . . . . . 11 (๐œ‘ โ†’ ((((absโ€˜(๐ธ + (i ยท ๐น)))โ†‘2) + ((absโ€˜(๐บ + (i ยท ๐ป)))โ†‘2)) / ๐‘€) = ๐‘…)
12789, 126oveq12d 7423 . . . . . . . . . 10 (๐œ‘ โ†’ (((((absโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) + ((absโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2)) / ๐‘€) ยท ((((absโ€˜(๐ธ + (i ยท ๐น)))โ†‘2) + ((absโ€˜(๐บ + (i ยท ๐ป)))โ†‘2)) / ๐‘€)) = (๐‘ƒ ยท ๐‘…))
12855nncnd 12224 . . . . . . . . . . 11 (๐œ‘ โ†’ ๐‘… โˆˆ โ„‚)
12987, 128mulcomd 11231 . . . . . . . . . 10 (๐œ‘ โ†’ (๐‘ƒ ยท ๐‘…) = (๐‘… ยท ๐‘ƒ))
130127, 129eqtrd 2772 . . . . . . . . 9 (๐œ‘ โ†’ (((((absโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) + ((absโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2)) / ๐‘€) ยท ((((absโ€˜(๐ธ + (i ยท ๐น)))โ†‘2) + ((absโ€˜(๐บ + (i ยท ๐ป)))โ†‘2)) / ๐‘€)) = (๐‘… ยท ๐‘ƒ))
131 eqid 2732 . . . . . . . . . 10 (((absโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) + ((absโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2)) = (((absโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) + ((absโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2))
132 eqid 2732 . . . . . . . . . 10 (((absโ€˜(๐ธ + (i ยท ๐น)))โ†‘2) + ((absโ€˜(๐บ + (i ยท ๐ป)))โ†‘2)) = (((absโ€˜(๐ธ + (i ยท ๐น)))โ†‘2) + ((absโ€˜(๐บ + (i ยท ๐ป)))โ†‘2))
1339zcnd 12663 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ๐ด โˆˆ โ„‚)
134 ax-icn 11165 . . . . . . . . . . . . . . . 16 i โˆˆ โ„‚
13510zcnd 12663 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ ๐ต โˆˆ โ„‚)
136 mulcl 11190 . . . . . . . . . . . . . . . 16 ((i โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚) โ†’ (i ยท ๐ต) โˆˆ โ„‚)
137134, 135, 136sylancr 587 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ (i ยท ๐ต) โˆˆ โ„‚)
13891zcnd 12663 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ๐ธ โˆˆ โ„‚)
13993zcnd 12663 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ ๐น โˆˆ โ„‚)
140 mulcl 11190 . . . . . . . . . . . . . . . 16 ((i โˆˆ โ„‚ โˆง ๐น โˆˆ โ„‚) โ†’ (i ยท ๐น) โˆˆ โ„‚)
141134, 139, 140sylancr 587 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ (i ยท ๐น) โˆˆ โ„‚)
142133, 137, 138, 141addsub4d 11614 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ ((๐ด + (i ยท ๐ต)) โˆ’ (๐ธ + (i ยท ๐น))) = ((๐ด โˆ’ ๐ธ) + ((i ยท ๐ต) โˆ’ (i ยท ๐น))))
143134a1i 11 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ i โˆˆ โ„‚)
144143, 135, 139subdid 11666 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ (i ยท (๐ต โˆ’ ๐น)) = ((i ยท ๐ต) โˆ’ (i ยท ๐น)))
145144oveq2d 7421 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ ((๐ด โˆ’ ๐ธ) + (i ยท (๐ต โˆ’ ๐น))) = ((๐ด โˆ’ ๐ธ) + ((i ยท ๐ต) โˆ’ (i ยท ๐น))))
146142, 145eqtr4d 2775 . . . . . . . . . . . . 13 (๐œ‘ โ†’ ((๐ด + (i ยท ๐ต)) โˆ’ (๐ธ + (i ยท ๐น))) = ((๐ด โˆ’ ๐ธ) + (i ยท (๐ต โˆ’ ๐น))))
147146oveq1d 7420 . . . . . . . . . . . 12 (๐œ‘ โ†’ (((๐ด + (i ยท ๐ต)) โˆ’ (๐ธ + (i ยท ๐น))) / ๐‘€) = (((๐ด โˆ’ ๐ธ) + (i ยท (๐ต โˆ’ ๐น))) / ๐‘€))
148133, 138subcld 11567 . . . . . . . . . . . . 13 (๐œ‘ โ†’ (๐ด โˆ’ ๐ธ) โˆˆ โ„‚)
149135, 139subcld 11567 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ (๐ต โˆ’ ๐น) โˆˆ โ„‚)
150 mulcl 11190 . . . . . . . . . . . . . 14 ((i โˆˆ โ„‚ โˆง (๐ต โˆ’ ๐น) โˆˆ โ„‚) โ†’ (i ยท (๐ต โˆ’ ๐น)) โˆˆ โ„‚)
151134, 149, 150sylancr 587 . . . . . . . . . . . . 13 (๐œ‘ โ†’ (i ยท (๐ต โˆ’ ๐น)) โˆˆ โ„‚)
152148, 151, 33, 39divdird 12024 . . . . . . . . . . . 12 (๐œ‘ โ†’ (((๐ด โˆ’ ๐ธ) + (i ยท (๐ต โˆ’ ๐น))) / ๐‘€) = (((๐ด โˆ’ ๐ธ) / ๐‘€) + ((i ยท (๐ต โˆ’ ๐น)) / ๐‘€)))
153143, 149, 33, 39divassd 12021 . . . . . . . . . . . . 13 (๐œ‘ โ†’ ((i ยท (๐ต โˆ’ ๐น)) / ๐‘€) = (i ยท ((๐ต โˆ’ ๐น) / ๐‘€)))
154153oveq2d 7421 . . . . . . . . . . . 12 (๐œ‘ โ†’ (((๐ด โˆ’ ๐ธ) / ๐‘€) + ((i ยท (๐ต โˆ’ ๐น)) / ๐‘€)) = (((๐ด โˆ’ ๐ธ) / ๐‘€) + (i ยท ((๐ต โˆ’ ๐น) / ๐‘€))))
155147, 152, 1543eqtrd 2776 . . . . . . . . . . 11 (๐œ‘ โ†’ (((๐ด + (i ยท ๐ต)) โˆ’ (๐ธ + (i ยท ๐น))) / ๐‘€) = (((๐ด โˆ’ ๐ธ) / ๐‘€) + (i ยท ((๐ต โˆ’ ๐น) / ๐‘€))))
15690simprd 496 . . . . . . . . . . . 12 (๐œ‘ โ†’ ((๐ด โˆ’ ๐ธ) / ๐‘€) โˆˆ โ„ค)
15792simprd 496 . . . . . . . . . . . 12 (๐œ‘ โ†’ ((๐ต โˆ’ ๐น) / ๐‘€) โˆˆ โ„ค)
158 gzreim 16868 . . . . . . . . . . . 12 ((((๐ด โˆ’ ๐ธ) / ๐‘€) โˆˆ โ„ค โˆง ((๐ต โˆ’ ๐น) / ๐‘€) โˆˆ โ„ค) โ†’ (((๐ด โˆ’ ๐ธ) / ๐‘€) + (i ยท ((๐ต โˆ’ ๐น) / ๐‘€))) โˆˆ โ„ค[i])
159156, 157, 158syl2anc 584 . . . . . . . . . . 11 (๐œ‘ โ†’ (((๐ด โˆ’ ๐ธ) / ๐‘€) + (i ยท ((๐ต โˆ’ ๐น) / ๐‘€))) โˆˆ โ„ค[i])
160155, 159eqeltrd 2833 . . . . . . . . . 10 (๐œ‘ โ†’ (((๐ด + (i ยท ๐ต)) โˆ’ (๐ธ + (i ยท ๐น))) / ๐‘€) โˆˆ โ„ค[i])
16111zcnd 12663 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ๐ถ โˆˆ โ„‚)
16212zcnd 12663 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ ๐ท โˆˆ โ„‚)
163 mulcl 11190 . . . . . . . . . . . . . . . 16 ((i โˆˆ โ„‚ โˆง ๐ท โˆˆ โ„‚) โ†’ (i ยท ๐ท) โˆˆ โ„‚)
164134, 162, 163sylancr 587 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ (i ยท ๐ท) โˆˆ โ„‚)
165108zcnd 12663 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ๐บ โˆˆ โ„‚)
166110zcnd 12663 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ ๐ป โˆˆ โ„‚)
167 mulcl 11190 . . . . . . . . . . . . . . . 16 ((i โˆˆ โ„‚ โˆง ๐ป โˆˆ โ„‚) โ†’ (i ยท ๐ป) โˆˆ โ„‚)
168134, 166, 167sylancr 587 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ (i ยท ๐ป) โˆˆ โ„‚)
169161, 164, 165, 168addsub4d 11614 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ ((๐ถ + (i ยท ๐ท)) โˆ’ (๐บ + (i ยท ๐ป))) = ((๐ถ โˆ’ ๐บ) + ((i ยท ๐ท) โˆ’ (i ยท ๐ป))))
170143, 162, 166subdid 11666 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ (i ยท (๐ท โˆ’ ๐ป)) = ((i ยท ๐ท) โˆ’ (i ยท ๐ป)))
171170oveq2d 7421 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ ((๐ถ โˆ’ ๐บ) + (i ยท (๐ท โˆ’ ๐ป))) = ((๐ถ โˆ’ ๐บ) + ((i ยท ๐ท) โˆ’ (i ยท ๐ป))))
172169, 171eqtr4d 2775 . . . . . . . . . . . . 13 (๐œ‘ โ†’ ((๐ถ + (i ยท ๐ท)) โˆ’ (๐บ + (i ยท ๐ป))) = ((๐ถ โˆ’ ๐บ) + (i ยท (๐ท โˆ’ ๐ป))))
173172oveq1d 7420 . . . . . . . . . . . 12 (๐œ‘ โ†’ (((๐ถ + (i ยท ๐ท)) โˆ’ (๐บ + (i ยท ๐ป))) / ๐‘€) = (((๐ถ โˆ’ ๐บ) + (i ยท (๐ท โˆ’ ๐ป))) / ๐‘€))
174161, 165subcld 11567 . . . . . . . . . . . . 13 (๐œ‘ โ†’ (๐ถ โˆ’ ๐บ) โˆˆ โ„‚)
175162, 166subcld 11567 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ (๐ท โˆ’ ๐ป) โˆˆ โ„‚)
176 mulcl 11190 . . . . . . . . . . . . . 14 ((i โˆˆ โ„‚ โˆง (๐ท โˆ’ ๐ป) โˆˆ โ„‚) โ†’ (i ยท (๐ท โˆ’ ๐ป)) โˆˆ โ„‚)
177134, 175, 176sylancr 587 . . . . . . . . . . . . 13 (๐œ‘ โ†’ (i ยท (๐ท โˆ’ ๐ป)) โˆˆ โ„‚)
178174, 177, 33, 39divdird 12024 . . . . . . . . . . . 12 (๐œ‘ โ†’ (((๐ถ โˆ’ ๐บ) + (i ยท (๐ท โˆ’ ๐ป))) / ๐‘€) = (((๐ถ โˆ’ ๐บ) / ๐‘€) + ((i ยท (๐ท โˆ’ ๐ป)) / ๐‘€)))
179143, 175, 33, 39divassd 12021 . . . . . . . . . . . . 13 (๐œ‘ โ†’ ((i ยท (๐ท โˆ’ ๐ป)) / ๐‘€) = (i ยท ((๐ท โˆ’ ๐ป) / ๐‘€)))
180179oveq2d 7421 . . . . . . . . . . . 12 (๐œ‘ โ†’ (((๐ถ โˆ’ ๐บ) / ๐‘€) + ((i ยท (๐ท โˆ’ ๐ป)) / ๐‘€)) = (((๐ถ โˆ’ ๐บ) / ๐‘€) + (i ยท ((๐ท โˆ’ ๐ป) / ๐‘€))))
181173, 178, 1803eqtrd 2776 . . . . . . . . . . 11 (๐œ‘ โ†’ (((๐ถ + (i ยท ๐ท)) โˆ’ (๐บ + (i ยท ๐ป))) / ๐‘€) = (((๐ถ โˆ’ ๐บ) / ๐‘€) + (i ยท ((๐ท โˆ’ ๐ป) / ๐‘€))))
182107simprd 496 . . . . . . . . . . . 12 (๐œ‘ โ†’ ((๐ถ โˆ’ ๐บ) / ๐‘€) โˆˆ โ„ค)
183109simprd 496 . . . . . . . . . . . 12 (๐œ‘ โ†’ ((๐ท โˆ’ ๐ป) / ๐‘€) โˆˆ โ„ค)
184 gzreim 16868 . . . . . . . . . . . 12 ((((๐ถ โˆ’ ๐บ) / ๐‘€) โˆˆ โ„ค โˆง ((๐ท โˆ’ ๐ป) / ๐‘€) โˆˆ โ„ค) โ†’ (((๐ถ โˆ’ ๐บ) / ๐‘€) + (i ยท ((๐ท โˆ’ ๐ป) / ๐‘€))) โˆˆ โ„ค[i])
185182, 183, 184syl2anc 584 . . . . . . . . . . 11 (๐œ‘ โ†’ (((๐ถ โˆ’ ๐บ) / ๐‘€) + (i ยท ((๐ท โˆ’ ๐ป) / ๐‘€))) โˆˆ โ„ค[i])
186181, 185eqeltrd 2833 . . . . . . . . . 10 (๐œ‘ โ†’ (((๐ถ + (i ยท ๐ท)) โˆ’ (๐บ + (i ยท ๐ป))) / ๐‘€) โˆˆ โ„ค[i])
18786nnnn0d 12528 . . . . . . . . . . 11 (๐œ‘ โ†’ ๐‘ƒ โˆˆ โ„•0)
18889, 187eqeltrd 2833 . . . . . . . . . 10 (๐œ‘ โ†’ ((((absโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) + ((absโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2)) / ๐‘€) โˆˆ โ„•0)
1891, 57, 70, 95, 112, 131, 132, 29, 160, 186, 188mul4sqlem 16882 . . . . . . . . 9 (๐œ‘ โ†’ (((((absโ€˜(๐ด + (i ยท ๐ต)))โ†‘2) + ((absโ€˜(๐ถ + (i ยท ๐ท)))โ†‘2)) / ๐‘€) ยท ((((absโ€˜(๐ธ + (i ยท ๐น)))โ†‘2) + ((absโ€˜(๐บ + (i ยท ๐ป)))โ†‘2)) / ๐‘€)) โˆˆ ๐‘†)
190130, 189eqeltrrd 2834 . . . . . . . 8 (๐œ‘ โ†’ (๐‘… ยท ๐‘ƒ) โˆˆ ๐‘†)
191 oveq1 7412 . . . . . . . . . 10 (๐‘– = ๐‘… โ†’ (๐‘– ยท ๐‘ƒ) = (๐‘… ยท ๐‘ƒ))
192191eleq1d 2818 . . . . . . . . 9 (๐‘– = ๐‘… โ†’ ((๐‘– ยท ๐‘ƒ) โˆˆ ๐‘† โ†” (๐‘… ยท ๐‘ƒ) โˆˆ ๐‘†))
193192, 6elrab2 3685 . . . . . . . 8 (๐‘… โˆˆ ๐‘‡ โ†” (๐‘… โˆˆ โ„• โˆง (๐‘… ยท ๐‘ƒ) โˆˆ ๐‘†))
19455, 190, 193sylanbrc 583 . . . . . . 7 (๐œ‘ โ†’ ๐‘… โˆˆ ๐‘‡)
195 infssuzle 12911 . . . . . . 7 ((๐‘‡ โŠ† (โ„คโ‰ฅโ€˜1) โˆง ๐‘… โˆˆ ๐‘‡) โ†’ inf(๐‘‡, โ„, < ) โ‰ค ๐‘…)
19623, 194, 195sylancr 587 . . . . . 6 (๐œ‘ โ†’ inf(๐‘‡, โ„, < ) โ‰ค ๐‘…)
1977, 196eqbrtrid 5182 . . . . 5 (๐œ‘ โ†’ ๐‘€ โ‰ค ๐‘…)
19855nnred 12223 . . . . . 6 (๐œ‘ โ†’ ๐‘… โˆˆ โ„)
199198, 30letri3d 11352 . . . . 5 (๐œ‘ โ†’ (๐‘… = ๐‘€ โ†” (๐‘… โ‰ค ๐‘€ โˆง ๐‘€ โ‰ค ๐‘…)))
20020, 197, 199mpbir2and 711 . . . 4 (๐œ‘ โ†’ ๐‘… = ๐‘€)
201200olcd 872 . . 3 (๐œ‘ โ†’ (๐‘… = 0 โˆจ ๐‘… = ๐‘€))
202201, 52mpd 15 . 2 (๐œ‘ โ†’ (๐‘€โ†‘2) โˆฅ (๐‘€ ยท ๐‘ƒ))
203202, 46pm2.65i 193 1 ยฌ ๐œ‘
Colors of variables: wff setvar class
Syntax hints:  ยฌ wn 3   โ†’ wi 4   โ†” wb 205   โˆจ wo 845   = wceq 1541   โˆˆ wcel 2106  {cab 2709   โ‰  wne 2940  โˆƒwrex 3070  {crab 3432   โŠ† wss 3947  โˆ…c0 4321   class class class wbr 5147  โ€˜cfv 6540  (class class class)co 7405  infcinf 9432  โ„‚cc 11104  โ„cr 11105  0cc0 11106  1c1 11107  ici 11108   + caddc 11109   ยท cmul 11111   < clt 11244   โ‰ค cle 11245   โˆ’ cmin 11440   / cdiv 11867  โ„•cn 12208  2c2 12263  โ„•0cn0 12468  โ„คcz 12554  โ„คโ‰ฅcuz 12818  ...cfz 13480   mod cmo 13830  โ†‘cexp 14023  โ„œcre 15040  โ„‘cim 15041  abscabs 15177   โˆฅ cdvds 16193  โ„™cprime 16604  โ„ค[i]cgz 16858
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-om 7852  df-1st 7971  df-2nd 7972  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-oadd 8466  df-er 8699  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-sup 9433  df-inf 9434  df-dju 9892  df-card 9930  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-4 12273  df-n0 12469  df-xnn0 12541  df-z 12555  df-uz 12819  df-rp 12971  df-fz 13481  df-fl 13753  df-mod 13831  df-seq 13963  df-exp 14024  df-hash 14287  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-dvds 16194  df-gcd 16432  df-prm 16605  df-gz 16859
This theorem is referenced by:  4sqlem18  16891
  Copyright terms: Public domain W3C validator