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

Theorem recexgt0sr 7774
Description: The reciprocal of a positive signed real exists and is positive. (Contributed by Jim Kingdon, 6-Feb-2020.)
Assertion
Ref Expression
recexgt0sr (0R <R ๐ด โ†’ โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง (๐ด ยทR ๐‘ฅ) = 1R))
Distinct variable group:   ๐‘ฅ,๐ด

Proof of Theorem recexgt0sr
Dummy variables ๐‘ฆ ๐‘ง ๐‘ค ๐‘ฃ ๐‘“ ๐‘” โ„Ž are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ltrelsr 7739 . . . 4 <R โІ (R ร— R)
21brel 4680 . . 3 (0R <R ๐ด โ†’ (0R โˆˆ R โˆง ๐ด โˆˆ R))
32simprd 114 . 2 (0R <R ๐ด โ†’ ๐ด โˆˆ R)
4 df-nr 7728 . . 3 R = ((P ร— P) / ~R )
5 breq2 4009 . . . 4 ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R = ๐ด โ†’ (0R <R [โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R โ†” 0R <R ๐ด))
6 oveq1 5884 . . . . . . 7 ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R = ๐ด โ†’ ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = (๐ด ยทR ๐‘ฅ))
76eqeq1d 2186 . . . . . 6 ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R = ๐ด โ†’ (([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R โ†” (๐ด ยทR ๐‘ฅ) = 1R))
87anbi2d 464 . . . . 5 ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R = ๐ด โ†’ ((0R <R ๐‘ฅ โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R) โ†” (0R <R ๐‘ฅ โˆง (๐ด ยทR ๐‘ฅ) = 1R)))
98rexbidv 2478 . . . 4 ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R = ๐ด โ†’ (โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R) โ†” โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง (๐ด ยทR ๐‘ฅ) = 1R)))
105, 9imbi12d 234 . . 3 ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R = ๐ด โ†’ ((0R <R [โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R โ†’ โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R)) โ†” (0R <R ๐ด โ†’ โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง (๐ด ยทR ๐‘ฅ) = 1R))))
11 gt0srpr 7749 . . . . 5 (0R <R [โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R โ†” ๐‘ง<P ๐‘ฆ)
12 ltexpri 7614 . . . . 5 (๐‘ง<P ๐‘ฆ โ†’ โˆƒ๐‘ค โˆˆ P (๐‘ง +P ๐‘ค) = ๐‘ฆ)
1311, 12sylbi 121 . . . 4 (0R <R [โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R โ†’ โˆƒ๐‘ค โˆˆ P (๐‘ง +P ๐‘ค) = ๐‘ฆ)
14 recexpr 7639 . . . . . . 7 (๐‘ค โˆˆ P โ†’ โˆƒ๐‘ฃ โˆˆ P (๐‘ค ยทP ๐‘ฃ) = 1P)
1514adantl 277 . . . . . 6 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง ๐‘ค โˆˆ P) โ†’ โˆƒ๐‘ฃ โˆˆ P (๐‘ค ยทP ๐‘ฃ) = 1P)
16 1pr 7555 . . . . . . . . . . . . . 14 1P โˆˆ P
17 addclpr 7538 . . . . . . . . . . . . . 14 ((๐‘ฃ โˆˆ P โˆง 1P โˆˆ P) โ†’ (๐‘ฃ +P 1P) โˆˆ P)
1816, 17mpan2 425 . . . . . . . . . . . . 13 (๐‘ฃ โˆˆ P โ†’ (๐‘ฃ +P 1P) โˆˆ P)
19 enrex 7738 . . . . . . . . . . . . . 14 ~R โˆˆ V
2019, 4ecopqsi 6592 . . . . . . . . . . . . 13 (((๐‘ฃ +P 1P) โˆˆ P โˆง 1P โˆˆ P) โ†’ [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R โˆˆ R)
2118, 16, 20sylancl 413 . . . . . . . . . . . 12 (๐‘ฃ โˆˆ P โ†’ [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R โˆˆ R)
2221adantl 277 . . . . . . . . . . 11 ((๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P) โ†’ [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R โˆˆ R)
2322ad2antlr 489 . . . . . . . . . 10 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R โˆˆ R)
24 simprr 531 . . . . . . . . . . . 12 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ๐‘ฃ โˆˆ P)
2524adantr 276 . . . . . . . . . . 11 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ ๐‘ฃ โˆˆ P)
26 ltaddpr 7598 . . . . . . . . . . . . . 14 ((1P โˆˆ P โˆง ๐‘ฃ โˆˆ P) โ†’ 1P<P (1P +P ๐‘ฃ))
2716, 26mpan 424 . . . . . . . . . . . . 13 (๐‘ฃ โˆˆ P โ†’ 1P<P (1P +P ๐‘ฃ))
28 addcomprg 7579 . . . . . . . . . . . . . 14 ((1P โˆˆ P โˆง ๐‘ฃ โˆˆ P) โ†’ (1P +P ๐‘ฃ) = (๐‘ฃ +P 1P))
2916, 28mpan 424 . . . . . . . . . . . . 13 (๐‘ฃ โˆˆ P โ†’ (1P +P ๐‘ฃ) = (๐‘ฃ +P 1P))
3027, 29breqtrd 4031 . . . . . . . . . . . 12 (๐‘ฃ โˆˆ P โ†’ 1P<P (๐‘ฃ +P 1P))
31 gt0srpr 7749 . . . . . . . . . . . 12 (0R <R [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R โ†” 1P<P (๐‘ฃ +P 1P))
3230, 31sylibr 134 . . . . . . . . . . 11 (๐‘ฃ โˆˆ P โ†’ 0R <R [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R )
3325, 32syl 14 . . . . . . . . . 10 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ 0R <R [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R )
3418, 16jctir 313 . . . . . . . . . . . . . . . 16 (๐‘ฃ โˆˆ P โ†’ ((๐‘ฃ +P 1P) โˆˆ P โˆง 1P โˆˆ P))
3534anim2i 342 . . . . . . . . . . . . . . 15 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง ๐‘ฃ โˆˆ P) โ†’ ((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง ((๐‘ฃ +P 1P) โˆˆ P โˆง 1P โˆˆ P)))
3635adantr 276 . . . . . . . . . . . . . 14 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง ๐‘ฃ โˆˆ P) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ ((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง ((๐‘ฃ +P 1P) โˆˆ P โˆง 1P โˆˆ P)))
37 mulsrpr 7747 . . . . . . . . . . . . . 14 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง ((๐‘ฃ +P 1P) โˆˆ P โˆง 1P โˆˆ P)) โ†’ ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R ) = [โŸจ((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)), ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P)))โŸฉ] ~R )
3836, 37syl 14 . . . . . . . . . . . . 13 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง ๐‘ฃ โˆˆ P) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R ) = [โŸจ((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)), ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P)))โŸฉ] ~R )
3938adantlrl 482 . . . . . . . . . . . 12 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R ) = [โŸจ((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)), ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P)))โŸฉ] ~R )
40 oveq1 5884 . . . . . . . . . . . . . . . . . . . . 21 ((๐‘ง +P ๐‘ค) = ๐‘ฆ โ†’ ((๐‘ง +P ๐‘ค) ยทP ๐‘ฃ) = (๐‘ฆ ยทP ๐‘ฃ))
4140eqcomd 2183 . . . . . . . . . . . . . . . . . . . 20 ((๐‘ง +P ๐‘ค) = ๐‘ฆ โ†’ (๐‘ฆ ยทP ๐‘ฃ) = ((๐‘ง +P ๐‘ค) ยทP ๐‘ฃ))
4241ad2antll 491 . . . . . . . . . . . . . . . . . . 19 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ (๐‘ฆ ยทP ๐‘ฃ) = ((๐‘ง +P ๐‘ค) ยทP ๐‘ฃ))
43 mulcomprg 7581 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((๐‘“ โˆˆ P โˆง โ„Ž โˆˆ P) โ†’ (๐‘“ ยทP โ„Ž) = (โ„Ž ยทP ๐‘“))
44433adant2 1016 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P โˆง โ„Ž โˆˆ P) โ†’ (๐‘“ ยทP โ„Ž) = (โ„Ž ยทP ๐‘“))
45 mulcomprg 7581 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((๐‘” โˆˆ P โˆง โ„Ž โˆˆ P) โ†’ (๐‘” ยทP โ„Ž) = (โ„Ž ยทP ๐‘”))
46453adant1 1015 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P โˆง โ„Ž โˆˆ P) โ†’ (๐‘” ยทP โ„Ž) = (โ„Ž ยทP ๐‘”))
4744, 46oveq12d 5895 . . . . . . . . . . . . . . . . . . . . . . . 24 ((๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P โˆง โ„Ž โˆˆ P) โ†’ ((๐‘“ ยทP โ„Ž) +P (๐‘” ยทP โ„Ž)) = ((โ„Ž ยทP ๐‘“) +P (โ„Ž ยทP ๐‘”)))
48 distrprg 7589 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((โ„Ž โˆˆ P โˆง ๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P) โ†’ (โ„Ž ยทP (๐‘“ +P ๐‘”)) = ((โ„Ž ยทP ๐‘“) +P (โ„Ž ยทP ๐‘”)))
49483coml 1210 . . . . . . . . . . . . . . . . . . . . . . . 24 ((๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P โˆง โ„Ž โˆˆ P) โ†’ (โ„Ž ยทP (๐‘“ +P ๐‘”)) = ((โ„Ž ยทP ๐‘“) +P (โ„Ž ยทP ๐‘”)))
50 simp3 999 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P โˆง โ„Ž โˆˆ P) โ†’ โ„Ž โˆˆ P)
51 addclpr 7538 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P) โ†’ (๐‘“ +P ๐‘”) โˆˆ P)
52513adant3 1017 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P โˆง โ„Ž โˆˆ P) โ†’ (๐‘“ +P ๐‘”) โˆˆ P)
53 mulcomprg 7581 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((โ„Ž โˆˆ P โˆง (๐‘“ +P ๐‘”) โˆˆ P) โ†’ (โ„Ž ยทP (๐‘“ +P ๐‘”)) = ((๐‘“ +P ๐‘”) ยทP โ„Ž))
5450, 52, 53syl2anc 411 . . . . . . . . . . . . . . . . . . . . . . . 24 ((๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P โˆง โ„Ž โˆˆ P) โ†’ (โ„Ž ยทP (๐‘“ +P ๐‘”)) = ((๐‘“ +P ๐‘”) ยทP โ„Ž))
5547, 49, 543eqtr2rd 2217 . . . . . . . . . . . . . . . . . . . . . . 23 ((๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P โˆง โ„Ž โˆˆ P) โ†’ ((๐‘“ +P ๐‘”) ยทP โ„Ž) = ((๐‘“ ยทP โ„Ž) +P (๐‘” ยทP โ„Ž)))
5655adantl 277 . . . . . . . . . . . . . . . . . . . . . 22 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง (๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P โˆง โ„Ž โˆˆ P)) โ†’ ((๐‘“ +P ๐‘”) ยทP โ„Ž) = ((๐‘“ ยทP โ„Ž) +P (๐‘” ยทP โ„Ž)))
57 simplr 528 . . . . . . . . . . . . . . . . . . . . . 22 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ๐‘ง โˆˆ P)
58 simprl 529 . . . . . . . . . . . . . . . . . . . . . 22 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ๐‘ค โˆˆ P)
5956, 57, 58, 24caovdird 6055 . . . . . . . . . . . . . . . . . . . . 21 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ((๐‘ง +P ๐‘ค) ยทP ๐‘ฃ) = ((๐‘ง ยทP ๐‘ฃ) +P (๐‘ค ยทP ๐‘ฃ)))
60 oveq2 5885 . . . . . . . . . . . . . . . . . . . . 21 ((๐‘ค ยทP ๐‘ฃ) = 1P โ†’ ((๐‘ง ยทP ๐‘ฃ) +P (๐‘ค ยทP ๐‘ฃ)) = ((๐‘ง ยทP ๐‘ฃ) +P 1P))
6159, 60sylan9eq 2230 . . . . . . . . . . . . . . . . . . . 20 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง (๐‘ค ยทP ๐‘ฃ) = 1P) โ†’ ((๐‘ง +P ๐‘ค) ยทP ๐‘ฃ) = ((๐‘ง ยทP ๐‘ฃ) +P 1P))
6261adantrr 479 . . . . . . . . . . . . . . . . . . 19 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ ((๐‘ง +P ๐‘ค) ยทP ๐‘ฃ) = ((๐‘ง ยทP ๐‘ฃ) +P 1P))
6342, 62eqtrd 2210 . . . . . . . . . . . . . . . . . 18 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ (๐‘ฆ ยทP ๐‘ฃ) = ((๐‘ง ยทP ๐‘ฃ) +P 1P))
6463oveq1d 5892 . . . . . . . . . . . . . . . . 17 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ ((๐‘ฆ ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) = (((๐‘ง ยทP ๐‘ฃ) +P 1P) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))))
65 mulclpr 7573 . . . . . . . . . . . . . . . . . . . 20 ((๐‘ง โˆˆ P โˆง ๐‘ฃ โˆˆ P) โ†’ (๐‘ง ยทP ๐‘ฃ) โˆˆ P)
6657, 24, 65syl2anc 411 . . . . . . . . . . . . . . . . . . 19 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ (๐‘ง ยทP ๐‘ฃ) โˆˆ P)
6716a1i 9 . . . . . . . . . . . . . . . . . . 19 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ 1P โˆˆ P)
68 simpll 527 . . . . . . . . . . . . . . . . . . . . 21 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ๐‘ฆ โˆˆ P)
69 mulclpr 7573 . . . . . . . . . . . . . . . . . . . . 21 ((๐‘ฆ โˆˆ P โˆง 1P โˆˆ P) โ†’ (๐‘ฆ ยทP 1P) โˆˆ P)
7068, 16, 69sylancl 413 . . . . . . . . . . . . . . . . . . . 20 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ (๐‘ฆ ยทP 1P) โˆˆ P)
71 mulclpr 7573 . . . . . . . . . . . . . . . . . . . . 21 ((๐‘ง โˆˆ P โˆง 1P โˆˆ P) โ†’ (๐‘ง ยทP 1P) โˆˆ P)
7257, 16, 71sylancl 413 . . . . . . . . . . . . . . . . . . . 20 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ (๐‘ง ยทP 1P) โˆˆ P)
73 addclpr 7538 . . . . . . . . . . . . . . . . . . . 20 (((๐‘ฆ ยทP 1P) โˆˆ P โˆง (๐‘ง ยทP 1P) โˆˆ P) โ†’ ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P)) โˆˆ P)
7470, 72, 73syl2anc 411 . . . . . . . . . . . . . . . . . . 19 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P)) โˆˆ P)
75 addcomprg 7579 . . . . . . . . . . . . . . . . . . . 20 ((๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P) โ†’ (๐‘“ +P ๐‘”) = (๐‘” +P ๐‘“))
7675adantl 277 . . . . . . . . . . . . . . . . . . 19 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง (๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P)) โ†’ (๐‘“ +P ๐‘”) = (๐‘” +P ๐‘“))
77 addassprg 7580 . . . . . . . . . . . . . . . . . . . 20 ((๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P โˆง โ„Ž โˆˆ P) โ†’ ((๐‘“ +P ๐‘”) +P โ„Ž) = (๐‘“ +P (๐‘” +P โ„Ž)))
7877adantl 277 . . . . . . . . . . . . . . . . . . 19 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง (๐‘“ โˆˆ P โˆง ๐‘” โˆˆ P โˆง โ„Ž โˆˆ P)) โ†’ ((๐‘“ +P ๐‘”) +P โ„Ž) = (๐‘“ +P (๐‘” +P โ„Ž)))
7966, 67, 74, 76, 78caov32d 6057 . . . . . . . . . . . . . . . . . 18 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ (((๐‘ง ยทP ๐‘ฃ) +P 1P) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) = (((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P 1P))
8079adantr 276 . . . . . . . . . . . . . . . . 17 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ (((๐‘ง ยทP ๐‘ฃ) +P 1P) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) = (((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P 1P))
8164, 80eqtrd 2210 . . . . . . . . . . . . . . . 16 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ ((๐‘ฆ ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) = (((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P 1P))
8281oveq1d 5892 . . . . . . . . . . . . . . 15 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ (((๐‘ฆ ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P 1P) = ((((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P 1P) +P 1P))
83 addclpr 7538 . . . . . . . . . . . . . . . . . 18 (((๐‘ง ยทP ๐‘ฃ) โˆˆ P โˆง ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P)) โˆˆ P) โ†’ ((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) โˆˆ P)
8466, 74, 83syl2anc 411 . . . . . . . . . . . . . . . . 17 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) โˆˆ P)
8584adantr 276 . . . . . . . . . . . . . . . 16 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ ((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) โˆˆ P)
8616a1i 9 . . . . . . . . . . . . . . . 16 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ 1P โˆˆ P)
87 addassprg 7580 . . . . . . . . . . . . . . . 16 ((((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) โˆˆ P โˆง 1P โˆˆ P โˆง 1P โˆˆ P) โ†’ ((((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P 1P) +P 1P) = (((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P (1P +P 1P)))
8885, 86, 86, 87syl3anc 1238 . . . . . . . . . . . . . . 15 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ ((((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P 1P) +P 1P) = (((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P (1P +P 1P)))
8982, 88eqtrd 2210 . . . . . . . . . . . . . 14 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ (((๐‘ฆ ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P 1P) = (((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P (1P +P 1P)))
90 distrprg 7589 . . . . . . . . . . . . . . . . . . 19 ((๐‘ฆ โˆˆ P โˆง ๐‘ฃ โˆˆ P โˆง 1P โˆˆ P) โ†’ (๐‘ฆ ยทP (๐‘ฃ +P 1P)) = ((๐‘ฆ ยทP ๐‘ฃ) +P (๐‘ฆ ยทP 1P)))
9168, 24, 67, 90syl3anc 1238 . . . . . . . . . . . . . . . . . 18 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ (๐‘ฆ ยทP (๐‘ฃ +P 1P)) = ((๐‘ฆ ยทP ๐‘ฃ) +P (๐‘ฆ ยทP 1P)))
9291oveq1d 5892 . . . . . . . . . . . . . . . . 17 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)) = (((๐‘ฆ ยทP ๐‘ฃ) +P (๐‘ฆ ยทP 1P)) +P (๐‘ง ยทP 1P)))
93 mulclpr 7573 . . . . . . . . . . . . . . . . . . 19 ((๐‘ฆ โˆˆ P โˆง ๐‘ฃ โˆˆ P) โ†’ (๐‘ฆ ยทP ๐‘ฃ) โˆˆ P)
9468, 24, 93syl2anc 411 . . . . . . . . . . . . . . . . . 18 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ (๐‘ฆ ยทP ๐‘ฃ) โˆˆ P)
95 addassprg 7580 . . . . . . . . . . . . . . . . . 18 (((๐‘ฆ ยทP ๐‘ฃ) โˆˆ P โˆง (๐‘ฆ ยทP 1P) โˆˆ P โˆง (๐‘ง ยทP 1P) โˆˆ P) โ†’ (((๐‘ฆ ยทP ๐‘ฃ) +P (๐‘ฆ ยทP 1P)) +P (๐‘ง ยทP 1P)) = ((๐‘ฆ ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))))
9694, 70, 72, 95syl3anc 1238 . . . . . . . . . . . . . . . . 17 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ (((๐‘ฆ ยทP ๐‘ฃ) +P (๐‘ฆ ยทP 1P)) +P (๐‘ง ยทP 1P)) = ((๐‘ฆ ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))))
9792, 96eqtrd 2210 . . . . . . . . . . . . . . . 16 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)) = ((๐‘ฆ ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))))
9897oveq1d 5892 . . . . . . . . . . . . . . 15 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ (((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)) +P 1P) = (((๐‘ฆ ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P 1P))
9998adantr 276 . . . . . . . . . . . . . 14 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ (((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)) +P 1P) = (((๐‘ฆ ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P 1P))
100 distrprg 7589 . . . . . . . . . . . . . . . . . . 19 ((๐‘ง โˆˆ P โˆง ๐‘ฃ โˆˆ P โˆง 1P โˆˆ P) โ†’ (๐‘ง ยทP (๐‘ฃ +P 1P)) = ((๐‘ง ยทP ๐‘ฃ) +P (๐‘ง ยทP 1P)))
10157, 24, 67, 100syl3anc 1238 . . . . . . . . . . . . . . . . . 18 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ (๐‘ง ยทP (๐‘ฃ +P 1P)) = ((๐‘ง ยทP ๐‘ฃ) +P (๐‘ง ยทP 1P)))
102101oveq2d 5893 . . . . . . . . . . . . . . . . 17 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P))) = ((๐‘ฆ ยทP 1P) +P ((๐‘ง ยทP ๐‘ฃ) +P (๐‘ง ยทP 1P))))
10370, 66, 72, 76, 78caov12d 6058 . . . . . . . . . . . . . . . . 17 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ((๐‘ฆ ยทP 1P) +P ((๐‘ง ยทP ๐‘ฃ) +P (๐‘ง ยทP 1P))) = ((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))))
104102, 103eqtrd 2210 . . . . . . . . . . . . . . . 16 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P))) = ((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))))
105104oveq1d 5892 . . . . . . . . . . . . . . 15 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ (((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P))) +P (1P +P 1P)) = (((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P (1P +P 1P)))
106105adantr 276 . . . . . . . . . . . . . 14 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ (((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P))) +P (1P +P 1P)) = (((๐‘ง ยทP ๐‘ฃ) +P ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP 1P))) +P (1P +P 1P)))
10789, 99, 1063eqtr4d 2220 . . . . . . . . . . . . 13 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ (((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)) +P 1P) = (((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P))) +P (1P +P 1P)))
10824, 16, 17sylancl 413 . . . . . . . . . . . . . . . . 17 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ (๐‘ฃ +P 1P) โˆˆ P)
109 mulclpr 7573 . . . . . . . . . . . . . . . . 17 ((๐‘ฆ โˆˆ P โˆง (๐‘ฃ +P 1P) โˆˆ P) โ†’ (๐‘ฆ ยทP (๐‘ฃ +P 1P)) โˆˆ P)
11068, 108, 109syl2anc 411 . . . . . . . . . . . . . . . 16 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ (๐‘ฆ ยทP (๐‘ฃ +P 1P)) โˆˆ P)
111 addclpr 7538 . . . . . . . . . . . . . . . 16 (((๐‘ฆ ยทP (๐‘ฃ +P 1P)) โˆˆ P โˆง (๐‘ง ยทP 1P) โˆˆ P) โ†’ ((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)) โˆˆ P)
112110, 72, 111syl2anc 411 . . . . . . . . . . . . . . 15 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)) โˆˆ P)
113104, 84eqeltrd 2254 . . . . . . . . . . . . . . 15 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P))) โˆˆ P)
114 addclpr 7538 . . . . . . . . . . . . . . . . 17 ((1P โˆˆ P โˆง 1P โˆˆ P) โ†’ (1P +P 1P) โˆˆ P)
11516, 16, 114mp2an 426 . . . . . . . . . . . . . . . 16 (1P +P 1P) โˆˆ P
116115a1i 9 . . . . . . . . . . . . . . 15 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ (1P +P 1P) โˆˆ P)
117 enreceq 7737 . . . . . . . . . . . . . . 15 (((((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)) โˆˆ P โˆง ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P))) โˆˆ P) โˆง ((1P +P 1P) โˆˆ P โˆง 1P โˆˆ P)) โ†’ ([โŸจ((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)), ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P)))โŸฉ] ~R = [โŸจ(1P +P 1P), 1PโŸฉ] ~R โ†” (((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)) +P 1P) = (((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P))) +P (1P +P 1P))))
118112, 113, 116, 67, 117syl22anc 1239 . . . . . . . . . . . . . 14 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ([โŸจ((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)), ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P)))โŸฉ] ~R = [โŸจ(1P +P 1P), 1PโŸฉ] ~R โ†” (((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)) +P 1P) = (((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P))) +P (1P +P 1P))))
119118adantr 276 . . . . . . . . . . . . 13 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ ([โŸจ((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)), ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P)))โŸฉ] ~R = [โŸจ(1P +P 1P), 1PโŸฉ] ~R โ†” (((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)) +P 1P) = (((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P))) +P (1P +P 1P))))
120107, 119mpbird 167 . . . . . . . . . . . 12 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ [โŸจ((๐‘ฆ ยทP (๐‘ฃ +P 1P)) +P (๐‘ง ยทP 1P)), ((๐‘ฆ ยทP 1P) +P (๐‘ง ยทP (๐‘ฃ +P 1P)))โŸฉ] ~R = [โŸจ(1P +P 1P), 1PโŸฉ] ~R )
12139, 120eqtrd 2210 . . . . . . . . . . 11 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R ) = [โŸจ(1P +P 1P), 1PโŸฉ] ~R )
122 df-1r 7733 . . . . . . . . . . 11 1R = [โŸจ(1P +P 1P), 1PโŸฉ] ~R
123121, 122eqtr4di 2228 . . . . . . . . . 10 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R ) = 1R)
124 breq2 4009 . . . . . . . . . . . 12 (๐‘ฅ = [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R โ†’ (0R <R ๐‘ฅ โ†” 0R <R [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R ))
125 oveq2 5885 . . . . . . . . . . . . 13 (๐‘ฅ = [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R โ†’ ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R ))
126125eqeq1d 2186 . . . . . . . . . . . 12 (๐‘ฅ = [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R โ†’ (([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R โ†” ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R ) = 1R))
127124, 126anbi12d 473 . . . . . . . . . . 11 (๐‘ฅ = [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R โ†’ ((0R <R ๐‘ฅ โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R) โ†” (0R <R [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R ) = 1R)))
128127rspcev 2843 . . . . . . . . . 10 (([โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R โˆˆ R โˆง (0R <R [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR [โŸจ(๐‘ฃ +P 1P), 1PโŸฉ] ~R ) = 1R)) โ†’ โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R))
12923, 33, 123, 128syl12anc 1236 . . . . . . . . 9 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โˆง ((๐‘ค ยทP ๐‘ฃ) = 1P โˆง (๐‘ง +P ๐‘ค) = ๐‘ฆ)) โ†’ โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R))
130129exp32 365 . . . . . . . 8 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง (๐‘ค โˆˆ P โˆง ๐‘ฃ โˆˆ P)) โ†’ ((๐‘ค ยทP ๐‘ฃ) = 1P โ†’ ((๐‘ง +P ๐‘ค) = ๐‘ฆ โ†’ โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R))))
131130anassrs 400 . . . . . . 7 ((((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง ๐‘ค โˆˆ P) โˆง ๐‘ฃ โˆˆ P) โ†’ ((๐‘ค ยทP ๐‘ฃ) = 1P โ†’ ((๐‘ง +P ๐‘ค) = ๐‘ฆ โ†’ โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R))))
132131rexlimdva 2594 . . . . . 6 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง ๐‘ค โˆˆ P) โ†’ (โˆƒ๐‘ฃ โˆˆ P (๐‘ค ยทP ๐‘ฃ) = 1P โ†’ ((๐‘ง +P ๐‘ค) = ๐‘ฆ โ†’ โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R))))
13315, 132mpd 13 . . . . 5 (((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โˆง ๐‘ค โˆˆ P) โ†’ ((๐‘ง +P ๐‘ค) = ๐‘ฆ โ†’ โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R)))
134133rexlimdva 2594 . . . 4 ((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โ†’ (โˆƒ๐‘ค โˆˆ P (๐‘ง +P ๐‘ค) = ๐‘ฆ โ†’ โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R)))
13513, 134syl5 32 . . 3 ((๐‘ฆ โˆˆ P โˆง ๐‘ง โˆˆ P) โ†’ (0R <R [โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R โ†’ โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง ([โŸจ๐‘ฆ, ๐‘งโŸฉ] ~R ยทR ๐‘ฅ) = 1R)))
1364, 10, 135ecoptocl 6624 . 2 (๐ด โˆˆ R โ†’ (0R <R ๐ด โ†’ โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง (๐ด ยทR ๐‘ฅ) = 1R)))
1373, 136mpcom 36 1 (0R <R ๐ด โ†’ โˆƒ๐‘ฅ โˆˆ R (0R <R ๐‘ฅ โˆง (๐ด ยทR ๐‘ฅ) = 1R))
Colors of variables: wff set class
Syntax hints:   โ†’ wi 4   โˆง wa 104   โ†” wb 105   โˆง w3a 978   = wceq 1353   โˆˆ wcel 2148  โˆƒwrex 2456  โŸจcop 3597   class class class wbr 4005  (class class class)co 5877  [cec 6535  Pcnp 7292  1Pc1p 7293   +P cpp 7294   ยทP cmp 7295  <P cltp 7296   ~R cer 7297  Rcnr 7298  0Rc0r 7299  1Rc1r 7300   ยทR cmr 7303   <R cltr 7304
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
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-ral 2460  df-rex 2461  df-reu 2462  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-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-eprel 4291  df-id 4295  df-po 4298  df-iso 4299  df-iord 4368  df-on 4370  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-ov 5880  df-oprab 5881  df-mpo 5882  df-1st 6143  df-2nd 6144  df-recs 6308  df-irdg 6373  df-1o 6419  df-2o 6420  df-oadd 6423  df-omul 6424  df-er 6537  df-ec 6539  df-qs 6543  df-ni 7305  df-pli 7306  df-mi 7307  df-lti 7308  df-plpq 7345  df-mpq 7346  df-enq 7348  df-nqqs 7349  df-plqqs 7350  df-mqqs 7351  df-1nqqs 7352  df-rq 7353  df-ltnqqs 7354  df-enq0 7425  df-nq0 7426  df-0nq0 7427  df-plq0 7428  df-mq0 7429  df-inp 7467  df-i1p 7468  df-iplp 7469  df-imp 7470  df-iltp 7471  df-enr 7727  df-nr 7728  df-mr 7730  df-ltr 7731  df-0r 7732  df-1r 7733
This theorem is referenced by:  recexsrlem  7775  axprecex  7881
  Copyright terms: Public domain W3C validator