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 32352

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 32341	. . 3 ⊢ (𝐸/_FldExt𝐹 → 𝐹 = (𝐸 ↾_s (Base‘𝐹)))
2	1	adantr 481	. 2 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → 𝐹 = (𝐸 ↾_s (Base‘𝐹)))
3		fldextsralvec 32344	. . . . . . 7 ⊢ (𝐸/_FldExt𝐹 → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
4	3	adantr 481	. . . . . 6 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
5		eqid 2736	. . . . . . 7 ⊢ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
6	5	lbsex 20626	. . . . . 6 ⊢ (((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec → (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅)
7	4, 6	syl 17	. . . . 5 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅)
8		n0 4306	. . . . 5 ⊢ ((LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅ ↔ ∃𝑏 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
9	7, 8	sylib 217	. . . 4 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → ∃𝑏 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
10		simpr 485	. . . . . 6 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
11	5	dimval 32300	. . . . . . . 8 ⊢ ((((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (♯‘𝑏))
12	4, 11	sylan 580	. . . . . . 7 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (♯‘𝑏))
13		extdgval 32343	. . . . . . . . . 10 ⊢ (𝐸/_FldExt𝐹 → (𝐸[:]𝐹) = (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
14	13	adantr 481	. . . . . . . . 9 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (𝐸[:]𝐹) = (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
15		simpr 485	. . . . . . . . 9 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (𝐸[:]𝐹) = 1)
16	14, 15	eqtr3d 2778	. . . . . . . 8 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = 1)
17	16	adantr 481	. . . . . . 7 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = 1)
18	12, 17	eqtr3d 2778	. . . . . 6 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (♯‘𝑏) = 1)
19		hash1snb 14319	. . . . . . 7 ⊢ (𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) → ((♯‘𝑏) = 1 ↔ ∃𝑥 𝑏 = {𝑥}))
20	19	biimpa 477	. . . . . 6 ⊢ ((𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ∧ (♯‘𝑏) = 1) → ∃𝑥 𝑏 = {𝑥})
21	10, 18, 20	syl2anc 584	. . . . 5 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ∃𝑥 𝑏 = {𝑥})
22		simpr 485	. . . . . . . . . 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 767	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑏 = {𝑥})
24		eqidd 2737	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹)))
25		eqid 2736	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (Base‘𝐹) = (Base‘𝐹)
26	25	fldextsubrg 32340	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐸/_FldExt𝐹 → (Base‘𝐹) ∈ (SubRing‘𝐸))
27		eqid 2736	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (Base‘𝐸) = (Base‘𝐸)
28	27	subrgss 20223	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((Base‘𝐹) ∈ (SubRing‘𝐸) → (Base‘𝐹) ⊆ (Base‘𝐸))
29	26, 28	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → (Base‘𝐹) ⊆ (Base‘𝐸))
30	24, 29	sravsca 20648	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐸) = ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
31	30	eqcomd 2742	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (._r‘𝐸))
32	31	ad5antr 732	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 ∈ 𝑏) → ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (._r‘𝐸))
33	32	oveqd 7374	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 ∈ 𝑏) → ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖) = ((𝑣‘𝑖)(._r‘𝐸)𝑖))
34	23, 33	mpteq12dva 5194	. . . . . . . . . . . . . . 15 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)) = (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖)))
35	34	oveq2d 7373	. . . . . . . . . . . . . 14 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))))
36		eqid 2736	. . . . . . . . . . . . . . . . 17 ⊢ ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹))
37		fldextfld1 32338	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ Field)
38		isfld 20196	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸 ∈ Field ↔ (𝐸 ∈ DivRing ∧ 𝐸 ∈ CRing))
39	38	simplbi 498	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸 ∈ Field → 𝐸 ∈ DivRing)
40	37, 39	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ DivRing)
41	40	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝐸 ∈ DivRing)
42	26	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (Base‘𝐹) ∈ (SubRing‘𝐸))
43		eqid 2736	. . . . . . . . . . . . . . . . 17 ⊢ (𝐸 ↾_s (Base‘𝐹)) = (𝐸 ↾_s (Base‘𝐹))
44		fldextfld2 32339	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → 𝐹 ∈ Field)
45		isfld 20196	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐹 ∈ Field ↔ (𝐹 ∈ DivRing ∧ 𝐹 ∈ CRing))
46	45	simplbi 498	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐹 ∈ Field → 𝐹 ∈ DivRing)
47	44, 46	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸/_FldExt𝐹 → 𝐹 ∈ DivRing)
48	1, 47	eqeltrrd 2839	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing)
49	48	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing)
50		simpr 485	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
51	36, 41, 42, 43, 49, 50	drgextgsum 32296	. . . . . . . . . . . . . . . 16 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
52	51	adantlr 713	. . . . . . . . . . . . . . 15 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
53	52	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
54		drngring 20192	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸 ∈ DivRing → 𝐸 ∈ Ring)
55	37, 39, 54	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ Ring)
56		ringmnd 19974	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸 ∈ Ring → 𝐸 ∈ Mnd)
57	55, 56	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ Mnd)
58	57	ad4antr 730	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝐸 ∈ Mnd)
59		vex 3449	. . . . . . . . . . . . . . . . 17 ⊢ 𝑥 ∈ V
60	59	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑥 ∈ V)
61	55	ad3antrrr 728	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝐸 ∈ Ring)
62	61	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝐸 ∈ Ring)
63	29	ad3antrrr 728	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (Base‘𝐹) ⊆ (Base‘𝐸))
64	63	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (Base‘𝐹) ⊆ (Base‘𝐸))
65		elmapi 8787	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏) → 𝑣:𝑏⟶(Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
66	65	adantl 482	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑣:𝑏⟶(Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
67		vsnid 4623	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝑥 ∈ {𝑥}
68	67, 23	eleqtrrid 2845	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑥 ∈ 𝑏)
69	66, 68	ffvelcdmd 7036	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
70	24, 29	srasca 20646	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐸/_FldExt𝐹 → (𝐸 ↾_s (Base‘𝐹)) = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
71	1, 70	eqtrd 2776	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐸/_FldExt𝐹 → 𝐹 = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
72	71	fveq2d 6846	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → (Base‘𝐹) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
73	72	ad4antr 730	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (Base‘𝐹) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
74	69, 73	eleqtrrd 2841	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘𝐹))
75	64, 74	sseldd 3945	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘𝐸))
76		simpr 485	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑏 = {𝑥})
77		simplr 767	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
78		eqid 2736	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
79	78, 5	lbsss 20538	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
80	77, 79	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
81	76, 80	eqsstrrd 3983	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → {𝑥} ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
82	59	snss 4746	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ↔ {𝑥} ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
83	81, 82	sylibr 233	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑥 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
84		eqidd 2737	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹)))
85	84, 63	srabase 20640	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (Base‘𝐸) = (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
86	83, 85	eleqtrrd 2841	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑥 ∈ (Base‘𝐸))
87	86	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑥 ∈ (Base‘𝐸))
88		eqid 2736	. . . . . . . . . . . . . . . . . 18 ⊢ (._r‘𝐸) = (._r‘𝐸)
89	27, 88	ringcl 19981	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸 ∈ Ring ∧ (𝑣‘𝑥) ∈ (Base‘𝐸) ∧ 𝑥 ∈ (Base‘𝐸)) → ((𝑣‘𝑥)(._r‘𝐸)𝑥) ∈ (Base‘𝐸))
90	62, 75, 87, 89	syl3anc 1371	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → ((𝑣‘𝑥)(._r‘𝐸)𝑥) ∈ (Base‘𝐸))
91		simpr 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 = 𝑥) → 𝑖 = 𝑥)
92	91	fveq2d 6846	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 = 𝑥) → (𝑣‘𝑖) = (𝑣‘𝑥))
93	92, 91	oveq12d 7375	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 = 𝑥) → ((𝑣‘𝑖)(._r‘𝐸)𝑖) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
94	27, 58, 60, 90, 93	gsumsnd 19729	. . . . . . . . . . . . . . 15 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
95	1	fveq2d 6846	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐹) = (._r‘(𝐸 ↾_s (Base‘𝐹))))
96	43, 88	ressmulr 17188	. . . . . . . . . . . . . . . . . . 19 ⊢ ((Base‘𝐹) ∈ (SubRing‘𝐸) → (._r‘𝐸) = (._r‘(𝐸 ↾_s (Base‘𝐹))))
97	26, 96	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐸) = (._r‘(𝐸 ↾_s (Base‘𝐹))))
98	95, 97	eqtr4d 2779	. . . . . . . . . . . . . . . . 17 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐹) = (._r‘𝐸))
99	98	ad4antr 730	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (._r‘𝐹) = (._r‘𝐸))
100	99	oveqd 7374	. . . . . . . . . . . . . . 15 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → ((𝑣‘𝑥)(._r‘𝐹)𝑥) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
101	94, 100	eqtr4d 2779	. . . . . . . . . . . . . 14 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))) = ((𝑣‘𝑥)(._r‘𝐹)𝑥))
102	35, 53, 101	3eqtr3d 2784	. . . . . . . . . . . . 13 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = ((𝑣‘𝑥)(._r‘𝐹)𝑥))
103	102	adantlr 713	. . . . . . . . . . . 12 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = ((𝑣‘𝑥)(._r‘𝐹)𝑥))
104		drngring 20192	. . . . . . . . . . . . . . 15 ⊢ (𝐹 ∈ DivRing → 𝐹 ∈ Ring)
105	44, 46, 104	3syl 18	. . . . . . . . . . . . . 14 ⊢ (𝐸/_FldExt𝐹 → 𝐹 ∈ Ring)
106	105	ad5antr 732	. . . . . . . . . . . . 13 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝐹 ∈ Ring)
107	74	adantlr 713	. . . . . . . . . . . . 13 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘𝐹))
108		eqid 2736	. . . . . . . . . . . . . . . . . . . 20 ⊢ (1_r‘𝐸) = (1_r‘𝐸)
109		eqid 2736	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Unit‘𝐸) = (Unit‘𝐸)
110		eqid 2736	. . . . . . . . . . . . . . . . . . . 20 ⊢ (inv_r‘𝐸) = (inv_r‘𝐸)
111		simp-5l 783	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐸/_FldExt𝐹)
112	111, 55	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐸 ∈ Ring)
113	87	adantr 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ∈ (Base‘𝐸))
114	75	adantr 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑣‘𝑥) ∈ (Base‘𝐸))
115	38	simprbi 497	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐸 ∈ Field → 𝐸 ∈ CRing)
116	111, 37, 115	3syl 18	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐸 ∈ CRing)
117	27, 88	crngcom 19982	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐸 ∈ CRing ∧ 𝑥 ∈ (Base‘𝐸) ∧ (𝑣‘𝑥) ∈ (Base‘𝐸)) → (𝑥(._r‘𝐸)(𝑣‘𝑥)) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
118	116, 113, 114, 117	syl3anc 1371	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑥(._r‘𝐸)(𝑣‘𝑥)) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
119		simpr 485	. . . . . . . . . . . . . . . . . . . . . . 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 728	. . . . . . . . . . . . . . . . . . . . . . 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 481	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)) = (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖)))
122	121	oveq2d 7373	. . . . . . . . . . . . . . . . . . . . . . 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 2782	. . . . . . . . . . . . . . . . . . . . . 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 481	. . . . . . . . . . . . . . . . . . . . . 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 2776	. . . . . . . . . . . . . . . . . . . . 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 2779	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑥(._r‘𝐸)(𝑣‘𝑥)) = (1_r‘𝐸))
127	125	eqcomd 2742	. . . . . . . . . . . . . . . . . . . 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 22025	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑥 ∈ (Unit‘𝐸) ∧ ((inv_r‘𝐸)‘𝑥) = (𝑣‘𝑥)))
129	128	simpld 495	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ∈ (Unit‘𝐸))
130	109, 110	unitinvinv 20104	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐸 ∈ Ring ∧ 𝑥 ∈ (Unit‘𝐸)) → ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)) = 𝑥)
131	62, 129, 130	syl2an2r 683	. . . . . . . . . . . . . . . . 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 18	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐸 ∈ DivRing)
133	111, 26	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (Base‘𝐹) ∈ (SubRing‘𝐸))
134	111, 1	syl 17	. . . . . . . . . . . . . . . . . . 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 18	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝐹 ∈ DivRing)
136	134, 135	eqeltrrd 2839	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing)
137	128	simprd 496	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((inv_r‘𝐸)‘𝑥) = (𝑣‘𝑥))
138	74	adantr 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑣‘𝑥) ∈ (Base‘𝐹))
139	137, 138	eqeltrd 2838	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((inv_r‘𝐸)‘𝑥) ∈ (Base‘𝐹))
140		eqidd 2737	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝐸/_FldExt𝐹 → (0_g‘𝐸) = (0_g‘𝐸))
141	24, 140, 29	sralmod0 20657	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝐸/_FldExt𝐹 → (0_g‘𝐸) = (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
142	141	ad2antrr 724	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (0_g‘𝐸) = (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
143	5	lbslinds 21239	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ⊆ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
144	143, 10	sselid 3942	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝑏 ∈ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
145		eqid 2736	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
146	145	0nellinds 32159	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec ∧ 𝑏 ∈ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ¬ (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ∈ 𝑏)
147	4, 144, 146	syl2an2r 683	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ¬ (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ∈ 𝑏)
148	142, 147	eqneltrd 2857	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ¬ (0_g‘𝐸) ∈ 𝑏)
149	148	ad3antrrr 728	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ¬ (0_g‘𝐸) ∈ 𝑏)
150		nelne2 3042	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 ∈ 𝑏 ∧ ¬ (0_g‘𝐸) ∈ 𝑏) → 𝑥 ≠ (0_g‘𝐸))
151	68, 149, 150	syl2an2r 683	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ≠ (0_g‘𝐸))
152		eqid 2736	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (0_g‘𝐸) = (0_g‘𝐸)
153	27, 152, 110	drnginvrn0 20206	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐸 ∈ DivRing ∧ 𝑥 ∈ (Base‘𝐸) ∧ 𝑥 ≠ (0_g‘𝐸)) → ((inv_r‘𝐸)‘𝑥) ≠ (0_g‘𝐸))
154	132, 113, 151, 153	syl3anc 1371	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((inv_r‘𝐸)‘𝑥) ≠ (0_g‘𝐸))
155		eldifsn 4747	. . . . . . . . . . . . . . . . . . 19 ⊢ (((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)}) ↔ (((inv_r‘𝐸)‘𝑥) ∈ (Base‘𝐹) ∧ ((inv_r‘𝐸)‘𝑥) ≠ (0_g‘𝐸)))
156	139, 154, 155	sylanbrc 583	. . . . . . . . . . . . . . . . . 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 6842	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = ((inv_r‘𝐸)‘𝑥) → ((inv_r‘𝐸)‘𝑎) = ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)))
158	157	eleq1d 2822	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = ((inv_r‘𝐸)‘𝑥) → (((inv_r‘𝐸)‘𝑎) ∈ (Base‘𝐹) ↔ ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)) ∈ (Base‘𝐹)))
159	43, 152, 110	issubdrg 20247	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) → ((𝐸 ↾_s (Base‘𝐹)) ∈ DivRing ↔ ∀𝑎 ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})((inv_r‘𝐸)‘𝑎) ∈ (Base‘𝐹)))
160	159	biimpa 477	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing) → ∀𝑎 ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})((inv_r‘𝐸)‘𝑎) ∈ (Base‘𝐹))
161	160	adantr 481	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing) ∧ ((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})) → ∀𝑎 ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})((inv_r‘𝐸)‘𝑎) ∈ (Base‘𝐹))
162		simpr 485	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing) ∧ ((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})) → ((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)}))
163	158, 161, 162	rspcdva 3582	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing) ∧ ((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})) → ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)) ∈ (Base‘𝐹))
164	132, 133, 136, 156, 163	syl1111anc 838	. . . . . . . . . . . . . . . . 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 2839	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ∈ (Base‘𝐹))
166	165	adantrl 714	. . . . . . . . . . . . . . 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 19989	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸 ∈ Ring → (1_r‘𝐸) ∈ (Base‘𝐸))
168	61, 167	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (1_r‘𝐸) ∈ (Base‘𝐸))
169	168, 85	eleqtrd 2840	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (1_r‘𝐸) ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
170		eqid 2736	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
171		eqid 2736	. . . . . . . . . . . . . . . . 17 ⊢ (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
172		eqid 2736	. . . . . . . . . . . . . . . . 17 ⊢ (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) = (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
173		eqid 2736	. . . . . . . . . . . . . . . . 17 ⊢ ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
174	4	ad2antrr 724	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
175		lveclmod 20567	. . . . . . . . . . . . . . . . . 18 ⊢ (((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LMod)
176	174, 175	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LMod)
177	78, 170, 171, 172, 173, 176, 77	lbslsp 32165	. . . . . . . . . . . . . . . 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 231	. . . . . . . . . . . . . . 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 3159	. . . . . . . . . . . . . 14 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑥 ∈ (Base‘𝐹))
180	179	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑥 ∈ (Base‘𝐹))
181		eqid 2736	. . . . . . . . . . . . . 14 ⊢ (._r‘𝐹) = (._r‘𝐹)
182	25, 181	ringcl 19981	. . . . . . . . . . . . 13 ⊢ ((𝐹 ∈ Ring ∧ (𝑣‘𝑥) ∈ (Base‘𝐹) ∧ 𝑥 ∈ (Base‘𝐹)) → ((𝑣‘𝑥)(._r‘𝐹)𝑥) ∈ (Base‘𝐹))
183	106, 107, 180, 182	syl3anc 1371	. . . . . . . . . . . 12 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → ((𝑣‘𝑥)(._r‘𝐹)𝑥) ∈ (Base‘𝐹))
184	103, 183	eqeltrd 2838	. . . . . . . . . . 11 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) ∈ (Base‘𝐹))
185	184	ad2antrr 724	. . . . . . . . . 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 2838	. . . . . . . . 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 467	. . . . . . . 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 2823	. . . . . . . . . 10 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘𝐸) ↔ 𝑢 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
189	78, 170, 171, 172, 173, 176, 77	lbslsp 32165	. . . . . . . . . 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 278	. . . . . . . . 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 477	. . . . . . . 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 3159	. . . . . . 7 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) → 𝑢 ∈ (Base‘𝐹))
193	192	ex 413	. . . . . 6 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘𝐸) → 𝑢 ∈ (Base‘𝐹)))
194	193	ssrdv 3950	. . . . 5 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (Base‘𝐸) ⊆ (Base‘𝐹))
195	21, 194	exlimddv 1938	. . . 4 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (Base‘𝐸) ⊆ (Base‘𝐹))
196	9, 195	exlimddv 1938	. . 3 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (Base‘𝐸) ⊆ (Base‘𝐹))
197		simpr 485	. . . 4 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → (Base‘𝐸) ⊆ (Base‘𝐹))
198	37	ad2antrr 724	. . . 4 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → 𝐸 ∈ Field)
199		fvexd 6857	. . . 4 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → (Base‘𝐹) ∈ V)
200	43, 27	ressid2 17116	. . . 4 ⊢ (((Base‘𝐸) ⊆ (Base‘𝐹) ∧ 𝐸 ∈ Field ∧ (Base‘𝐹) ∈ V) → (𝐸 ↾_s (Base‘𝐹)) = 𝐸)
201	197, 198, 199, 200	syl3anc 1371	. . 3 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → (𝐸 ↾_s (Base‘𝐹)) = 𝐸)
202	196, 201	mpdan 685	. 2 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (𝐸 ↾_s (Base‘𝐹)) = 𝐸)
203	2, 202	eqtr2d 2777	1 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → 𝐸 = 𝐹)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 396 = wceq 1541 ∃wex 1781 ∈ wcel 2106 ≠ wne 2943 ∀wral 3064 ∃wrex 3073 Vcvv 3445 ∖ cdif 3907 ⊆ wss 3910 ∅c0 4282 {csn 4586 class class class wbr 5105 ↦ cmpt 5188 ⟶wf 6492 ‘cfv 6496 (class class class)co 7357 ↑_m cmap 8765 finSupp cfsupp 9305 1c1 11052 ♯chash 14230 Basecbs 17083 ↾_s cress 17112 ._rcmulr 17134 Scalarcsca 17136 ·_𝑠 cvsca 17137 0_gc0g 17321 Σ_g cgsu 17322 Mndcmnd 18556 1_rcur 19913 Ringcrg 19964 CRingccrg 19965 Unitcui 20068 inv_rcinvr 20100 DivRingcdr 20185 Fieldcfield 20186 SubRingcsubrg 20218 LModclmod 20322 LBasisclbs 20535 LVecclvec 20563 subringAlg csra 20629 LIndSclinds 21211 dimcldim 32298 /_FldExtcfldext 32327 [:]cextdg 32330

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2707 ax-rep 5242 ax-sep 5256 ax-nul 5263 ax-pow 5320 ax-pr 5384 ax-un 7672 ax-reg 9528 ax-inf2 9577 ax-ac2 10399 ax-cnex 11107 ax-resscn 11108 ax-1cn 11109 ax-icn 11110 ax-addcl 11111 ax-addrcl 11112 ax-mulcl 11113 ax-mulrcl 11114 ax-mulcom 11115 ax-addass 11116 ax-mulass 11117 ax-distr 11118 ax-i2m1 11119 ax-1ne0 11120 ax-1rid 11121 ax-rnegex 11122 ax-rrecex 11123 ax-cnre 11124 ax-pre-lttri 11125 ax-pre-lttrn 11126 ax-pre-ltadd 11127 ax-pre-mulgt0 11128

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2538 df-eu 2567 df-clab 2714 df-cleq 2728 df-clel 2814 df-nfc 2889 df-ne 2944 df-nel 3050 df-ral 3065 df-rex 3074 df-rmo 3353 df-reu 3354 df-rab 3408 df-v 3447 df-sbc 3740 df-csb 3856 df-dif 3913 df-un 3915 df-in 3917 df-ss 3927 df-pss 3929 df-nul 4283 df-if 4487 df-pw 4562 df-sn 4587 df-pr 4589 df-tp 4591 df-op 4593 df-uni 4866 df-int 4908 df-iun 4956 df-iin 4957 df-br 5106 df-opab 5168 df-mpt 5189 df-tr 5223 df-id 5531 df-eprel 5537 df-po 5545 df-so 5546 df-fr 5588 df-se 5589 df-we 5590 df-xp 5639 df-rel 5640 df-cnv 5641 df-co 5642 df-dm 5643 df-rn 5644 df-res 5645 df-ima 5646 df-pred 6253 df-ord 6320 df-on 6321 df-lim 6322 df-suc 6323 df-iota 6448 df-fun 6498 df-fn 6499 df-f 6500 df-f1 6501 df-fo 6502 df-f1o 6503 df-fv 6504 df-isom 6505 df-riota 7313 df-ov 7360 df-oprab 7361 df-mpo 7362 df-of 7617 df-rpss 7660 df-om 7803 df-1st 7921 df-2nd 7922 df-supp 8093 df-tpos 8157 df-frecs 8212 df-wrecs 8243 df-recs 8317 df-rdg 8356 df-1o 8412 df-oadd 8416 df-er 8648 df-map 8767 df-ixp 8836 df-en 8884 df-dom 8885 df-sdom 8886 df-fin 8887 df-fsupp 9306 df-sup 9378 df-oi 9446 df-r1 9700 df-rank 9701 df-dju 9837 df-card 9875 df-acn 9878 df-ac 10052 df-pnf 11191 df-mnf 11192 df-xr 11193 df-ltxr 11194 df-le 11195 df-sub 11387 df-neg 11388 df-nn 12154 df-2 12216 df-3 12217 df-4 12218 df-5 12219 df-6 12220 df-7 12221 df-8 12222 df-9 12223 df-n0 12414 df-xnn0 12486 df-z 12500 df-dec 12619 df-uz 12764 df-fz 13425 df-fzo 13568 df-seq 13907 df-hash 14231 df-struct 17019 df-sets 17036 df-slot 17054 df-ndx 17066 df-base 17084 df-ress 17113 df-plusg 17146 df-mulr 17147 df-sca 17149 df-vsca 17150 df-ip 17151 df-tset 17152 df-ple 17153 df-ocomp 17154 df-ds 17155 df-hom 17157 df-cco 17158 df-0g 17323 df-gsum 17324 df-prds 17329 df-pws 17331 df-mre 17466 df-mrc 17467 df-mri 17468 df-acs 17469 df-proset 18184 df-drs 18185 df-poset 18202 df-ipo 18417 df-mgm 18497 df-sgrp 18546 df-mnd 18557 df-mhm 18601 df-submnd 18602 df-grp 18751 df-minusg 18752 df-sbg 18753 df-mulg 18873 df-subg 18925 df-ghm 19006 df-cntz 19097 df-cmn 19564 df-abl 19565 df-mgp 19897 df-ur 19914 df-ring 19966 df-cring 19967 df-oppr 20049 df-dvdsr 20070 df-unit 20071 df-invr 20101 df-drng 20187 df-field 20188 df-subrg 20220 df-lmod 20324 df-lss 20393 df-lsp 20433 df-lmhm 20483 df-lbs 20536 df-lvec 20564 df-sra 20633 df-rgmod 20634 df-nzr 20728 df-dsmm 21138 df-frlm 21153 df-uvc 21189 df-lindf 21212 df-linds 21213 df-dim 32299 df-fldext 32331 df-extdg 32332

This theorem is referenced by: extdg1b 32353

W3C validator