Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  isorng Structured version   Visualization version   GIF version

Theorem isorng 33074
Description: An ordered ring is a ring with a total ordering compatible with its operations. (Contributed by Thierry Arnoux, 18-Jan-2018.)
Hypotheses
Ref Expression
isorng.0 𝐡 = (Baseβ€˜π‘…)
isorng.1 0 = (0gβ€˜π‘…)
isorng.2 Β· = (.rβ€˜π‘…)
isorng.3 ≀ = (leβ€˜π‘…)
Assertion
Ref Expression
isorng (𝑅 ∈ oRing ↔ (𝑅 ∈ Ring ∧ 𝑅 ∈ oGrp ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 ≀ π‘Ž ∧ 0 ≀ 𝑏) β†’ 0 ≀ (π‘Ž Β· 𝑏))))
Distinct variable groups:   π‘Ž,𝑏,𝐡   𝑅,π‘Ž,𝑏
Allowed substitution hints:   Β· (π‘Ž,𝑏)   ≀ (π‘Ž,𝑏)   0 (π‘Ž,𝑏)

Proof of Theorem isorng
Dummy variables 𝑙 π‘Ÿ 𝑑 𝑣 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elin 3961 . . 3 (𝑅 ∈ (Ring ∩ oGrp) ↔ (𝑅 ∈ Ring ∧ 𝑅 ∈ oGrp))
21anbi1i 622 . 2 ((𝑅 ∈ (Ring ∩ oGrp) ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 ≀ π‘Ž ∧ 0 ≀ 𝑏) β†’ 0 ≀ (π‘Ž Β· 𝑏))) ↔ ((𝑅 ∈ Ring ∧ 𝑅 ∈ oGrp) ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 ≀ π‘Ž ∧ 0 ≀ 𝑏) β†’ 0 ≀ (π‘Ž Β· 𝑏))))
3 fvexd 6909 . . . . 5 (π‘Ÿ = 𝑅 β†’ (.rβ€˜π‘Ÿ) ∈ V)
4 simpr 483 . . . . . . . . . . 11 ((π‘Ÿ = 𝑅 ∧ 𝑑 = (.rβ€˜π‘Ÿ)) β†’ 𝑑 = (.rβ€˜π‘Ÿ))
5 simpl 481 . . . . . . . . . . . . 13 ((π‘Ÿ = 𝑅 ∧ 𝑑 = (.rβ€˜π‘Ÿ)) β†’ π‘Ÿ = 𝑅)
65fveq2d 6898 . . . . . . . . . . . 12 ((π‘Ÿ = 𝑅 ∧ 𝑑 = (.rβ€˜π‘Ÿ)) β†’ (.rβ€˜π‘Ÿ) = (.rβ€˜π‘…))
7 isorng.2 . . . . . . . . . . . 12 Β· = (.rβ€˜π‘…)
86, 7eqtr4di 2783 . . . . . . . . . . 11 ((π‘Ÿ = 𝑅 ∧ 𝑑 = (.rβ€˜π‘Ÿ)) β†’ (.rβ€˜π‘Ÿ) = Β· )
94, 8eqtrd 2765 . . . . . . . . . 10 ((π‘Ÿ = 𝑅 ∧ 𝑑 = (.rβ€˜π‘Ÿ)) β†’ 𝑑 = Β· )
109oveqd 7434 . . . . . . . . 9 ((π‘Ÿ = 𝑅 ∧ 𝑑 = (.rβ€˜π‘Ÿ)) β†’ (π‘Žπ‘‘π‘) = (π‘Ž Β· 𝑏))
1110breq2d 5160 . . . . . . . 8 ((π‘Ÿ = 𝑅 ∧ 𝑑 = (.rβ€˜π‘Ÿ)) β†’ ( 0 𝑙(π‘Žπ‘‘π‘) ↔ 0 𝑙(π‘Ž Β· 𝑏)))
1211imbi2d 339 . . . . . . 7 ((π‘Ÿ = 𝑅 ∧ 𝑑 = (.rβ€˜π‘Ÿ)) β†’ ((( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Žπ‘‘π‘)) ↔ (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Ž Β· 𝑏))))
13122ralbidv 3209 . . . . . 6 ((π‘Ÿ = 𝑅 ∧ 𝑑 = (.rβ€˜π‘Ÿ)) β†’ (βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Žπ‘‘π‘)) ↔ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Ž Β· 𝑏))))
1413sbcbidv 3834 . . . . 5 ((π‘Ÿ = 𝑅 ∧ 𝑑 = (.rβ€˜π‘Ÿ)) β†’ ([(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Žπ‘‘π‘)) ↔ [(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Ž Β· 𝑏))))
153, 14sbcied 3820 . . . 4 (π‘Ÿ = 𝑅 β†’ ([(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Žπ‘‘π‘)) ↔ [(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Ž Β· 𝑏))))
16 fvexd 6909 . . . . . 6 (π‘Ÿ = 𝑅 β†’ (Baseβ€˜π‘Ÿ) ∈ V)
17 simpr 483 . . . . . . . . . . 11 ((π‘Ÿ = 𝑅 ∧ 𝑣 = (Baseβ€˜π‘Ÿ)) β†’ 𝑣 = (Baseβ€˜π‘Ÿ))
18 fveq2 6894 . . . . . . . . . . . . 13 (π‘Ÿ = 𝑅 β†’ (Baseβ€˜π‘Ÿ) = (Baseβ€˜π‘…))
19 isorng.0 . . . . . . . . . . . . 13 𝐡 = (Baseβ€˜π‘…)
2018, 19eqtr4di 2783 . . . . . . . . . . . 12 (π‘Ÿ = 𝑅 β†’ (Baseβ€˜π‘Ÿ) = 𝐡)
2120adantr 479 . . . . . . . . . . 11 ((π‘Ÿ = 𝑅 ∧ 𝑣 = (Baseβ€˜π‘Ÿ)) β†’ (Baseβ€˜π‘Ÿ) = 𝐡)
2217, 21eqtrd 2765 . . . . . . . . . 10 ((π‘Ÿ = 𝑅 ∧ 𝑣 = (Baseβ€˜π‘Ÿ)) β†’ 𝑣 = 𝐡)
23 raleq 3312 . . . . . . . . . . 11 (𝑣 = 𝐡 β†’ (βˆ€π‘ ∈ 𝑣 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘)) ↔ βˆ€π‘ ∈ 𝐡 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘))))
2423raleqbi1dv 3323 . . . . . . . . . 10 (𝑣 = 𝐡 β†’ (βˆ€π‘Ž ∈ 𝑣 βˆ€π‘ ∈ 𝑣 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘)) ↔ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘))))
2522, 24syl 17 . . . . . . . . 9 ((π‘Ÿ = 𝑅 ∧ 𝑣 = (Baseβ€˜π‘Ÿ)) β†’ (βˆ€π‘Ž ∈ 𝑣 βˆ€π‘ ∈ 𝑣 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘)) ↔ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘))))
2625sbcbidv 3834 . . . . . . . 8 ((π‘Ÿ = 𝑅 ∧ 𝑣 = (Baseβ€˜π‘Ÿ)) β†’ ([(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝑣 βˆ€π‘ ∈ 𝑣 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘)) ↔ [(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘))))
2726sbcbidv 3834 . . . . . . 7 ((π‘Ÿ = 𝑅 ∧ 𝑣 = (Baseβ€˜π‘Ÿ)) β†’ ([(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝑣 βˆ€π‘ ∈ 𝑣 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘)) ↔ [(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘))))
2827sbcbidv 3834 . . . . . 6 ((π‘Ÿ = 𝑅 ∧ 𝑣 = (Baseβ€˜π‘Ÿ)) β†’ ([(0gβ€˜π‘Ÿ) / 𝑧][(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝑣 βˆ€π‘ ∈ 𝑣 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘)) ↔ [(0gβ€˜π‘Ÿ) / 𝑧][(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘))))
2916, 28sbcied 3820 . . . . 5 (π‘Ÿ = 𝑅 β†’ ([(Baseβ€˜π‘Ÿ) / 𝑣][(0gβ€˜π‘Ÿ) / 𝑧][(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝑣 βˆ€π‘ ∈ 𝑣 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘)) ↔ [(0gβ€˜π‘Ÿ) / 𝑧][(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘))))
30 fvexd 6909 . . . . . 6 (π‘Ÿ = 𝑅 β†’ (0gβ€˜π‘Ÿ) ∈ V)
31 simpr 483 . . . . . . . . . . . . 13 ((π‘Ÿ = 𝑅 ∧ 𝑧 = (0gβ€˜π‘Ÿ)) β†’ 𝑧 = (0gβ€˜π‘Ÿ))
32 fveq2 6894 . . . . . . . . . . . . . . 15 (π‘Ÿ = 𝑅 β†’ (0gβ€˜π‘Ÿ) = (0gβ€˜π‘…))
33 isorng.1 . . . . . . . . . . . . . . 15 0 = (0gβ€˜π‘…)
3432, 33eqtr4di 2783 . . . . . . . . . . . . . 14 (π‘Ÿ = 𝑅 β†’ (0gβ€˜π‘Ÿ) = 0 )
3534adantr 479 . . . . . . . . . . . . 13 ((π‘Ÿ = 𝑅 ∧ 𝑧 = (0gβ€˜π‘Ÿ)) β†’ (0gβ€˜π‘Ÿ) = 0 )
3631, 35eqtrd 2765 . . . . . . . . . . . 12 ((π‘Ÿ = 𝑅 ∧ 𝑧 = (0gβ€˜π‘Ÿ)) β†’ 𝑧 = 0 )
3736breq1d 5158 . . . . . . . . . . 11 ((π‘Ÿ = 𝑅 ∧ 𝑧 = (0gβ€˜π‘Ÿ)) β†’ (π‘§π‘™π‘Ž ↔ 0 π‘™π‘Ž))
3836breq1d 5158 . . . . . . . . . . 11 ((π‘Ÿ = 𝑅 ∧ 𝑧 = (0gβ€˜π‘Ÿ)) β†’ (𝑧𝑙𝑏 ↔ 0 𝑙𝑏))
3937, 38anbi12d 630 . . . . . . . . . 10 ((π‘Ÿ = 𝑅 ∧ 𝑧 = (0gβ€˜π‘Ÿ)) β†’ ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) ↔ ( 0 π‘™π‘Ž ∧ 0 𝑙𝑏)))
4036breq1d 5158 . . . . . . . . . 10 ((π‘Ÿ = 𝑅 ∧ 𝑧 = (0gβ€˜π‘Ÿ)) β†’ (𝑧𝑙(π‘Žπ‘‘π‘) ↔ 0 𝑙(π‘Žπ‘‘π‘)))
4139, 40imbi12d 343 . . . . . . . . 9 ((π‘Ÿ = 𝑅 ∧ 𝑧 = (0gβ€˜π‘Ÿ)) β†’ (((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘)) ↔ (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Žπ‘‘π‘))))
42412ralbidv 3209 . . . . . . . 8 ((π‘Ÿ = 𝑅 ∧ 𝑧 = (0gβ€˜π‘Ÿ)) β†’ (βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘)) ↔ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Žπ‘‘π‘))))
4342sbcbidv 3834 . . . . . . 7 ((π‘Ÿ = 𝑅 ∧ 𝑧 = (0gβ€˜π‘Ÿ)) β†’ ([(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘)) ↔ [(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Žπ‘‘π‘))))
4443sbcbidv 3834 . . . . . 6 ((π‘Ÿ = 𝑅 ∧ 𝑧 = (0gβ€˜π‘Ÿ)) β†’ ([(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘)) ↔ [(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Žπ‘‘π‘))))
4530, 44sbcied 3820 . . . . 5 (π‘Ÿ = 𝑅 β†’ ([(0gβ€˜π‘Ÿ) / 𝑧][(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘)) ↔ [(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Žπ‘‘π‘))))
4629, 45bitr2d 279 . . . 4 (π‘Ÿ = 𝑅 β†’ ([(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Žπ‘‘π‘)) ↔ [(Baseβ€˜π‘Ÿ) / 𝑣][(0gβ€˜π‘Ÿ) / 𝑧][(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝑣 βˆ€π‘ ∈ 𝑣 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘))))
47 fvexd 6909 . . . . 5 (π‘Ÿ = 𝑅 β†’ (leβ€˜π‘Ÿ) ∈ V)
48 simpr 483 . . . . . . . . . 10 ((π‘Ÿ = 𝑅 ∧ 𝑙 = (leβ€˜π‘Ÿ)) β†’ 𝑙 = (leβ€˜π‘Ÿ))
49 simpl 481 . . . . . . . . . . . 12 ((π‘Ÿ = 𝑅 ∧ 𝑙 = (leβ€˜π‘Ÿ)) β†’ π‘Ÿ = 𝑅)
5049fveq2d 6898 . . . . . . . . . . 11 ((π‘Ÿ = 𝑅 ∧ 𝑙 = (leβ€˜π‘Ÿ)) β†’ (leβ€˜π‘Ÿ) = (leβ€˜π‘…))
51 isorng.3 . . . . . . . . . . 11 ≀ = (leβ€˜π‘…)
5250, 51eqtr4di 2783 . . . . . . . . . 10 ((π‘Ÿ = 𝑅 ∧ 𝑙 = (leβ€˜π‘Ÿ)) β†’ (leβ€˜π‘Ÿ) = ≀ )
5348, 52eqtrd 2765 . . . . . . . . 9 ((π‘Ÿ = 𝑅 ∧ 𝑙 = (leβ€˜π‘Ÿ)) β†’ 𝑙 = ≀ )
5453breqd 5159 . . . . . . . 8 ((π‘Ÿ = 𝑅 ∧ 𝑙 = (leβ€˜π‘Ÿ)) β†’ ( 0 π‘™π‘Ž ↔ 0 ≀ π‘Ž))
5553breqd 5159 . . . . . . . 8 ((π‘Ÿ = 𝑅 ∧ 𝑙 = (leβ€˜π‘Ÿ)) β†’ ( 0 𝑙𝑏 ↔ 0 ≀ 𝑏))
5654, 55anbi12d 630 . . . . . . 7 ((π‘Ÿ = 𝑅 ∧ 𝑙 = (leβ€˜π‘Ÿ)) β†’ (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) ↔ ( 0 ≀ π‘Ž ∧ 0 ≀ 𝑏)))
5753breqd 5159 . . . . . . 7 ((π‘Ÿ = 𝑅 ∧ 𝑙 = (leβ€˜π‘Ÿ)) β†’ ( 0 𝑙(π‘Ž Β· 𝑏) ↔ 0 ≀ (π‘Ž Β· 𝑏)))
5856, 57imbi12d 343 . . . . . 6 ((π‘Ÿ = 𝑅 ∧ 𝑙 = (leβ€˜π‘Ÿ)) β†’ ((( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Ž Β· 𝑏)) ↔ (( 0 ≀ π‘Ž ∧ 0 ≀ 𝑏) β†’ 0 ≀ (π‘Ž Β· 𝑏))))
59582ralbidv 3209 . . . . 5 ((π‘Ÿ = 𝑅 ∧ 𝑙 = (leβ€˜π‘Ÿ)) β†’ (βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Ž Β· 𝑏)) ↔ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 ≀ π‘Ž ∧ 0 ≀ 𝑏) β†’ 0 ≀ (π‘Ž Β· 𝑏))))
6047, 59sbcied 3820 . . . 4 (π‘Ÿ = 𝑅 β†’ ([(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 π‘™π‘Ž ∧ 0 𝑙𝑏) β†’ 0 𝑙(π‘Ž Β· 𝑏)) ↔ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 ≀ π‘Ž ∧ 0 ≀ 𝑏) β†’ 0 ≀ (π‘Ž Β· 𝑏))))
6115, 46, 603bitr3d 308 . . 3 (π‘Ÿ = 𝑅 β†’ ([(Baseβ€˜π‘Ÿ) / 𝑣][(0gβ€˜π‘Ÿ) / 𝑧][(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝑣 βˆ€π‘ ∈ 𝑣 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘)) ↔ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 ≀ π‘Ž ∧ 0 ≀ 𝑏) β†’ 0 ≀ (π‘Ž Β· 𝑏))))
62 df-orng 33072 . . 3 oRing = {π‘Ÿ ∈ (Ring ∩ oGrp) ∣ [(Baseβ€˜π‘Ÿ) / 𝑣][(0gβ€˜π‘Ÿ) / 𝑧][(.rβ€˜π‘Ÿ) / 𝑑][(leβ€˜π‘Ÿ) / 𝑙]βˆ€π‘Ž ∈ 𝑣 βˆ€π‘ ∈ 𝑣 ((π‘§π‘™π‘Ž ∧ 𝑧𝑙𝑏) β†’ 𝑧𝑙(π‘Žπ‘‘π‘))}
6361, 62elrab2 3683 . 2 (𝑅 ∈ oRing ↔ (𝑅 ∈ (Ring ∩ oGrp) ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 ≀ π‘Ž ∧ 0 ≀ 𝑏) β†’ 0 ≀ (π‘Ž Β· 𝑏))))
64 df-3an 1086 . 2 ((𝑅 ∈ Ring ∧ 𝑅 ∈ oGrp ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 ≀ π‘Ž ∧ 0 ≀ 𝑏) β†’ 0 ≀ (π‘Ž Β· 𝑏))) ↔ ((𝑅 ∈ Ring ∧ 𝑅 ∈ oGrp) ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 ≀ π‘Ž ∧ 0 ≀ 𝑏) β†’ 0 ≀ (π‘Ž Β· 𝑏))))
652, 63, 643bitr4i 302 1 (𝑅 ∈ oRing ↔ (𝑅 ∈ Ring ∧ 𝑅 ∈ oGrp ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (( 0 ≀ π‘Ž ∧ 0 ≀ 𝑏) β†’ 0 ≀ (π‘Ž Β· 𝑏))))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 394   ∧ w3a 1084   = wceq 1533   ∈ wcel 2098  βˆ€wral 3051  Vcvv 3463  [wsbc 3774   ∩ cin 3944   class class class wbr 5148  β€˜cfv 6547  (class class class)co 7417  Basecbs 17179  .rcmulr 17233  lecple 17239  0gc0g 17420  Ringcrg 20177  oGrpcogrp 32835  oRingcorng 33070
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-ext 2696  ax-nul 5306
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-sb 2060  df-clab 2703  df-cleq 2717  df-clel 2802  df-ne 2931  df-ral 3052  df-rex 3061  df-rab 3420  df-v 3465  df-sbc 3775  df-dif 3948  df-un 3950  df-in 3952  df-ss 3962  df-nul 4324  df-if 4530  df-sn 4630  df-pr 4632  df-op 4636  df-uni 4909  df-br 5149  df-iota 6499  df-fv 6555  df-ov 7420  df-orng 33072
This theorem is referenced by:  orngring  33075  orngogrp  33076  orngmul  33078  suborng  33090  reofld  33116
  Copyright terms: Public domain W3C validator