extdg1id - Mathbox for Thierry Arnoux

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

Theorem extdg1id 33997

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.

Step	Hyp	Ref	Expression
1		fldextress 33982	. . 3 ⊢ (𝐸/_FldExt𝐹 → 𝐹 = (𝐸 ↾_s (Base‘𝐹)))
2	1	adantr 485	. 2 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → 𝐹 = (𝐸 ↾_s (Base‘𝐹)))
3		fldextsralvec 33986	. . . . . . 7 ⊢ (𝐸/_FldExt𝐹 → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
4	3	adantr 485	. . . . . 6 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
5		eqid 2769	. . . . . . 7 ⊢ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
6	5	lbsex 21263	. . . . . 6 ⊢ (((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec → (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅)
7	4, 6	syl 18	. . . . 5 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅)
8		n0 4314	. . . . 5 ⊢ ((LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅ ↔ ∃𝑏 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
9	7, 8	sylib 221	. . . 4 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → ∃𝑏 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
10		simpr 489	. . . . . 6 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
11	5	dimval 33932	. . . . . . . 8 ⊢ ((((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (♯‘𝑏))
12	4, 11	sylan 591	. . . . . . 7 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (♯‘𝑏))
13		extdgval 33984	. . . . . . . . . 10 ⊢ (𝐸/_FldExt𝐹 → (𝐸[:]𝐹) = (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
14	13	adantr 485	. . . . . . . . 9 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (𝐸[:]𝐹) = (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
15		simpr 489	. . . . . . . . 9 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (𝐸[:]𝐹) = 1)
16	14, 15	eqtr3d 2806	. . . . . . . 8 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = 1)
17	16	adantr 485	. . . . . . 7 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = 1)
18	12, 17	eqtr3d 2806	. . . . . 6 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (♯‘𝑏) = 1)
19		hash1snb 14452	. . . . . . 7 ⊢ (𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) → ((♯‘𝑏) = 1 ↔ ∃𝑥 𝑏 = {𝑥}))
20	19	biimpa 481	. . . . . 6 ⊢ ((𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ∧ (♯‘𝑏) = 1) → ∃𝑥 𝑏 = {𝑥})
21	10, 18, 20	syl2anc 595	. . . . 5 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ∃𝑥 𝑏 = {𝑥})
22		simpr 489	. . . . . . . . . 10 ⊢ ((((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑣 finSupp (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
23		simplr 780	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑏 = {𝑥})
24		eqidd 2770	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹)))
25		eqid 2769	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (Base‘𝐹) = (Base‘𝐹)
26	25	fldextsubrg 33980	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐸/_FldExt𝐹 → (Base‘𝐹) ∈ (SubRing‘𝐸))
27		eqid 2769	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (Base‘𝐸) = (Base‘𝐸)
28	27	subrgss 20653	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((Base‘𝐹) ∈ (SubRing‘𝐸) → (Base‘𝐹) ⊆ (Base‘𝐸))
29	26, 28	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → (Base‘𝐹) ⊆ (Base‘𝐸))
30	24, 29	sravsca 21276	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐸) = ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
31	30	eqcomd 2775	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (._r‘𝐸))
32	31	ad5antr 746	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 ∈ 𝑏) → ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (._r‘𝐸))
33	32	oveqd 7425	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 ∈ 𝑏) → ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖) = ((𝑣‘𝑖)(._r‘𝐸)𝑖))
34	23, 33	mpteq12dva 5198	. . . . . . . . . . . . . . 15 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)) = (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖)))
35	34	oveq2d 7424	. . . . . . . . . . . . . 14 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))))
36		eqid 2769	. . . . . . . . . . . . . . . . 17 ⊢ ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹))
37		fldextfld1 33978	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ Field)
38		isfld 20820	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸 ∈ Field ↔ (𝐸 ∈ DivRing ∧ 𝐸 ∈ CRing))
39	38	simplbi 501	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸 ∈ Field → 𝐸 ∈ DivRing)
40	37, 39	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ DivRing)
41	40	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝐸 ∈ DivRing)
42	26	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (Base‘𝐹) ∈ (SubRing‘𝐸))
43		eqid 2769	. . . . . . . . . . . . . . . . 17 ⊢ (𝐸 ↾_s (Base‘𝐹)) = (𝐸 ↾_s (Base‘𝐹))
44		fldextfld2 33979	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → 𝐹 ∈ Field)
45		isfld 20820	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐹 ∈ Field ↔ (𝐹 ∈ DivRing ∧ 𝐹 ∈ CRing))
46	45	simplbi 501	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐹 ∈ Field → 𝐹 ∈ DivRing)
47	44, 46	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸/_FldExt𝐹 → 𝐹 ∈ DivRing)
48	1, 47	eqeltrrd 2870	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing)
49	48	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing)
50		simpr 489	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
51	36, 41, 42, 43, 49, 50	drgextgsum 33926	. . . . . . . . . . . . . . . 16 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
52	51	adantlr 727	. . . . . . . . . . . . . . 15 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
53	52	ad2antrr 738	. . . . . . . . . . . . . 14 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
54		drngring 20816	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸 ∈ DivRing → 𝐸 ∈ Ring)
55	37, 39, 54	3syl 19	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ Ring)
56		ringmnd 20321	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸 ∈ Ring → 𝐸 ∈ Mnd)
57	55, 56	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ Mnd)
58	57	ad4antr 744	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝐸 ∈ Mnd)
59		vex 3467	. . . . . . . . . . . . . . . . 17 ⊢ 𝑥 ∈ V
60	59	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑥 ∈ V)
61	55	ad3antrrr 742	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝐸 ∈ Ring)
62	61	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝐸 ∈ Ring)
63	29	ad3antrrr 742	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (Base‘𝐹) ⊆ (Base‘𝐸))
64	63	adantr 485	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (Base‘𝐹) ⊆ (Base‘𝐸))
65		elmapi 8842	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏) → 𝑣:𝑏⟶(Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
66	65	adantl 486	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑣:𝑏⟶(Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
67		vsnid 4631	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝑥 ∈ {𝑥}
68	67, 23	eleqtrrid 2876	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑥 ∈ 𝑏)
69	66, 68	ffvelcdmd 7078	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
70	24, 29	srasca 21275	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐸/_FldExt𝐹 → (𝐸 ↾_s (Base‘𝐹)) = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
71	1, 70	eqtrd 2804	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐸/_FldExt𝐹 → 𝐹 = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
72	71	fveq2d 6883	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → (Base‘𝐹) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
73	72	ad4antr 744	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (Base‘𝐹) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
74	69, 73	eleqtrrd 2872	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘𝐹))
75	64, 74	sseldd 3946	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘𝐸))
76		simpr 489	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑏 = {𝑥})
77		simplr 780	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
78		eqid 2769	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
79	78, 5	lbsss 21172	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
80	77, 79	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
81	76, 80	eqsstrrd 3980	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → {𝑥} ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
82	59	snss 4752	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ↔ {𝑥} ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
83	81, 82	sylibr 237	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑥 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
84		eqidd 2770	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹)))
85	84, 63	srabase 21272	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (Base‘𝐸) = (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
86	83, 85	eleqtrrd 2872	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑥 ∈ (Base‘𝐸))
87	86	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑥 ∈ (Base‘𝐸))
88		eqid 2769	. . . . . . . . . . . . . . . . . 18 ⊢ (._r‘𝐸) = (._r‘𝐸)
89	27, 88	ringcl 20328	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸 ∈ Ring ∧ (𝑣‘𝑥) ∈ (Base‘𝐸) ∧ 𝑥 ∈ (Base‘𝐸)) → ((𝑣‘𝑥)(._r‘𝐸)𝑥) ∈ (Base‘𝐸))
90	62, 75, 87, 89	syl3anc 1396	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → ((𝑣‘𝑥)(._r‘𝐸)𝑥) ∈ (Base‘𝐸))
91		simpr 489	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 = 𝑥) → 𝑖 = 𝑥)
92	91	fveq2d 6883	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 = 𝑥) → (𝑣‘𝑖) = (𝑣‘𝑥))
93	92, 91	oveq12d 7426	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 = 𝑥) → ((𝑣‘𝑖)(._r‘𝐸)𝑖) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
94	27, 58, 60, 90, 93	gsumsnd 20018	. . . . . . . . . . . . . . 15 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
95	1	fveq2d 6883	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐹) = (._r‘(𝐸 ↾_s (Base‘𝐹))))
96	43, 88	ressmulr 17356	. . . . . . . . . . . . . . . . . . 19 ⊢ ((Base‘𝐹) ∈ (SubRing‘𝐸) → (._r‘𝐸) = (._r‘(𝐸 ↾_s (Base‘𝐹))))
97	26, 96	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐸) = (._r‘(𝐸 ↾_s (Base‘𝐹))))
98	95, 97	eqtr4d 2807	. . . . . . . . . . . . . . . . 17 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐹) = (._r‘𝐸))
99	98	ad4antr 744	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (._r‘𝐹) = (._r‘𝐸))
100	99	oveqd 7425	. . . . . . . . . . . . . . 15 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → ((𝑣‘𝑥)(._r‘𝐹)𝑥) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
101	94, 100	eqtr4d 2807	. . . . . . . . . . . . . 14 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))) = ((𝑣‘𝑥)(._r‘𝐹)𝑥))
102	35, 53, 101	3eqtr3d 2812	. . . . . . . . . . . . 13 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = ((𝑣‘𝑥)(._r‘𝐹)𝑥))
103	102	adantlr 727	. . . . . . . . . . . 12 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = ((𝑣‘𝑥)(._r‘𝐹)𝑥))
104		drngring 20816	. . . . . . . . . . . . . . 15 ⊢ (𝐹 ∈ DivRing → 𝐹 ∈ Ring)
105	44, 46, 104	3syl 19	. . . . . . . . . . . . . 14 ⊢ (𝐸/_FldExt𝐹 → 𝐹 ∈ Ring)
106	105	ad5antr 746	. . . . . . . . . . . . 13 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝐹 ∈ Ring)
107	74	adantlr 727	. . . . . . . . . . . . 13 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘𝐹))
108		eqid 2769	. . . . . . . . . . . . . . . . . . . 20 ⊢ (1_r‘𝐸) = (1_r‘𝐸)
109		eqid 2769	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Unit‘𝐸) = (Unit‘𝐸)
110		eqid 2769	. . . . . . . . . . . . . . . . . . . 20 ⊢ (inv_r‘𝐸) = (inv_r‘𝐸)
111		simp-5l 796	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐸/_FldExt𝐹)
112	111, 55	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐸 ∈ Ring)
113	87	adantr 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ∈ (Base‘𝐸))
114	75	adantr 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑣‘𝑥) ∈ (Base‘𝐸))
115	38	simprbi 502	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐸 ∈ Field → 𝐸 ∈ CRing)
116	111, 37, 115	3syl 19	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐸 ∈ CRing)
117	27, 88	crngcom 20329	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐸 ∈ CRing ∧ 𝑥 ∈ (Base‘𝐸) ∧ (𝑣‘𝑥) ∈ (Base‘𝐸)) → (𝑥(._r‘𝐸)(𝑣‘𝑥)) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
118	116, 113, 114, 117	syl3anc 1396	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑥(._r‘𝐸)(𝑣‘𝑥)) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
119		simpr 489	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
120	52	ad3antrrr 742	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
121	34	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)) = (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖)))
122	121	oveq2d 7424	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))))
123	119, 120, 122	3eqtr2d 2810	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (1_r‘𝐸) = (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))))
124	94	adantr 485	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
125	123, 124	eqtrd 2804	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (1_r‘𝐸) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
126	118, 125	eqtr4d 2807	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑥(._r‘𝐸)(𝑣‘𝑥)) = (1_r‘𝐸))
127	125	eqcomd 2775	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((𝑣‘𝑥)(._r‘𝐸)𝑥) = (1_r‘𝐸))
128	27, 88, 108, 109, 110, 112, 113, 114, 126, 127	invrvald 22798	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑥 ∈ (Unit‘𝐸) ∧ ((inv_r‘𝐸)‘𝑥) = (𝑣‘𝑥)))
129	128	simpld 499	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ∈ (Unit‘𝐸))
130	109, 110	unitinvinv 20469	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐸 ∈ Ring ∧ 𝑥 ∈ (Unit‘𝐸)) → ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)) = 𝑥)
131	62, 129, 130	syl2an2r 697	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)) = 𝑥)
132	111, 37, 39	3syl 19	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐸 ∈ DivRing)
133	111, 26	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (Base‘𝐹) ∈ (SubRing‘𝐸))
134	111, 1	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐹 = (𝐸 ↾_s (Base‘𝐹)))
135	111, 44, 46	3syl 19	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐹 ∈ DivRing)
136	134, 135	eqeltrrd 2870	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing)
137	128	simprd 500	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((inv_r‘𝐸)‘𝑥) = (𝑣‘𝑥))
138	74	adantr 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑣‘𝑥) ∈ (Base‘𝐹))
139	137, 138	eqeltrd 2869	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((inv_r‘𝐸)‘𝑥) ∈ (Base‘𝐹))
140		eqidd 2770	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝐸/_FldExt𝐹 → (0_g‘𝐸) = (0_g‘𝐸))
141	24, 140, 29	sralmod0 21283	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝐸/_FldExt𝐹 → (0_g‘𝐸) = (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
142	141	ad2antrr 738	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (0_g‘𝐸) = (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
143	5	lbslinds 21948	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ⊆ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
144	143, 10	sselid 3943	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝑏 ∈ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
145		eqid 2769	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
146	145	0nellinds 33624	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec ∧ 𝑏 ∈ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ¬ (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ∈ 𝑏)
147	4, 144, 146	syl2an2r 697	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ¬ (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ∈ 𝑏)
148	142, 147	eqneltrd 2889	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ¬ (0_g‘𝐸) ∈ 𝑏)
149	148	ad3antrrr 742	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ¬ (0_g‘𝐸) ∈ 𝑏)
150		nelne2 3062	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 ∈ 𝑏 ∧ ¬ (0_g‘𝐸) ∈ 𝑏) → 𝑥 ≠ (0_g‘𝐸))
151	68, 149, 150	syl2an2r 697	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ≠ (0_g‘𝐸))
152		eqid 2769	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (0_g‘𝐸) = (0_g‘𝐸)
153	27, 152, 110	drnginvrn0 20833	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐸 ∈ DivRing ∧ 𝑥 ∈ (Base‘𝐸) ∧ 𝑥 ≠ (0_g‘𝐸)) → ((inv_r‘𝐸)‘𝑥) ≠ (0_g‘𝐸))
154	132, 113, 151, 153	syl3anc 1396	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((inv_r‘𝐸)‘𝑥) ≠ (0_g‘𝐸))
155		eldifsn 4755	. . . . . . . . . . . . . . . . . . 19 ⊢ (((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)}) ↔ (((inv_r‘𝐸)‘𝑥) ∈ (Base‘𝐹) ∧ ((inv_r‘𝐸)‘𝑥) ≠ (0_g‘𝐸)))
156	139, 154, 155	sylanbrc 594	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)}))
157		fveq2 6879	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = ((inv_r‘𝐸)‘𝑥) → ((inv_r‘𝐸)‘𝑎) = ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)))
158	157	eleq1d 2854	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = ((inv_r‘𝐸)‘𝑥) → (((inv_r‘𝐸)‘𝑎) ∈ (Base‘𝐹) ↔ ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)) ∈ (Base‘𝐹)))
159	43, 152, 110	issubdrg 20857	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) → ((𝐸 ↾_s (Base‘𝐹)) ∈ DivRing ↔ ∀𝑎 ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})((inv_r‘𝐸)‘𝑎) ∈ (Base‘𝐹)))
160	159	biimpa 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing) → ∀𝑎 ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})((inv_r‘𝐸)‘𝑎) ∈ (Base‘𝐹))
161	160	adantr 485	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing) ∧ ((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})) → ∀𝑎 ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})((inv_r‘𝐸)‘𝑎) ∈ (Base‘𝐹))
162		simpr 489	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing) ∧ ((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})) → ((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)}))
163	158, 161, 162	rspcdva 3591	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing) ∧ ((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})) → ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)) ∈ (Base‘𝐹))
164	132, 133, 136, 156, 163	syl1111anc 853	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)) ∈ (Base‘𝐹))
165	131, 164	eqeltrrd 2870	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ∈ (Base‘𝐹))
166	165	adantrl 728	. . . . . . . . . . . . . . 15 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (𝑣 finSupp (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))) → 𝑥 ∈ (Base‘𝐹))
167	27, 108	ringidcl 20344	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸 ∈ Ring → (1_r‘𝐸) ∈ (Base‘𝐸))
168	61, 167	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (1_r‘𝐸) ∈ (Base‘𝐸))
169	168, 85	eleqtrd 2871	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (1_r‘𝐸) ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
170		eqid 2769	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
171		eqid 2769	. . . . . . . . . . . . . . . . 17 ⊢ (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
172		eqid 2769	. . . . . . . . . . . . . . . . 17 ⊢ (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) = (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
173		eqid 2769	. . . . . . . . . . . . . . . . 17 ⊢ ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
174	4	ad2antrr 738	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
175		lveclmod 21201	. . . . . . . . . . . . . . . . . 18 ⊢ (((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LMod)
176	174, 175	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LMod)
177	78, 170, 171, 172, 173, 176, 77	lbslsp 33630	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((1_r‘𝐸) ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ↔ ∃𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)(𝑣 finSupp (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))))
178	169, 177	mpbid 235	. . . . . . . . . . . . . . 15 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ∃𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)(𝑣 finSupp (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))))
179	166, 178	r19.29a 3179	. . . . . . . . . . . . . 14 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑥 ∈ (Base‘𝐹))
180	179	ad2antrr 738	. . . . . . . . . . . . 13 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑥 ∈ (Base‘𝐹))
181		eqid 2769	. . . . . . . . . . . . . 14 ⊢ (._r‘𝐹) = (._r‘𝐹)
182	25, 181	ringcl 20328	. . . . . . . . . . . . 13 ⊢ ((𝐹 ∈ Ring ∧ (𝑣‘𝑥) ∈ (Base‘𝐹) ∧ 𝑥 ∈ (Base‘𝐹)) → ((𝑣‘𝑥)(._r‘𝐹)𝑥) ∈ (Base‘𝐹))
183	106, 107, 180, 182	syl3anc 1396	. . . . . . . . . . . 12 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → ((𝑣‘𝑥)(._r‘𝐹)𝑥) ∈ (Base‘𝐹))
184	103, 183	eqeltrd 2869	. . . . . . . . . . 11 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) ∈ (Base‘𝐹))
185	184	ad2antrr 738	. . . . . . . . . 10 ⊢ ((((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑣 finSupp (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) ∈ (Base‘𝐹))
186	22, 185	eqeltrd 2869	. . . . . . . . 9 ⊢ ((((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑣 finSupp (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑢 ∈ (Base‘𝐹))
187	186	anasss 471	. . . . . . . 8 ⊢ (((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (𝑣 finSupp (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))) → 𝑢 ∈ (Base‘𝐹))
188	85	eleq2d 2855	. . . . . . . . . 10 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘𝐸) ↔ 𝑢 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
189	78, 170, 171, 172, 173, 176, 77	lbslsp 33630	. . . . . . . . . 10 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ↔ ∃𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)(𝑣 finSupp (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))))
190	188, 189	bitrd 282	. . . . . . . . 9 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘𝐸) ↔ ∃𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)(𝑣 finSupp (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))))
191	190	biimpa 481	. . . . . . . 8 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) → ∃𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)(𝑣 finSupp (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑢 = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))))
192	187, 191	r19.29a 3179	. . . . . . 7 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) → 𝑢 ∈ (Base‘𝐹))
193	192	ex 417	. . . . . 6 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘𝐸) → 𝑢 ∈ (Base‘𝐹)))
194	193	ssrdv 3951	. . . . 5 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (Base‘𝐸) ⊆ (Base‘𝐹))
195	21, 194	exlimddv 1962	. . . 4 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (Base‘𝐸) ⊆ (Base‘𝐹))
196	9, 195	exlimddv 1962	. . 3 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (Base‘𝐸) ⊆ (Base‘𝐹))
197		simpr 489	. . . 4 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → (Base‘𝐸) ⊆ (Base‘𝐹))
198	37	ad2antrr 738	. . . 4 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → 𝐸 ∈ Field)
199		fvexd 6894	. . . 4 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → (Base‘𝐹) ∈ V)
200	43, 27	ressid2 17290	. . . 4 ⊢ (((Base‘𝐸) ⊆ (Base‘𝐹) ∧ 𝐸 ∈ Field ∧ (Base‘𝐹) ∈ V) → (𝐸 ↾_s (Base‘𝐹)) = 𝐸)
201	197, 198, 199, 200	syl3anc 1396	. . 3 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → (𝐸 ↾_s (Base‘𝐹)) = 𝐸)
202	196, 201	mpdan 699	. 2 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (𝐸 ↾_s (Base‘𝐹)) = 𝐸)
203	2, 202	eqtr2d 2805	1 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → 𝐸 = 𝐹)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 400 = wceq 1567 ∃wex 1806 ∈ wcel 2149 ≠ wne 2964 ∀wral 3085 ∃wrex 3095 Vcvv 3463 ∖ cdif 3910 ⊆ wss 3913 ∅c0 4294 {csn 4591 class class class wbr 5110 ↦ cmpt 5193 ⟶wf 6529 ‘cfv 6533 (class class class)co 7408 ↑_m cmap 8820 finSupp cfsupp 9317 1c1 11097 ♯chash 14362 Basecbs 17265 ↾_s cress 17286 ._rcmulr 17307 Scalarcsca 17309 ·_𝑠 cvsca 17310 0_gc0g 17488 Σ_g cgsu 17489 Mndcmnd 18788 1_rcur 20259 Ringcrg 20311 CRingccrg 20312 Unitcui 20433 inv_rcinvr 20465 SubRingcsubrg 20650 DivRingcdr 20809 Fieldcfield 20810 LModclmod 20955 LBasisclbs 21169 LVecclvec 21197 subringAlg csra 21266 LIndSclinds 21920 dimcldim 33930 /_FldExtcfldext 33969 [:]cextdg 33971

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1822 ax-4 1836 ax-5 1937 ax-6 1994 ax-7 2035 ax-8 2151 ax-9 2159 ax-10 2182 ax-11 2198 ax-12 2219 ax-ext 2741 ax-rep 5239 ax-sep 5258 ax-nul 5268 ax-pow 5334 ax-pr 5402 ax-un 7730 ax-reg 9550 ax-inf2 9606 ax-ac2 10443 ax-cnex 11152 ax-resscn 11153 ax-1cn 11154 ax-icn 11155 ax-addcl 11156 ax-addrcl 11157 ax-mulcl 11158 ax-mulrcl 11159 ax-mulcom 11160 ax-addass 11161 ax-mulass 11162 ax-distr 11163 ax-i2m1 11164 ax-1ne0 11165 ax-1rid 11166 ax-rnegex 11167 ax-rrecex 11168 ax-cnre 11169 ax-pre-lttri 11170 ax-pre-lttrn 11171 ax-pre-ltadd 11172 ax-pre-mulgt0 11173

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1102 df-3an 1103 df-tru 1570 df-fal 1580 df-ex 1807 df-nf 1811 df-sb 2098 df-mo 2573 df-eu 2603 df-clab 2748 df-cleq 2761 df-clel 2844 df-nfc 2918 df-ne 2965 df-nel 3071 df-ral 3086 df-rex 3096 df-rmo 3376 df-reu 3377 df-rab 3424 df-v 3465 df-sbc 3754 df-csb 3862 df-dif 3916 df-un 3918 df-in 3920 df-ss 3930 df-pss 3933 df-nul 4295 df-if 4490 df-pw 4566 df-sn 4592 df-pr 4594 df-tp 4596 df-op 4598 df-uni 4874 df-int 4914 df-iun 4959 df-iin 4960 df-br 5111 df-opab 5175 df-mpt 5194 df-tr 5220 df-id 5554 df-eprel 5559 df-po 5567 df-so 5568 df-fr 5612 df-se 5613 df-we 5614 df-xp 5665 df-rel 5666 df-cnv 5667 df-co 5668 df-dm 5669 df-rn 5670 df-res 5671 df-ima 5672 df-pred 6299 df-ord 6360 df-on 6361 df-lim 6362 df-suc 6363 df-iota 6489 df-fun 6535 df-fn 6536 df-f 6537 df-f1 6538 df-fo 6539 df-f1o 6540 df-fv 6541 df-isom 6542 df-riota 7365 df-ov 7411 df-oprab 7412 df-mpo 7413 df-of 7672 df-rpss 7718 df-om 7859 df-1st 7982 df-2nd 7983 df-supp 8153 df-tpos 8218 df-frecs 8274 df-wrecs 8305 df-recs 8354 df-rdg 8393 df-1o 8449 df-2o 8450 df-oadd 8453 df-er 8690 df-map 8822 df-ixp 8892 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-fsupp 9318 df-sup 9398 df-oi 9468 df-r1 9732 df-rank 9733 df-dju 9883 df-card 9921 df-acn 9924 df-ac 10096 df-pnf 11241 df-mnf 11242 df-xr 11243 df-ltxr 11244 df-le 11245 df-sub 11439 df-neg 11440 df-nn 12230 df-2 12299 df-3 12300 df-4 12301 df-5 12302 df-6 12303 df-7 12304 df-8 12305 df-9 12306 df-n0 12501 df-xnn0 12574 df-z 12588 df-dec 12708 df-uz 12859 df-fz 13532 df-fzo 13679 df-seq 14034 df-hash 14363 df-struct 17203 df-sets 17220 df-slot 17238 df-ndx 17250 df-base 17266 df-ress 17287 df-plusg 17319 df-mulr 17320 df-sca 17322 df-vsca 17323 df-ip 17324 df-tset 17325 df-ple 17326 df-ocomp 17327 df-ds 17328 df-hom 17330 df-cco 17331 df-0g 17490 df-gsum 17491 df-prds 17496 df-pws 17498 df-mre 17634 df-mrc 17635 df-mri 17636 df-acs 17637 df-proset 18346 df-drs 18347 df-poset 18365 df-ipo 18580 df-mgm 18694 df-sgrp 18773 df-mnd 18789 df-mhm 18837 df-submnd 18838 df-grp 18999 df-minusg 19000 df-sbg 19001 df-mulg 19130 df-subg 19185 df-ghm 19280 df-cntz 19383 df-cmn 19848 df-abl 19849 df-mgp 20213 df-rng 20227 df-ur 20260 df-ring 20313 df-cring 20314 df-oppr 20415 df-dvdsr 20435 df-unit 20436 df-invr 20466 df-nzr 20592 df-subrg 20651 df-drng 20811 df-field 20812 df-lmod 20957 df-lss 21027 df-lsp 21067 df-lmhm 21117 df-lbs 21170 df-lvec 21198 df-sra 21268 df-rgmod 21269 df-dsmm 21847 df-frlm 21862 df-uvc 21898 df-lindf 21921 df-linds 21922 df-dim 33931 df-fldext 33972 df-extdg 33973

This theorem is referenced by: extdg1b 33998 rtelextdg2 34058

W3C validator