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 33661

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 33647	. . 3 ⊢ (𝐸/_FldExt𝐹 → 𝐹 = (𝐸 ↾_s (Base‘𝐹)))
2	1	adantr 480	. 2 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → 𝐹 = (𝐸 ↾_s (Base‘𝐹)))
3		fldextsralvec 33651	. . . . . . 7 ⊢ (𝐸/_FldExt𝐹 → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
4	3	adantr 480	. . . . . 6 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
5		eqid 2729	. . . . . . 7 ⊢ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
6	5	lbsex 21075	. . . . . 6 ⊢ (((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec → (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅)
7	4, 6	syl 17	. . . . 5 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅)
8		n0 4316	. . . . 5 ⊢ ((LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅ ↔ ∃𝑏 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
9	7, 8	sylib 218	. . . 4 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → ∃𝑏 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
10		simpr 484	. . . . . 6 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
11	5	dimval 33596	. . . . . . . 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 33649	. . . . . . . . . 10 ⊢ (𝐸/_FldExt𝐹 → (𝐸[:]𝐹) = (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
14	13	adantr 480	. . . . . . . . 9 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (𝐸[:]𝐹) = (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
15		simpr 484	. . . . . . . . 9 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (𝐸[:]𝐹) = 1)
16	14, 15	eqtr3d 2766	. . . . . . . 8 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = 1)
17	16	adantr 480	. . . . . . 7 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = 1)
18	12, 17	eqtr3d 2766	. . . . . 6 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (♯‘𝑏) = 1)
19		hash1snb 14384	. . . . . . 7 ⊢ (𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) → ((♯‘𝑏) = 1 ↔ ∃𝑥 𝑏 = {𝑥}))
20	19	biimpa 476	. . . . . 6 ⊢ ((𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ∧ (♯‘𝑏) = 1) → ∃𝑥 𝑏 = {𝑥})
21	10, 18, 20	syl2anc 584	. . . . 5 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ∃𝑥 𝑏 = {𝑥})
22		simpr 484	. . . . . . . . . 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 768	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑏 = {𝑥})
24		eqidd 2730	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹)))
25		eqid 2729	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (Base‘𝐹) = (Base‘𝐹)
26	25	fldextsubrg 33645	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐸/_FldExt𝐹 → (Base‘𝐹) ∈ (SubRing‘𝐸))
27		eqid 2729	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (Base‘𝐸) = (Base‘𝐸)
28	27	subrgss 20481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((Base‘𝐹) ∈ (SubRing‘𝐸) → (Base‘𝐹) ⊆ (Base‘𝐸))
29	26, 28	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → (Base‘𝐹) ⊆ (Base‘𝐸))
30	24, 29	sravsca 21088	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐸) = ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
31	30	eqcomd 2735	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (._r‘𝐸))
32	31	ad5antr 734	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 ∈ 𝑏) → ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (._r‘𝐸))
33	32	oveqd 7404	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 ∈ 𝑏) → ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖) = ((𝑣‘𝑖)(._r‘𝐸)𝑖))
34	23, 33	mpteq12dva 5193	. . . . . . . . . . . . . . 15 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)) = (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖)))
35	34	oveq2d 7403	. . . . . . . . . . . . . 14 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))))
36		eqid 2729	. . . . . . . . . . . . . . . . 17 ⊢ ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹))
37		fldextfld1 33643	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ Field)
38		isfld 20649	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸 ∈ Field ↔ (𝐸 ∈ DivRing ∧ 𝐸 ∈ CRing))
39	38	simplbi 497	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸 ∈ Field → 𝐸 ∈ DivRing)
40	37, 39	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ DivRing)
41	40	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝐸 ∈ DivRing)
42	26	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (Base‘𝐹) ∈ (SubRing‘𝐸))
43		eqid 2729	. . . . . . . . . . . . . . . . 17 ⊢ (𝐸 ↾_s (Base‘𝐹)) = (𝐸 ↾_s (Base‘𝐹))
44		fldextfld2 33644	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → 𝐹 ∈ Field)
45		isfld 20649	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐹 ∈ Field ↔ (𝐹 ∈ DivRing ∧ 𝐹 ∈ CRing))
46	45	simplbi 497	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐹 ∈ Field → 𝐹 ∈ DivRing)
47	44, 46	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸/_FldExt𝐹 → 𝐹 ∈ DivRing)
48	1, 47	eqeltrrd 2829	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing)
49	48	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing)
50		simpr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
51	36, 41, 42, 43, 49, 50	drgextgsum 33590	. . . . . . . . . . . . . . . 16 ⊢ ((𝐸/_FldExt𝐹 ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
52	51	adantlr 715	. . . . . . . . . . . . . . 15 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
53	52	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))))
54		drngring 20645	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸 ∈ DivRing → 𝐸 ∈ Ring)
55	37, 39, 54	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ Ring)
56		ringmnd 20152	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸 ∈ Ring → 𝐸 ∈ Mnd)
57	55, 56	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ Mnd)
58	57	ad4antr 732	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝐸 ∈ Mnd)
59		vex 3451	. . . . . . . . . . . . . . . . 17 ⊢ 𝑥 ∈ V
60	59	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑥 ∈ V)
61	55	ad3antrrr 730	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝐸 ∈ Ring)
62	61	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝐸 ∈ Ring)
63	29	ad3antrrr 730	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (Base‘𝐹) ⊆ (Base‘𝐸))
64	63	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (Base‘𝐹) ⊆ (Base‘𝐸))
65		elmapi 8822	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏) → 𝑣:𝑏⟶(Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
66	65	adantl 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑣:𝑏⟶(Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
67		vsnid 4627	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝑥 ∈ {𝑥}
68	67, 23	eleqtrrid 2835	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑥 ∈ 𝑏)
69	66, 68	ffvelcdmd 7057	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
70	24, 29	srasca 21087	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐸/_FldExt𝐹 → (𝐸 ↾_s (Base‘𝐹)) = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
71	1, 70	eqtrd 2764	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐸/_FldExt𝐹 → 𝐹 = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
72	71	fveq2d 6862	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → (Base‘𝐹) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
73	72	ad4antr 732	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (Base‘𝐹) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
74	69, 73	eleqtrrd 2831	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘𝐹))
75	64, 74	sseldd 3947	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘𝐸))
76		simpr 484	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑏 = {𝑥})
77		simplr 768	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
78		eqid 2729	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
79	78, 5	lbsss 20984	. . . . . . . . . . . . . . . . . . . . . 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 3982	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → {𝑥} ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
82	59	snss 4749	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ↔ {𝑥} ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
83	81, 82	sylibr 234	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑥 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
84		eqidd 2730	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹)))
85	84, 63	srabase 21084	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (Base‘𝐸) = (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
86	83, 85	eleqtrrd 2831	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑥 ∈ (Base‘𝐸))
87	86	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑥 ∈ (Base‘𝐸))
88		eqid 2729	. . . . . . . . . . . . . . . . . 18 ⊢ (._r‘𝐸) = (._r‘𝐸)
89	27, 88	ringcl 20159	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐸 ∈ Ring ∧ (𝑣‘𝑥) ∈ (Base‘𝐸) ∧ 𝑥 ∈ (Base‘𝐸)) → ((𝑣‘𝑥)(._r‘𝐸)𝑥) ∈ (Base‘𝐸))
90	62, 75, 87, 89	syl3anc 1373	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → ((𝑣‘𝑥)(._r‘𝐸)𝑥) ∈ (Base‘𝐸))
91		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 = 𝑥) → 𝑖 = 𝑥)
92	91	fveq2d 6862	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 = 𝑥) → (𝑣‘𝑖) = (𝑣‘𝑥))
93	92, 91	oveq12d 7405	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 = 𝑥) → ((𝑣‘𝑖)(._r‘𝐸)𝑖) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
94	27, 58, 60, 90, 93	gsumsnd 19882	. . . . . . . . . . . . . . 15 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
95	1	fveq2d 6862	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐹) = (._r‘(𝐸 ↾_s (Base‘𝐹))))
96	43, 88	ressmulr 17270	. . . . . . . . . . . . . . . . . . 19 ⊢ ((Base‘𝐹) ∈ (SubRing‘𝐸) → (._r‘𝐸) = (._r‘(𝐸 ↾_s (Base‘𝐹))))
97	26, 96	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐸) = (._r‘(𝐸 ↾_s (Base‘𝐹))))
98	95, 97	eqtr4d 2767	. . . . . . . . . . . . . . . . 17 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐹) = (._r‘𝐸))
99	98	ad4antr 732	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (._r‘𝐹) = (._r‘𝐸))
100	99	oveqd 7404	. . . . . . . . . . . . . . 15 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → ((𝑣‘𝑥)(._r‘𝐹)𝑥) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
101	94, 100	eqtr4d 2767	. . . . . . . . . . . . . 14 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))) = ((𝑣‘𝑥)(._r‘𝐹)𝑥))
102	35, 53, 101	3eqtr3d 2772	. . . . . . . . . . . . 13 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = ((𝑣‘𝑥)(._r‘𝐹)𝑥))
103	102	adantlr 715	. . . . . . . . . . . 12 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = ((𝑣‘𝑥)(._r‘𝐹)𝑥))
104		drngring 20645	. . . . . . . . . . . . . . 15 ⊢ (𝐹 ∈ DivRing → 𝐹 ∈ Ring)
105	44, 46, 104	3syl 18	. . . . . . . . . . . . . 14 ⊢ (𝐸/_FldExt𝐹 → 𝐹 ∈ Ring)
106	105	ad5antr 734	. . . . . . . . . . . . 13 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝐹 ∈ Ring)
107	74	adantlr 715	. . . . . . . . . . . . 13 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘𝐹))
108		eqid 2729	. . . . . . . . . . . . . . . . . . . 20 ⊢ (1_r‘𝐸) = (1_r‘𝐸)
109		eqid 2729	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Unit‘𝐸) = (Unit‘𝐸)
110		eqid 2729	. . . . . . . . . . . . . . . . . . . 20 ⊢ (inv_r‘𝐸) = (inv_r‘𝐸)
111		simp-5l 784	. . . . . . . . . . . . . . . . . . . . 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 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ∈ (Base‘𝐸))
114	75	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑣‘𝑥) ∈ (Base‘𝐸))
115	38	simprbi 496	. . . . . . . . . . . . . . . . . . . . . . 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 20160	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐸 ∈ CRing ∧ 𝑥 ∈ (Base‘𝐸) ∧ (𝑣‘𝑥) ∈ (Base‘𝐸)) → (𝑥(._r‘𝐸)(𝑣‘𝑥)) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
118	116, 113, 114, 117	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑥(._r‘𝐸)(𝑣‘𝑥)) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
119		simpr 484	. . . . . . . . . . . . . . . . . . . . . . 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 730	. . . . . . . . . . . . . . . . . . . . . . 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 480	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)) = (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖)))
122	121	oveq2d 7403	. . . . . . . . . . . . . . . . . . . . . . 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 2770	. . . . . . . . . . . . . . . . . . . . . 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 480	. . . . . . . . . . . . . . . . . . . . . 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 2764	. . . . . . . . . . . . . . . . . . . . 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 2767	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑥(._r‘𝐸)(𝑣‘𝑥)) = (1_r‘𝐸))
127	125	eqcomd 2735	. . . . . . . . . . . . . . . . . . . 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 22563	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑥 ∈ (Unit‘𝐸) ∧ ((inv_r‘𝐸)‘𝑥) = (𝑣‘𝑥)))
129	128	simpld 494	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ∈ (Unit‘𝐸))
130	109, 110	unitinvinv 20300	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐸 ∈ Ring ∧ 𝑥 ∈ (Unit‘𝐸)) → ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)) = 𝑥)
131	62, 129, 130	syl2an2r 685	. . . . . . . . . . . . . . . . 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 2829	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing)
137	128	simprd 495	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((inv_r‘𝐸)‘𝑥) = (𝑣‘𝑥))
138	74	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑣‘𝑥) ∈ (Base‘𝐹))
139	137, 138	eqeltrd 2828	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((inv_r‘𝐸)‘𝑥) ∈ (Base‘𝐹))
140		eqidd 2730	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝐸/_FldExt𝐹 → (0_g‘𝐸) = (0_g‘𝐸))
141	24, 140, 29	sralmod0 21095	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝐸/_FldExt𝐹 → (0_g‘𝐸) = (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
142	141	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (0_g‘𝐸) = (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
143	5	lbslinds 21742	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ⊆ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
144	143, 10	sselid 3944	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝑏 ∈ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
145		eqid 2729	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
146	145	0nellinds 33341	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec ∧ 𝑏 ∈ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ¬ (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ∈ 𝑏)
147	4, 144, 146	syl2an2r 685	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ¬ (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ∈ 𝑏)
148	142, 147	eqneltrd 2848	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → ¬ (0_g‘𝐸) ∈ 𝑏)
149	148	ad3antrrr 730	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ¬ (0_g‘𝐸) ∈ 𝑏)
150		nelne2 3023	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 ∈ 𝑏 ∧ ¬ (0_g‘𝐸) ∈ 𝑏) → 𝑥 ≠ (0_g‘𝐸))
151	68, 149, 150	syl2an2r 685	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ≠ (0_g‘𝐸))
152		eqid 2729	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (0_g‘𝐸) = (0_g‘𝐸)
153	27, 152, 110	drnginvrn0 20663	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐸 ∈ DivRing ∧ 𝑥 ∈ (Base‘𝐸) ∧ 𝑥 ≠ (0_g‘𝐸)) → ((inv_r‘𝐸)‘𝑥) ≠ (0_g‘𝐸))
154	132, 113, 151, 153	syl3anc 1373	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((inv_r‘𝐸)‘𝑥) ≠ (0_g‘𝐸))
155		eldifsn 4750	. . . . . . . . . . . . . . . . . . 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 6858	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = ((inv_r‘𝐸)‘𝑥) → ((inv_r‘𝐸)‘𝑎) = ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)))
158	157	eleq1d 2813	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = ((inv_r‘𝐸)‘𝑥) → (((inv_r‘𝐸)‘𝑎) ∈ (Base‘𝐹) ↔ ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)) ∈ (Base‘𝐹)))
159	43, 152, 110	issubdrg 20689	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) → ((𝐸 ↾_s (Base‘𝐹)) ∈ DivRing ↔ ∀𝑎 ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})((inv_r‘𝐸)‘𝑎) ∈ (Base‘𝐹)))
160	159	biimpa 476	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing) → ∀𝑎 ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})((inv_r‘𝐸)‘𝑎) ∈ (Base‘𝐹))
161	160	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing) ∧ ((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})) → ∀𝑎 ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})((inv_r‘𝐸)‘𝑎) ∈ (Base‘𝐹))
162		simpr 484	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing) ∧ ((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})) → ((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)}))
163	158, 161, 162	rspcdva 3589	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐸 ∈ DivRing ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)) ∧ (𝐸 ↾_s (Base‘𝐹)) ∈ DivRing) ∧ ((inv_r‘𝐸)‘𝑥) ∈ ((Base‘𝐹) ∖ {(0_g‘𝐸)})) → ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)) ∈ (Base‘𝐹))
164	132, 133, 136, 156, 163	syl1111anc 840	. . . . . . . . . . . . . . . . 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 2829	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → 𝑥 ∈ (Base‘𝐹))
166	165	adantrl 716	. . . . . . . . . . . . . . 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 20174	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸 ∈ Ring → (1_r‘𝐸) ∈ (Base‘𝐸))
168	61, 167	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (1_r‘𝐸) ∈ (Base‘𝐸))
169	168, 85	eleqtrd 2830	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (1_r‘𝐸) ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
170		eqid 2729	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
171		eqid 2729	. . . . . . . . . . . . . . . . 17 ⊢ (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
172		eqid 2729	. . . . . . . . . . . . . . . . 17 ⊢ (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) = (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
173		eqid 2729	. . . . . . . . . . . . . . . . 17 ⊢ ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
174	4	ad2antrr 726	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
175		lveclmod 21013	. . . . . . . . . . . . . . . . . 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 33348	. . . . . . . . . . . . . . . 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 232	. . . . . . . . . . . . . . 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 3141	. . . . . . . . . . . . . 14 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑥 ∈ (Base‘𝐹))
180	179	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑥 ∈ (Base‘𝐹))
181		eqid 2729	. . . . . . . . . . . . . 14 ⊢ (._r‘𝐹) = (._r‘𝐹)
182	25, 181	ringcl 20159	. . . . . . . . . . . . 13 ⊢ ((𝐹 ∈ Ring ∧ (𝑣‘𝑥) ∈ (Base‘𝐹) ∧ 𝑥 ∈ (Base‘𝐹)) → ((𝑣‘𝑥)(._r‘𝐹)𝑥) ∈ (Base‘𝐹))
183	106, 107, 180, 182	syl3anc 1373	. . . . . . . . . . . 12 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → ((𝑣‘𝑥)(._r‘𝐹)𝑥) ∈ (Base‘𝐹))
184	103, 183	eqeltrd 2828	. . . . . . . . . . 11 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) ∈ (Base‘𝐹))
185	184	ad2antrr 726	. . . . . . . . . 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 2828	. . . . . . . . 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 466	. . . . . . . 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 2814	. . . . . . . . . 10 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘𝐸) ↔ 𝑢 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
189	78, 170, 171, 172, 173, 176, 77	lbslsp 33348	. . . . . . . . . 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 279	. . . . . . . . 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 476	. . . . . . . 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 3141	. . . . . . 7 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) → 𝑢 ∈ (Base‘𝐹))
193	192	ex 412	. . . . . 6 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘𝐸) → 𝑢 ∈ (Base‘𝐹)))
194	193	ssrdv 3952	. . . . 5 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (Base‘𝐸) ⊆ (Base‘𝐹))
195	21, 194	exlimddv 1935	. . . 4 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (Base‘𝐸) ⊆ (Base‘𝐹))
196	9, 195	exlimddv 1935	. . 3 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (Base‘𝐸) ⊆ (Base‘𝐹))
197		simpr 484	. . . 4 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → (Base‘𝐸) ⊆ (Base‘𝐹))
198	37	ad2antrr 726	. . . 4 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → 𝐸 ∈ Field)
199		fvexd 6873	. . . 4 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → (Base‘𝐹) ∈ V)
200	43, 27	ressid2 17204	. . . 4 ⊢ (((Base‘𝐸) ⊆ (Base‘𝐹) ∧ 𝐸 ∈ Field ∧ (Base‘𝐹) ∈ V) → (𝐸 ↾_s (Base‘𝐹)) = 𝐸)
201	197, 198, 199, 200	syl3anc 1373	. . 3 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → (𝐸 ↾_s (Base‘𝐹)) = 𝐸)
202	196, 201	mpdan 687	. 2 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (𝐸 ↾_s (Base‘𝐹)) = 𝐸)
203	2, 202	eqtr2d 2765	1 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → 𝐸 = 𝐹)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 395 = wceq 1540 ∃wex 1779 ∈ wcel 2109 ≠ wne 2925 ∀wral 3044 ∃wrex 3053 Vcvv 3447 ∖ cdif 3911 ⊆ wss 3914 ∅c0 4296 {csn 4589 class class class wbr 5107 ↦ cmpt 5188 ⟶wf 6507 ‘cfv 6511 (class class class)co 7387 ↑_m cmap 8799 finSupp cfsupp 9312 1c1 11069 ♯chash 14295 Basecbs 17179 ↾_s cress 17200 ._rcmulr 17221 Scalarcsca 17223 ·_𝑠 cvsca 17224 0_gc0g 17402 Σ_g cgsu 17403 Mndcmnd 18661 1_rcur 20090 Ringcrg 20142 CRingccrg 20143 Unitcui 20264 inv_rcinvr 20296 SubRingcsubrg 20478 DivRingcdr 20638 Fieldcfield 20639 LModclmod 20766 LBasisclbs 20981 LVecclvec 21009 subringAlg csra 21078 LIndSclinds 21714 dimcldim 33594 /_FldExtcfldext 33634 [:]cextdg 33636

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5234 ax-sep 5251 ax-nul 5261 ax-pow 5320 ax-pr 5387 ax-un 7711 ax-reg 9545 ax-inf2 9594 ax-ac2 10416 ax-cnex 11124 ax-resscn 11125 ax-1cn 11126 ax-icn 11127 ax-addcl 11128 ax-addrcl 11129 ax-mulcl 11130 ax-mulrcl 11131 ax-mulcom 11132 ax-addass 11133 ax-mulass 11134 ax-distr 11135 ax-i2m1 11136 ax-1ne0 11137 ax-1rid 11138 ax-rnegex 11139 ax-rrecex 11140 ax-cnre 11141 ax-pre-lttri 11142 ax-pre-lttrn 11143 ax-pre-ltadd 11144 ax-pre-mulgt0 11145

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3354 df-reu 3355 df-rab 3406 df-v 3449 df-sbc 3754 df-csb 3863 df-dif 3917 df-un 3919 df-in 3921 df-ss 3931 df-pss 3934 df-nul 4297 df-if 4489 df-pw 4565 df-sn 4590 df-pr 4592 df-tp 4594 df-op 4596 df-uni 4872 df-int 4911 df-iun 4957 df-iin 4958 df-br 5108 df-opab 5170 df-mpt 5189 df-tr 5215 df-id 5533 df-eprel 5538 df-po 5546 df-so 5547 df-fr 5591 df-se 5592 df-we 5593 df-xp 5644 df-rel 5645 df-cnv 5646 df-co 5647 df-dm 5648 df-rn 5649 df-res 5650 df-ima 5651 df-pred 6274 df-ord 6335 df-on 6336 df-lim 6337 df-suc 6338 df-iota 6464 df-fun 6513 df-fn 6514 df-f 6515 df-f1 6516 df-fo 6517 df-f1o 6518 df-fv 6519 df-isom 6520 df-riota 7344 df-ov 7390 df-oprab 7391 df-mpo 7392 df-of 7653 df-rpss 7699 df-om 7843 df-1st 7968 df-2nd 7969 df-supp 8140 df-tpos 8205 df-frecs 8260 df-wrecs 8291 df-recs 8340 df-rdg 8378 df-1o 8434 df-2o 8435 df-oadd 8438 df-er 8671 df-map 8801 df-ixp 8871 df-en 8919 df-dom 8920 df-sdom 8921 df-fin 8922 df-fsupp 9313 df-sup 9393 df-oi 9463 df-r1 9717 df-rank 9718 df-dju 9854 df-card 9892 df-acn 9895 df-ac 10069 df-pnf 11210 df-mnf 11211 df-xr 11212 df-ltxr 11213 df-le 11214 df-sub 11407 df-neg 11408 df-nn 12187 df-2 12249 df-3 12250 df-4 12251 df-5 12252 df-6 12253 df-7 12254 df-8 12255 df-9 12256 df-n0 12443 df-xnn0 12516 df-z 12530 df-dec 12650 df-uz 12794 df-fz 13469 df-fzo 13616 df-seq 13967 df-hash 14296 df-struct 17117 df-sets 17134 df-slot 17152 df-ndx 17164 df-base 17180 df-ress 17201 df-plusg 17233 df-mulr 17234 df-sca 17236 df-vsca 17237 df-ip 17238 df-tset 17239 df-ple 17240 df-ocomp 17241 df-ds 17242 df-hom 17244 df-cco 17245 df-0g 17404 df-gsum 17405 df-prds 17410 df-pws 17412 df-mre 17547 df-mrc 17548 df-mri 17549 df-acs 17550 df-proset 18255 df-drs 18256 df-poset 18274 df-ipo 18487 df-mgm 18567 df-sgrp 18646 df-mnd 18662 df-mhm 18710 df-submnd 18711 df-grp 18868 df-minusg 18869 df-sbg 18870 df-mulg 19000 df-subg 19055 df-ghm 19145 df-cntz 19249 df-cmn 19712 df-abl 19713 df-mgp 20050 df-rng 20062 df-ur 20091 df-ring 20144 df-cring 20145 df-oppr 20246 df-dvdsr 20266 df-unit 20267 df-invr 20297 df-nzr 20422 df-subrg 20479 df-drng 20640 df-field 20641 df-lmod 20768 df-lss 20838 df-lsp 20878 df-lmhm 20929 df-lbs 20982 df-lvec 21010 df-sra 21080 df-rgmod 21081 df-dsmm 21641 df-frlm 21656 df-uvc 21692 df-lindf 21715 df-linds 21716 df-dim 33595 df-fldext 33637 df-extdg 33638

This theorem is referenced by: extdg1b 33662 rtelextdg2 33717

W3C validator