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

Theorem extdg1id 31156
 Description: If the degree of the extension 𝐸/FldExt𝐹 is 1, then 𝐸 and 𝐹 are identical. (Contributed by Thierry Arnoux, 6-Aug-2023.)
Assertion
Ref Expression
extdg1id ((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → 𝐸 = 𝐹)

Proof of Theorem extdg1id
Dummy variables 𝑎 𝑥 𝑏 𝑖 𝑣 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fldextress 31145 . . 3 (𝐸/FldExt𝐹𝐹 = (𝐸s (Base‘𝐹)))
21adantr 484 . 2 ((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → 𝐹 = (𝐸s (Base‘𝐹)))
3 fldextsralvec 31148 . . . . . . 7 (𝐸/FldExt𝐹 → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
43adantr 484 . . . . . 6 ((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
5 eqid 2798 . . . . . . 7 (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
65lbsex 19934 . . . . . 6 (((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec → (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅)
74, 6syl 17 . . . . 5 ((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅)
8 n0 4260 . . . . 5 ((LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅ ↔ ∃𝑏 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
97, 8sylib 221 . . . 4 ((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → ∃𝑏 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
10 simpr 488 . . . . . 6 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
115dimval 31104 . . . . . . . 8 ((((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (♯‘𝑏))
124, 11sylan 583 . . . . . . 7 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (♯‘𝑏))
13 extdgval 31147 . . . . . . . . . 10 (𝐸/FldExt𝐹 → (𝐸[:]𝐹) = (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
1413adantr 484 . . . . . . . . 9 ((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (𝐸[:]𝐹) = (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
15 simpr 488 . . . . . . . . 9 ((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (𝐸[:]𝐹) = 1)
1614, 15eqtr3d 2835 . . . . . . . 8 ((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = 1)
1716adantr 484 . . . . . . 7 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = 1)
1812, 17eqtr3d 2835 . . . . . 6 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (♯‘𝑏) = 1)
19 hash1snb 13779 . . . . . . 7 (𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) → ((♯‘𝑏) = 1 ↔ ∃𝑥 𝑏 = {𝑥}))
2019biimpa 480 . . . . . 6 ((𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ∧ (♯‘𝑏) = 1) → ∃𝑥 𝑏 = {𝑥})
2110, 18, 20syl2anc 587 . . . . 5 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ∃𝑥 𝑏 = {𝑥})
22 simpr 488 . . . . . . . . . 10 ((((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ 𝑣 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
23 simplr 768 . . . . . . . . . . . . . . . 16 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → 𝑏 = {𝑥})
24 eqidd 2799 . . . . . . . . . . . . . . . . . . . 20 (𝐸/FldExt𝐹 → ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹)))
25 eqid 2798 . . . . . . . . . . . . . . . . . . . . . 22 (Base‘𝐹) = (Base‘𝐹)
2625fldextsubrg 31144 . . . . . . . . . . . . . . . . . . . . 21 (𝐸/FldExt𝐹 → (Base‘𝐹) ∈ (SubRing‘𝐸))
27 eqid 2798 . . . . . . . . . . . . . . . . . . . . . 22 (Base‘𝐸) = (Base‘𝐸)
2827subrgss 19533 . . . . . . . . . . . . . . . . . . . . 21 ((Base‘𝐹) ∈ (SubRing‘𝐸) → (Base‘𝐹) ⊆ (Base‘𝐸))
2926, 28syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝐸/FldExt𝐹 → (Base‘𝐹) ⊆ (Base‘𝐸))
3024, 29sravsca 19951 . . . . . . . . . . . . . . . . . . 19 (𝐸/FldExt𝐹 → (.r𝐸) = ( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
3130eqcomd 2804 . . . . . . . . . . . . . . . . . 18 (𝐸/FldExt𝐹 → ( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (.r𝐸))
3231ad5antr 733 . . . . . . . . . . . . . . . . 17 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ 𝑖𝑏) → ( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (.r𝐸))
3332oveqd 7153 . . . . . . . . . . . . . . . 16 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ 𝑖𝑏) → ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖) = ((𝑣𝑖)(.r𝐸)𝑖))
3423, 33mpteq12dva 5115 . . . . . . . . . . . . . . 15 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)) = (𝑖 ∈ {𝑥} ↦ ((𝑣𝑖)(.r𝐸)𝑖)))
3534oveq2d 7152 . . . . . . . . . . . . . 14 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (𝐸 Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (𝐸 Σg (𝑖 ∈ {𝑥} ↦ ((𝑣𝑖)(.r𝐸)𝑖))))
36 eqid 2798 . . . . . . . . . . . . . . . . 17 ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹))
37 fldextfld1 31142 . . . . . . . . . . . . . . . . . . 19 (𝐸/FldExt𝐹𝐸 ∈ Field)
38 isfld 19508 . . . . . . . . . . . . . . . . . . . 20 (𝐸 ∈ Field ↔ (𝐸 ∈ DivRing ∧ 𝐸 ∈ CRing))
3938simplbi 501 . . . . . . . . . . . . . . . . . . 19 (𝐸 ∈ Field → 𝐸 ∈ DivRing)
4037, 39syl 17 . . . . . . . . . . . . . . . . . 18 (𝐸/FldExt𝐹𝐸 ∈ DivRing)
4140adantr 484 . . . . . . . . . . . . . . . . 17 ((𝐸/FldExt𝐹𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝐸 ∈ DivRing)
4226adantr 484 . . . . . . . . . . . . . . . . 17 ((𝐸/FldExt𝐹𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (Base‘𝐹) ∈ (SubRing‘𝐸))
43 eqid 2798 . . . . . . . . . . . . . . . . 17 (𝐸s (Base‘𝐹)) = (𝐸s (Base‘𝐹))
44 fldextfld2 31143 . . . . . . . . . . . . . . . . . . . 20 (𝐸/FldExt𝐹𝐹 ∈ Field)
45 isfld 19508 . . . . . . . . . . . . . . . . . . . . 21 (𝐹 ∈ Field ↔ (𝐹 ∈ DivRing ∧ 𝐹 ∈ CRing))
4645simplbi 501 . . . . . . . . . . . . . . . . . . . 20 (𝐹 ∈ Field → 𝐹 ∈ DivRing)
4744, 46syl 17 . . . . . . . . . . . . . . . . . . 19 (𝐸/FldExt𝐹𝐹 ∈ DivRing)
481, 47eqeltrrd 2891 . . . . . . . . . . . . . . . . . 18 (𝐸/FldExt𝐹 → (𝐸s (Base‘𝐹)) ∈ DivRing)
4948adantr 484 . . . . . . . . . . . . . . . . 17 ((𝐸/FldExt𝐹𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (𝐸s (Base‘𝐹)) ∈ DivRing)
50 simpr 488 . . . . . . . . . . . . . . . . 17 ((𝐸/FldExt𝐹𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
5136, 41, 42, 43, 49, 50drgextgsum 31100 . . . . . . . . . . . . . . . 16 ((𝐸/FldExt𝐹𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (𝐸 Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
5251adantlr 714 . . . . . . . . . . . . . . 15 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (𝐸 Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
5352ad2antrr 725 . . . . . . . . . . . . . 14 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (𝐸 Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
54 drngring 19506 . . . . . . . . . . . . . . . . . . 19 (𝐸 ∈ DivRing → 𝐸 ∈ Ring)
5537, 39, 543syl 18 . . . . . . . . . . . . . . . . . 18 (𝐸/FldExt𝐹𝐸 ∈ Ring)
56 ringmnd 19304 . . . . . . . . . . . . . . . . . 18 (𝐸 ∈ Ring → 𝐸 ∈ Mnd)
5755, 56syl 17 . . . . . . . . . . . . . . . . 17 (𝐸/FldExt𝐹𝐸 ∈ Mnd)
5857ad4antr 731 . . . . . . . . . . . . . . . 16 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → 𝐸 ∈ Mnd)
59 vex 3444 . . . . . . . . . . . . . . . . 17 𝑥 ∈ V
6059a1i 11 . . . . . . . . . . . . . . . 16 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → 𝑥 ∈ V)
6155ad3antrrr 729 . . . . . . . . . . . . . . . . . 18 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝐸 ∈ Ring)
6261adantr 484 . . . . . . . . . . . . . . . . 17 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → 𝐸 ∈ Ring)
6329ad3antrrr 729 . . . . . . . . . . . . . . . . . . 19 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (Base‘𝐹) ⊆ (Base‘𝐸))
6463adantr 484 . . . . . . . . . . . . . . . . . 18 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (Base‘𝐹) ⊆ (Base‘𝐸))
65 elmapi 8414 . . . . . . . . . . . . . . . . . . . . 21 (𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏) → 𝑣:𝑏⟶(Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
6665adantl 485 . . . . . . . . . . . . . . . . . . . 20 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → 𝑣:𝑏⟶(Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
67 vsnid 4562 . . . . . . . . . . . . . . . . . . . . 21 𝑥 ∈ {𝑥}
6867, 23eleqtrrid 2897 . . . . . . . . . . . . . . . . . . . 20 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → 𝑥𝑏)
6966, 68ffvelrnd 6830 . . . . . . . . . . . . . . . . . . 19 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (𝑣𝑥) ∈ (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
7024, 29srasca 19950 . . . . . . . . . . . . . . . . . . . . . 22 (𝐸/FldExt𝐹 → (𝐸s (Base‘𝐹)) = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
711, 70eqtrd 2833 . . . . . . . . . . . . . . . . . . . . 21 (𝐸/FldExt𝐹𝐹 = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
7271fveq2d 6650 . . . . . . . . . . . . . . . . . . . 20 (𝐸/FldExt𝐹 → (Base‘𝐹) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
7372ad4antr 731 . . . . . . . . . . . . . . . . . . 19 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (Base‘𝐹) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
7469, 73eleqtrrd 2893 . . . . . . . . . . . . . . . . . 18 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (𝑣𝑥) ∈ (Base‘𝐹))
7564, 74sseldd 3916 . . . . . . . . . . . . . . . . 17 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (𝑣𝑥) ∈ (Base‘𝐸))
76 simpr 488 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑏 = {𝑥})
77 simplr 768 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
78 eqid 2798 . . . . . . . . . . . . . . . . . . . . . . 23 (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
7978, 5lbsss 19846 . . . . . . . . . . . . . . . . . . . . . 22 (𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
8077, 79syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
8176, 80eqsstrrd 3954 . . . . . . . . . . . . . . . . . . . 20 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → {𝑥} ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
8259snss 4679 . . . . . . . . . . . . . . . . . . . 20 (𝑥 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ↔ {𝑥} ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
8381, 82sylibr 237 . . . . . . . . . . . . . . . . . . 19 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑥 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
84 eqidd 2799 . . . . . . . . . . . . . . . . . . . 20 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹)))
8584, 63srabase 19947 . . . . . . . . . . . . . . . . . . 19 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (Base‘𝐸) = (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
8683, 85eleqtrrd 2893 . . . . . . . . . . . . . . . . . 18 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑥 ∈ (Base‘𝐸))
8786adantr 484 . . . . . . . . . . . . . . . . 17 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → 𝑥 ∈ (Base‘𝐸))
88 eqid 2798 . . . . . . . . . . . . . . . . . 18 (.r𝐸) = (.r𝐸)
8927, 88ringcl 19311 . . . . . . . . . . . . . . . . 17 ((𝐸 ∈ Ring ∧ (𝑣𝑥) ∈ (Base‘𝐸) ∧ 𝑥 ∈ (Base‘𝐸)) → ((𝑣𝑥)(.r𝐸)𝑥) ∈ (Base‘𝐸))
9062, 75, 87, 89syl3anc 1368 . . . . . . . . . . . . . . . 16 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → ((𝑣𝑥)(.r𝐸)𝑥) ∈ (Base‘𝐸))
91 simpr 488 . . . . . . . . . . . . . . . . . 18 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ 𝑖 = 𝑥) → 𝑖 = 𝑥)
9291fveq2d 6650 . . . . . . . . . . . . . . . . 17 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ 𝑖 = 𝑥) → (𝑣𝑖) = (𝑣𝑥))
9392, 91oveq12d 7154 . . . . . . . . . . . . . . . 16 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ 𝑖 = 𝑥) → ((𝑣𝑖)(.r𝐸)𝑖) = ((𝑣𝑥)(.r𝐸)𝑥))
9427, 58, 60, 90, 93gsumsnd 19069 . . . . . . . . . . . . . . 15 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (𝐸 Σg (𝑖 ∈ {𝑥} ↦ ((𝑣𝑖)(.r𝐸)𝑖))) = ((𝑣𝑥)(.r𝐸)𝑥))
951fveq2d 6650 . . . . . . . . . . . . . . . . . 18 (𝐸/FldExt𝐹 → (.r𝐹) = (.r‘(𝐸s (Base‘𝐹))))
9643, 88ressmulr 16620 . . . . . . . . . . . . . . . . . . 19 ((Base‘𝐹) ∈ (SubRing‘𝐸) → (.r𝐸) = (.r‘(𝐸s (Base‘𝐹))))
9726, 96syl 17 . . . . . . . . . . . . . . . . . 18 (𝐸/FldExt𝐹 → (.r𝐸) = (.r‘(𝐸s (Base‘𝐹))))
9895, 97eqtr4d 2836 . . . . . . . . . . . . . . . . 17 (𝐸/FldExt𝐹 → (.r𝐹) = (.r𝐸))
9998ad4antr 731 . . . . . . . . . . . . . . . 16 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (.r𝐹) = (.r𝐸))
10099oveqd 7153 . . . . . . . . . . . . . . 15 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → ((𝑣𝑥)(.r𝐹)𝑥) = ((𝑣𝑥)(.r𝐸)𝑥))
10194, 100eqtr4d 2836 . . . . . . . . . . . . . 14 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (𝐸 Σg (𝑖 ∈ {𝑥} ↦ ((𝑣𝑖)(.r𝐸)𝑖))) = ((𝑣𝑥)(.r𝐹)𝑥))
10235, 53, 1013eqtr3d 2841 . . . . . . . . . . . . 13 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = ((𝑣𝑥)(.r𝐹)𝑥))
103102adantlr 714 . . . . . . . . . . . 12 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = ((𝑣𝑥)(.r𝐹)𝑥))
104 drngring 19506 . . . . . . . . . . . . . . 15 (𝐹 ∈ DivRing → 𝐹 ∈ Ring)
10544, 46, 1043syl 18 . . . . . . . . . . . . . 14 (𝐸/FldExt𝐹𝐹 ∈ Ring)
106105ad5antr 733 . . . . . . . . . . . . 13 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → 𝐹 ∈ Ring)
10774adantlr 714 . . . . . . . . . . . . 13 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (𝑣𝑥) ∈ (Base‘𝐹))
108 eqid 2798 . . . . . . . . . . . . . . . . . . . 20 (1r𝐸) = (1r𝐸)
109 eqid 2798 . . . . . . . . . . . . . . . . . . . 20 (Unit‘𝐸) = (Unit‘𝐸)
110 eqid 2798 . . . . . . . . . . . . . . . . . . . 20 (invr𝐸) = (invr𝐸)
111 simp-5l 784 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐸/FldExt𝐹)
112111, 55syl 17 . . . . . . . . . . . . . . . . . . . 20 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐸 ∈ Ring)
11387adantr 484 . . . . . . . . . . . . . . . . . . . 20 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ∈ (Base‘𝐸))
11475adantr 484 . . . . . . . . . . . . . . . . . . . 20 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑣𝑥) ∈ (Base‘𝐸))
11538simprbi 500 . . . . . . . . . . . . . . . . . . . . . . 23 (𝐸 ∈ Field → 𝐸 ∈ CRing)
116111, 37, 1153syl 18 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐸 ∈ CRing)
11727, 88crngcom 19312 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐸 ∈ CRing ∧ 𝑥 ∈ (Base‘𝐸) ∧ (𝑣𝑥) ∈ (Base‘𝐸)) → (𝑥(.r𝐸)(𝑣𝑥)) = ((𝑣𝑥)(.r𝐸)𝑥))
118116, 113, 114, 117syl3anc 1368 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑥(.r𝐸)(𝑣𝑥)) = ((𝑣𝑥)(.r𝐸)𝑥))
119 simpr 488 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
12052ad3antrrr 729 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝐸 Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
12134adantr 484 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)) = (𝑖 ∈ {𝑥} ↦ ((𝑣𝑖)(.r𝐸)𝑖)))
122121oveq2d 7152 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝐸 Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (𝐸 Σg (𝑖 ∈ {𝑥} ↦ ((𝑣𝑖)(.r𝐸)𝑖))))
123119, 120, 1223eqtr2d 2839 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (1r𝐸) = (𝐸 Σg (𝑖 ∈ {𝑥} ↦ ((𝑣𝑖)(.r𝐸)𝑖))))
12494adantr 484 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝐸 Σg (𝑖 ∈ {𝑥} ↦ ((𝑣𝑖)(.r𝐸)𝑖))) = ((𝑣𝑥)(.r𝐸)𝑥))
125123, 124eqtrd 2833 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (1r𝐸) = ((𝑣𝑥)(.r𝐸)𝑥))
126118, 125eqtr4d 2836 . . . . . . . . . . . . . . . . . . . 20 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑥(.r𝐸)(𝑣𝑥)) = (1r𝐸))
127125eqcomd 2804 . . . . . . . . . . . . . . . . . . . 20 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((𝑣𝑥)(.r𝐸)𝑥) = (1r𝐸))
12827, 88, 108, 109, 110, 112, 113, 114, 126, 127invrvald 21291 . . . . . . . . . . . . . . . . . . 19 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑥 ∈ (Unit‘𝐸) ∧ ((invr𝐸)‘𝑥) = (𝑣𝑥)))
129128simpld 498 . . . . . . . . . . . . . . . . . 18 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ∈ (Unit‘𝐸))
130109, 110unitinvinv 19425 . . . . . . . . . . . . . . . . . 18 ((𝐸 ∈ Ring ∧ 𝑥 ∈ (Unit‘𝐸)) → ((invr𝐸)‘((invr𝐸)‘𝑥)) = 𝑥)
13162, 129, 130syl2an2r 684 . . . . . . . . . . . . . . . . 17 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((invr𝐸)‘((invr𝐸)‘𝑥)) = 𝑥)
132111, 37, 393syl 18 . . . . . . . . . . . . . . . . . 18 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐸 ∈ DivRing)
133111, 26syl 17 . . . . . . . . . . . . . . . . . 18 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (Base‘𝐹) ∈ (SubRing‘𝐸))
134111, 1syl 17 . . . . . . . . . . . . . . . . . . 19 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐹 = (𝐸s (Base‘𝐹)))
135111, 44, 463syl 18 . . . . . . . . . . . . . . . . . . 19 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐹 ∈ DivRing)
136134, 135eqeltrrd 2891 . . . . . . . . . . . . . . . . . 18 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝐸s (Base‘𝐹)) ∈ DivRing)
137128simprd 499 . . . . . . . . . . . . . . . . . . . 20 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((invr𝐸)‘𝑥) = (𝑣𝑥))
13874adantr 484 . . . . . . . . . . . . . . . . . . . 20 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑣𝑥) ∈ (Base‘𝐹))
139137, 138eqeltrd 2890 . . . . . . . . . . . . . . . . . . 19 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((invr𝐸)‘𝑥) ∈ (Base‘𝐹))
140 eqidd 2799 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐸/FldExt𝐹 → (0g𝐸) = (0g𝐸))
14124, 140, 29sralmod0 19957 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐸/FldExt𝐹 → (0g𝐸) = (0g‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
142141ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (0g𝐸) = (0g‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
1435lbslinds 20527 . . . . . . . . . . . . . . . . . . . . . . . . 25 (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ⊆ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
144143, 10sseldi 3913 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝑏 ∈ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
145 eqid 2798 . . . . . . . . . . . . . . . . . . . . . . . . 25 (0g‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (0g‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
1461450nellinds 30996 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec ∧ 𝑏 ∈ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ¬ (0g‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ∈ 𝑏)
1474, 144, 146syl2an2r 684 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ¬ (0g‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ∈ 𝑏)
148142, 147eqneltrd 2909 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ¬ (0g𝐸) ∈ 𝑏)
149148ad3antrrr 729 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ¬ (0g𝐸) ∈ 𝑏)
150 nelne2 3084 . . . . . . . . . . . . . . . . . . . . 21 ((𝑥𝑏 ∧ ¬ (0g𝐸) ∈ 𝑏) → 𝑥 ≠ (0g𝐸))
15168, 149, 150syl2an2r 684 . . . . . . . . . . . . . . . . . . . 20 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ≠ (0g𝐸))
152 eqid 2798 . . . . . . . . . . . . . . . . . . . . 21 (0g𝐸) = (0g𝐸)
15327, 152, 110drnginvrn0 19517 . . . . . . . . . . . . . . . . . . . 20 ((𝐸 ∈ DivRing ∧ 𝑥 ∈ (Base‘𝐸) ∧ 𝑥 ≠ (0g𝐸)) → ((invr𝐸)‘𝑥) ≠ (0g𝐸))
154132, 113, 151, 153syl3anc 1368 . . . . . . . . . . . . . . . . . . 19 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((invr𝐸)‘𝑥) ≠ (0g𝐸))
155 eldifsn 4680 . . . . . . . . . . . . . . . . . . 19 (((invr𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0g𝐸)}) ↔ (((invr𝐸)‘𝑥) ∈ (Base‘𝐹) ∧ ((invr𝐸)‘𝑥) ≠ (0g𝐸)))
156139, 154, 155sylanbrc 586 . . . . . . . . . . . . . . . . . 18 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((invr𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0g𝐸)}))
157 fveq2 6646 . . . . . . . . . . . . . . . . . . . 20 (𝑎 = ((invr𝐸)‘𝑥) → ((invr𝐸)‘𝑎) = ((invr𝐸)‘((invr𝐸)‘𝑥)))
158157eleq1d 2874 . . . . . . . . . . . . . . . . . . 19 (𝑎 = ((invr𝐸)‘𝑥) → (((invr𝐸)‘𝑎) ∈ (Base‘𝐹) ↔ ((invr𝐸)‘((invr𝐸)‘𝑥)) ∈ (Base‘𝐹)))
15943, 152, 110issubdrg 19557 . . . . . . . . . . . . . . . . . . . . 21 ((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) → ((𝐸s (Base‘𝐹)) ∈ DivRing ↔ ∀𝑎 ∈ ((Base‘𝐹) ∖ {(0g𝐸)})((invr𝐸)‘𝑎) ∈ (Base‘𝐹)))
160159biimpa 480 . . . . . . . . . . . . . . . . . . . 20 (((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸s (Base‘𝐹)) ∈ DivRing) → ∀𝑎 ∈ ((Base‘𝐹) ∖ {(0g𝐸)})((invr𝐸)‘𝑎) ∈ (Base‘𝐹))
161160adantr 484 . . . . . . . . . . . . . . . . . . 19 ((((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸s (Base‘𝐹)) ∈ DivRing) ∧ ((invr𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0g𝐸)})) → ∀𝑎 ∈ ((Base‘𝐹) ∖ {(0g𝐸)})((invr𝐸)‘𝑎) ∈ (Base‘𝐹))
162 simpr 488 . . . . . . . . . . . . . . . . . . 19 ((((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸s (Base‘𝐹)) ∈ DivRing) ∧ ((invr𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0g𝐸)})) → ((invr𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0g𝐸)}))
163158, 161, 162rspcdva 3573 . . . . . . . . . . . . . . . . . 18 ((((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸s (Base‘𝐹)) ∈ DivRing) ∧ ((invr𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0g𝐸)})) → ((invr𝐸)‘((invr𝐸)‘𝑥)) ∈ (Base‘𝐹))
164132, 133, 136, 156, 163syl1111anc 838 . . . . . . . . . . . . . . . . 17 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((invr𝐸)‘((invr𝐸)‘𝑥)) ∈ (Base‘𝐹))
165131, 164eqeltrrd 2891 . . . . . . . . . . . . . . . 16 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ∈ (Base‘𝐹))
166165adantrl 715 . . . . . . . . . . . . . . 15 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (𝑣 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))) → 𝑥 ∈ (Base‘𝐹))
16727, 108ringidcl 19318 . . . . . . . . . . . . . . . . . 18 (𝐸 ∈ Ring → (1r𝐸) ∈ (Base‘𝐸))
16861, 167syl 17 . . . . . . . . . . . . . . . . 17 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (1r𝐸) ∈ (Base‘𝐸))
169168, 85eleqtrd 2892 . . . . . . . . . . . . . . . 16 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (1r𝐸) ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
170 eqid 2798 . . . . . . . . . . . . . . . . 17 (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
171 eqid 2798 . . . . . . . . . . . . . . . . 17 (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
172 eqid 2798 . . . . . . . . . . . . . . . . 17 (0g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) = (0g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
173 eqid 2798 . . . . . . . . . . . . . . . . 17 ( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = ( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
1744ad2antrr 725 . . . . . . . . . . . . . . . . . 18 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
175 lveclmod 19875 . . . . . . . . . . . . . . . . . 18 (((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LMod)
176174, 175syl 17 . . . . . . . . . . . . . . . . 17 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LMod)
17778, 170, 171, 172, 173, 176, 77lbslsp 31002 . . . . . . . . . . . . . . . 16 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((1r𝐸) ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ↔ ∃𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)(𝑣 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))))
178169, 177mpbid 235 . . . . . . . . . . . . . . 15 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ∃𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)(𝑣 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ (1r𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))))
179166, 178r19.29a 3248 . . . . . . . . . . . . . 14 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑥 ∈ (Base‘𝐹))
180179ad2antrr 725 . . . . . . . . . . . . 13 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → 𝑥 ∈ (Base‘𝐹))
181 eqid 2798 . . . . . . . . . . . . . 14 (.r𝐹) = (.r𝐹)
18225, 181ringcl 19311 . . . . . . . . . . . . 13 ((𝐹 ∈ Ring ∧ (𝑣𝑥) ∈ (Base‘𝐹) ∧ 𝑥 ∈ (Base‘𝐹)) → ((𝑣𝑥)(.r𝐹)𝑥) ∈ (Base‘𝐹))
183106, 107, 180, 182syl3anc 1368 . . . . . . . . . . . 12 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → ((𝑣𝑥)(.r𝐹)𝑥) ∈ (Base‘𝐹))
184103, 183eqeltrd 2890 . . . . . . . . . . 11 ((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) ∈ (Base‘𝐹))
185184ad2antrr 725 . . . . . . . . . 10 ((((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ 𝑣 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) ∈ (Base‘𝐹))
18622, 185eqeltrd 2890 . . . . . . . . 9 ((((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ 𝑣 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑢 ∈ (Base‘𝐹))
187186anasss 470 . . . . . . . 8 (((((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)) ∧ (𝑣 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))) → 𝑢 ∈ (Base‘𝐹))
18885eleq2d 2875 . . . . . . . . . 10 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘𝐸) ↔ 𝑢 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
18978, 170, 171, 172, 173, 176, 77lbslsp 31002 . . . . . . . . . 10 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ↔ ∃𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)(𝑣 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))))
190188, 189bitrd 282 . . . . . . . . 9 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘𝐸) ↔ ∃𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)(𝑣 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))))
191190biimpa 480 . . . . . . . 8 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) → ∃𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑m 𝑏)(𝑣 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σg (𝑖𝑏 ↦ ((𝑣𝑖)( ·𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))))
192187, 191r19.29a 3248 . . . . . . 7 (((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) → 𝑢 ∈ (Base‘𝐹))
193192ex 416 . . . . . 6 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘𝐸) → 𝑢 ∈ (Base‘𝐹)))
194193ssrdv 3921 . . . . 5 ((((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (Base‘𝐸) ⊆ (Base‘𝐹))
19521, 194exlimddv 1936 . . . 4 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (Base‘𝐸) ⊆ (Base‘𝐹))
1969, 195exlimddv 1936 . . 3 ((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (Base‘𝐸) ⊆ (Base‘𝐹))
197 simpr 488 . . . 4 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → (Base‘𝐸) ⊆ (Base‘𝐹))
19837ad2antrr 725 . . . 4 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → 𝐸 ∈ Field)
199 fvexd 6661 . . . 4 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → (Base‘𝐹) ∈ V)
20043, 27ressid2 16547 . . . 4 (((Base‘𝐸) ⊆ (Base‘𝐹) ∧ 𝐸 ∈ Field ∧ (Base‘𝐹) ∈ V) → (𝐸s (Base‘𝐹)) = 𝐸)
201197, 198, 199, 200syl3anc 1368 . . 3 (((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → (𝐸s (Base‘𝐹)) = 𝐸)
202196, 201mpdan 686 . 2 ((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (𝐸s (Base‘𝐹)) = 𝐸)
2032, 202eqtr2d 2834 1 ((𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → 𝐸 = 𝐹)
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   = wceq 1538  ∃wex 1781   ∈ wcel 2111   ≠ wne 2987  ∀wral 3106  ∃wrex 3107  Vcvv 3441   ∖ cdif 3878   ⊆ wss 3881  ∅c0 4243  {csn 4525   class class class wbr 5031   ↦ cmpt 5111  ⟶wf 6321  ‘cfv 6325  (class class class)co 7136   ↑m cmap 8392   finSupp cfsupp 8820  1c1 10530  ♯chash 13689  Basecbs 16478   ↾s cress 16479  .rcmulr 16561  Scalarcsca 16563   ·𝑠 cvsca 16564  0gc0g 16708   Σg cgsu 16709  Mndcmnd 17906  1rcur 19248  Ringcrg 19294  CRingccrg 19295  Unitcui 19389  invrcinvr 19421  DivRingcdr 19499  Fieldcfield 19500  SubRingcsubrg 19528  LModclmod 19631  LBasisclbs 19843  LVecclvec 19871  subringAlg csra 19937  LIndSclinds 20499  dimcldim 31102  /FldExtcfldext 31131  [:]cextdg 31134 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 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5155  ax-sep 5168  ax-nul 5175  ax-pow 5232  ax-pr 5296  ax-un 7444  ax-reg 9043  ax-inf2 9091  ax-ac2 9877  ax-cnex 10585  ax-resscn 10586  ax-1cn 10587  ax-icn 10588  ax-addcl 10589  ax-addrcl 10590  ax-mulcl 10591  ax-mulrcl 10592  ax-mulcom 10593  ax-addass 10594  ax-mulass 10595  ax-distr 10596  ax-i2m1 10597  ax-1ne0 10598  ax-1rid 10599  ax-rnegex 10600  ax-rrecex 10601  ax-cnre 10602  ax-pre-lttri 10603  ax-pre-lttrn 10604  ax-pre-ltadd 10605  ax-pre-mulgt0 10606 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-nel 3092  df-ral 3111  df-rex 3112  df-reu 3113  df-rmo 3114  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-tp 4530  df-op 4532  df-uni 4802  df-int 4840  df-iun 4884  df-iin 4885  df-br 5032  df-opab 5094  df-mpt 5112  df-tr 5138  df-id 5426  df-eprel 5431  df-po 5439  df-so 5440  df-fr 5479  df-se 5480  df-we 5481  df-xp 5526  df-rel 5527  df-cnv 5528  df-co 5529  df-dm 5530  df-rn 5531  df-res 5532  df-ima 5533  df-pred 6117  df-ord 6163  df-on 6164  df-lim 6165  df-suc 6166  df-iota 6284  df-fun 6327  df-fn 6328  df-f 6329  df-f1 6330  df-fo 6331  df-f1o 6332  df-fv 6333  df-isom 6334  df-riota 7094  df-ov 7139  df-oprab 7140  df-mpo 7141  df-of 7391  df-rpss 7432  df-om 7564  df-1st 7674  df-2nd 7675  df-supp 7817  df-tpos 7878  df-wrecs 7933  df-recs 7994  df-rdg 8032  df-1o 8088  df-oadd 8092  df-er 8275  df-map 8394  df-ixp 8448  df-en 8496  df-dom 8497  df-sdom 8498  df-fin 8499  df-fsupp 8821  df-sup 8893  df-oi 8961  df-r1 9180  df-rank 9181  df-dju 9317  df-card 9355  df-acn 9358  df-ac 9530  df-pnf 10669  df-mnf 10670  df-xr 10671  df-ltxr 10672  df-le 10673  df-sub 10864  df-neg 10865  df-nn 11629  df-2 11691  df-3 11692  df-4 11693  df-5 11694  df-6 11695  df-7 11696  df-8 11697  df-9 11698  df-n0 11889  df-xnn0 11959  df-z 11973  df-dec 12090  df-uz 12235  df-fz 12889  df-fzo 13032  df-seq 13368  df-hash 13690  df-struct 16480  df-ndx 16481  df-slot 16482  df-base 16484  df-sets 16485  df-ress 16486  df-plusg 16573  df-mulr 16574  df-sca 16576  df-vsca 16577  df-ip 16578  df-tset 16579  df-ple 16580  df-ocomp 16581  df-ds 16582  df-hom 16584  df-cco 16585  df-0g 16710  df-gsum 16711  df-prds 16716  df-pws 16718  df-mre 16852  df-mrc 16853  df-mri 16854  df-acs 16855  df-proset 17533  df-drs 17534  df-poset 17551  df-ipo 17757  df-mgm 17847  df-sgrp 17896  df-mnd 17907  df-mhm 17951  df-submnd 17952  df-grp 18101  df-minusg 18102  df-sbg 18103  df-mulg 18221  df-subg 18272  df-ghm 18352  df-cntz 18443  df-cmn 18904  df-abl 18905  df-mgp 19237  df-ur 19249  df-ring 19296  df-cring 19297  df-oppr 19373  df-dvdsr 19391  df-unit 19392  df-invr 19422  df-drng 19501  df-field 19502  df-subrg 19530  df-lmod 19633  df-lss 19701  df-lsp 19741  df-lmhm 19791  df-lbs 19844  df-lvec 19872  df-sra 19941  df-rgmod 19942  df-nzr 20028  df-dsmm 20426  df-frlm 20441  df-uvc 20477  df-lindf 20500  df-linds 20501  df-dim 31103  df-fldext 31135  df-extdg 31136 This theorem is referenced by:  extdg1b  31157
 Copyright terms: Public domain W3C validator