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 32730

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 32719	. . 3 ⊢ (𝐸/_FldExt𝐹 → 𝐹 = (𝐸 ↾_s (Base‘𝐹)))
2	1	adantr 481	. 2 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → 𝐹 = (𝐸 ↾_s (Base‘𝐹)))
3		fldextsralvec 32722	. . . . . . 7 ⊢ (𝐸/_FldExt𝐹 → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
4	3	adantr 481	. . . . . 6 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
5		eqid 2732	. . . . . . 7 ⊢ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
6	5	lbsex 20770	. . . . . 6 ⊢ (((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec → (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅)
7	4, 6	syl 17	. . . . 5 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ≠ ∅)
8		n0 4345	. . . . 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 32674	. . . . . . . 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 32721	. . . . . . . . . 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 2774	. . . . . . . 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 2774	. . . . . 6 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → (♯‘𝑏) = 1)
19		hash1snb 14375	. . . . . . 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 2733	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹)))
25		eqid 2732	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (Base‘𝐹) = (Base‘𝐹)
26	25	fldextsubrg 32718	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐸/_FldExt𝐹 → (Base‘𝐹) ∈ (SubRing‘𝐸))
27		eqid 2732	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (Base‘𝐸) = (Base‘𝐸)
28	27	subrgss 20356	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((Base‘𝐹) ∈ (SubRing‘𝐸) → (Base‘𝐹) ⊆ (Base‘𝐸))
29	26, 28	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → (Base‘𝐹) ⊆ (Base‘𝐸))
30	24, 29	sravsca 20792	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐸) = ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
31	30	eqcomd 2738	. . . . . . . . . . . . . . . . . 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 7422	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 ∈ 𝑏) → ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖) = ((𝑣‘𝑖)(._r‘𝐸)𝑖))
34	23, 33	mpteq12dva 5236	. . . . . . . . . . . . . . 15 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)) = (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖)))
35	34	oveq2d 7421	. . . . . . . . . . . . . 14 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖))) = (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))))
36		eqid 2732	. . . . . . . . . . . . . . . . 17 ⊢ ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹))
37		fldextfld1 32716	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ Field)
38		isfld 20318	. . . . . . . . . . . . . . . . . . . 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 2732	. . . . . . . . . . . . . . . . 17 ⊢ (𝐸 ↾_s (Base‘𝐹)) = (𝐸 ↾_s (Base‘𝐹))
44		fldextfld2 32717	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸/_FldExt𝐹 → 𝐹 ∈ Field)
45		isfld 20318	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐹 ∈ Field ↔ (𝐹 ∈ DivRing ∧ 𝐹 ∈ CRing))
46	45	simplbi 498	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐹 ∈ Field → 𝐹 ∈ DivRing)
47	44, 46	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸/_FldExt𝐹 → 𝐹 ∈ DivRing)
48	1, 47	eqeltrrd 2834	. . . . . . . . . . . . . . . . . 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 32670	. . . . . . . . . . . . . . . 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 20314	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐸 ∈ DivRing → 𝐸 ∈ Ring)
55	37, 39, 54	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → 𝐸 ∈ Ring)
56		ringmnd 20059	. . . . . . . . . . . . . . . . . 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 3478	. . . . . . . . . . . . . . . . 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 8839	. . . . . . . . . . . . . . . . . . . . 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 4664	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝑥 ∈ {𝑥}
68	67, 23	eleqtrrid 2840	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → 𝑥 ∈ 𝑏)
69	66, 68	ffvelcdmd 7084	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
70	24, 29	srasca 20790	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐸/_FldExt𝐹 → (𝐸 ↾_s (Base‘𝐹)) = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
71	1, 70	eqtrd 2772	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐸/_FldExt𝐹 → 𝐹 = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
72	71	fveq2d 6892	. . . . . . . . . . . . . . . . . . . 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 2836	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝑣‘𝑥) ∈ (Base‘𝐹))
75	64, 74	sseldd 3982	. . . . . . . . . . . . . . . . 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 2732	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
79	78, 5	lbsss 20680	. . . . . . . . . . . . . . . . . . . . . 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 4020	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → {𝑥} ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
82	59	snss 4788	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ↔ {𝑥} ⊆ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
83	81, 82	sylibr 233	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → 𝑥 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
84		eqidd 2733	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹)))
85	84, 63	srabase 20784	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (Base‘𝐸) = (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
86	83, 85	eleqtrrd 2836	. . . . . . . . . . . . . . . . . 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 2732	. . . . . . . . . . . . . . . . . 18 ⊢ (._r‘𝐸) = (._r‘𝐸)
89	27, 88	ringcl 20066	. . . . . . . . . . . . . . . . 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 6892	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 = 𝑥) → (𝑣‘𝑖) = (𝑣‘𝑥))
93	92, 91	oveq12d 7423	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ 𝑖 = 𝑥) → ((𝑣‘𝑖)(._r‘𝐸)𝑖) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
94	27, 58, 60, 90, 93	gsumsnd 19814	. . . . . . . . . . . . . . 15 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
95	1	fveq2d 6892	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐹) = (._r‘(𝐸 ↾_s (Base‘𝐹))))
96	43, 88	ressmulr 17248	. . . . . . . . . . . . . . . . . . 19 ⊢ ((Base‘𝐹) ∈ (SubRing‘𝐸) → (._r‘𝐸) = (._r‘(𝐸 ↾_s (Base‘𝐹))))
97	26, 96	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐸) = (._r‘(𝐸 ↾_s (Base‘𝐹))))
98	95, 97	eqtr4d 2775	. . . . . . . . . . . . . . . . 17 ⊢ (𝐸/_FldExt𝐹 → (._r‘𝐹) = (._r‘𝐸))
99	98	ad4antr 730	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (._r‘𝐹) = (._r‘𝐸))
100	99	oveqd 7422	. . . . . . . . . . . . . . 15 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → ((𝑣‘𝑥)(._r‘𝐹)𝑥) = ((𝑣‘𝑥)(._r‘𝐸)𝑥))
101	94, 100	eqtr4d 2775	. . . . . . . . . . . . . 14 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) → (𝐸 Σ_g (𝑖 ∈ {𝑥} ↦ ((𝑣‘𝑖)(._r‘𝐸)𝑖))) = ((𝑣‘𝑥)(._r‘𝐹)𝑥))
102	35, 53, 101	3eqtr3d 2780	. . . . . . . . . . . . 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 20314	. . . . . . . . . . . . . . 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 2732	. . . . . . . . . . . . . . . . . . . 20 ⊢ (1_r‘𝐸) = (1_r‘𝐸)
109		eqid 2732	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Unit‘𝐸) = (Unit‘𝐸)
110		eqid 2732	. . . . . . . . . . . . . . . . . . . 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 20067	. . . . . . . . . . . . . . . . . . . . . 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 7421	. . . . . . . . . . . . . . . . . . . . . . 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 2778	. . . . . . . . . . . . . . . . . . . . . 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 2772	. . . . . . . . . . . . . . . . . . . . 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 2775	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → (𝑥(._r‘𝐸)(𝑣‘𝑥)) = (1_r‘𝐸))
127	125	eqcomd 2738	. . . . . . . . . . . . . . . . . . . 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 22169	. . . . . . . . . . . . . . . . . . 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 20197	. . . . . . . . . . . . . . . . . 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 2834	. . . . . . . . . . . . . . . . . 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 2833	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑣 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ↑_m 𝑏)) ∧ (1_r‘𝐸) = (((subringAlg ‘𝐸)‘(Base‘𝐹)) Σ_g (𝑖 ∈ 𝑏 ↦ ((𝑣‘𝑖)( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))𝑖)))) → ((inv_r‘𝐸)‘𝑥) ∈ (Base‘𝐹))
140		eqidd 2733	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝐸/_FldExt𝐹 → (0_g‘𝐸) = (0_g‘𝐸))
141	24, 140, 29	sralmod0 20802	. . . . . . . . . . . . . . . . . . . . . . . 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 21379	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ⊆ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
144	143, 10	sselid 3979	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) → 𝑏 ∈ (LIndS‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
145		eqid 2732	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (0_g‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
146	145	0nellinds 32471	. . . . . . . . . . . . . . . . . . . . . . . 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 2853	. . . . . . . . . . . . . . . . . . . . . 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 3040	. . . . . . . . . . . . . . . . . . . . 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 2732	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (0_g‘𝐸) = (0_g‘𝐸)
153	27, 152, 110	drnginvrn0 20330	. . . . . . . . . . . . . . . . . . . 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 4789	. . . . . . . . . . . . . . . . . . 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 6888	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = ((inv_r‘𝐸)‘𝑥) → ((inv_r‘𝐸)‘𝑎) = ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)))
158	157	eleq1d 2818	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = ((inv_r‘𝐸)‘𝑥) → (((inv_r‘𝐸)‘𝑎) ∈ (Base‘𝐹) ↔ ((inv_r‘𝐸)‘((inv_r‘𝐸)‘𝑥)) ∈ (Base‘𝐹)))
159	43, 152, 110	issubdrg 20381	. . . . . . . . . . . . . . . . . . . . 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 3613	. . . . . . . . . . . . . . . . . 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 2834	. . . . . . . . . . . . . . . 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 20076	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸 ∈ Ring → (1_r‘𝐸) ∈ (Base‘𝐸))
168	61, 167	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (1_r‘𝐸) ∈ (Base‘𝐸))
169	168, 85	eleqtrd 2835	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (1_r‘𝐸) ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
170		eqid 2732	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
171		eqid 2732	. . . . . . . . . . . . . . . . 17 ⊢ (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = (Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
172		eqid 2732	. . . . . . . . . . . . . . . . 17 ⊢ (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) = (0_g‘(Scalar‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
173		eqid 2732	. . . . . . . . . . . . . . . . 17 ⊢ ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹))) = ( ·_𝑠 ‘((subringAlg ‘𝐸)‘(Base‘𝐹)))
174	4	ad2antrr 724	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → ((subringAlg ‘𝐸)‘(Base‘𝐹)) ∈ LVec)
175		lveclmod 20709	. . . . . . . . . . . . . . . . . 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 32481	. . . . . . . . . . . . . . . 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 3162	. . . . . . . . . . . . . 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 2732	. . . . . . . . . . . . . 14 ⊢ (._r‘𝐹) = (._r‘𝐹)
182	25, 181	ringcl 20066	. . . . . . . . . . . . 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 2833	. . . . . . . . . . 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 2833	. . . . . . . . 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 2819	. . . . . . . . . 10 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘𝐸) ↔ 𝑢 ∈ (Base‘((subringAlg ‘𝐸)‘(Base‘𝐹)))))
189	78, 170, 171, 172, 173, 176, 77	lbslsp 32481	. . . . . . . . . 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 3162	. . . . . . 7 ⊢ (((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) ∧ 𝑢 ∈ (Base‘𝐸)) → 𝑢 ∈ (Base‘𝐹))
193	192	ex 413	. . . . . 6 ⊢ ((((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘(Base‘𝐹)))) ∧ 𝑏 = {𝑥}) → (𝑢 ∈ (Base‘𝐸) → 𝑢 ∈ (Base‘𝐹)))
194	193	ssrdv 3987	. . . . 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 6903	. . . 4 ⊢ (((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) ∧ (Base‘𝐸) ⊆ (Base‘𝐹)) → (Base‘𝐹) ∈ V)
200	43, 27	ressid2 17173	. . . 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 2773	1 ⊢ ((𝐸/_FldExt𝐹 ∧ (𝐸[:]𝐹) = 1) → 𝐸 = 𝐹)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 396 = wceq 1541 ∃wex 1781 ∈ wcel 2106 ≠ wne 2940 ∀wral 3061 ∃wrex 3070 Vcvv 3474 ∖ cdif 3944 ⊆ wss 3947 ∅c0 4321 {csn 4627 class class class wbr 5147 ↦ cmpt 5230 ⟶wf 6536 ‘cfv 6540 (class class class)co 7405 ↑_m cmap 8816 finSupp cfsupp 9357 1c1 11107 ♯chash 14286 Basecbs 17140 ↾_s cress 17169 ._rcmulr 17194 Scalarcsca 17196 ·_𝑠 cvsca 17197 0_gc0g 17381 Σ_g cgsu 17382 Mndcmnd 18621 1_rcur 19998 Ringcrg 20049 CRingccrg 20050 Unitcui 20161 inv_rcinvr 20193 DivRingcdr 20307 Fieldcfield 20308 SubRingcsubrg 20351 LModclmod 20463 LBasisclbs 20677 LVecclvec 20705 subringAlg csra 20773 LIndSclinds 21351 dimcldim 32672 /_FldExtcfldext 32705 [:]cextdg 32708

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 2703 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7721 ax-reg 9583 ax-inf2 9632 ax-ac2 10454 ax-cnex 11162 ax-resscn 11163 ax-1cn 11164 ax-icn 11165 ax-addcl 11166 ax-addrcl 11167 ax-mulcl 11168 ax-mulrcl 11169 ax-mulcom 11170 ax-addass 11171 ax-mulass 11172 ax-distr 11173 ax-i2m1 11174 ax-1ne0 11175 ax-1rid 11176 ax-rnegex 11177 ax-rrecex 11178 ax-cnre 11179 ax-pre-lttri 11180 ax-pre-lttrn 11181 ax-pre-ltadd 11182 ax-pre-mulgt0 11183

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 2534 df-eu 2563 df-clab 2710 df-cleq 2724 df-clel 2810 df-nfc 2885 df-ne 2941 df-nel 3047 df-ral 3062 df-rex 3071 df-rmo 3376 df-reu 3377 df-rab 3433 df-v 3476 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-tp 4632 df-op 4634 df-uni 4908 df-int 4950 df-iun 4998 df-iin 4999 df-br 5148 df-opab 5210 df-mpt 5231 df-tr 5265 df-id 5573 df-eprel 5579 df-po 5587 df-so 5588 df-fr 5630 df-se 5631 df-we 5632 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-pred 6297 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6492 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-isom 6549 df-riota 7361 df-ov 7408 df-oprab 7409 df-mpo 7410 df-of 7666 df-rpss 7709 df-om 7852 df-1st 7971 df-2nd 7972 df-supp 8143 df-tpos 8207 df-frecs 8262 df-wrecs 8293 df-recs 8367 df-rdg 8406 df-1o 8462 df-oadd 8466 df-er 8699 df-map 8818 df-ixp 8888 df-en 8936 df-dom 8937 df-sdom 8938 df-fin 8939 df-fsupp 9358 df-sup 9433 df-oi 9501 df-r1 9755 df-rank 9756 df-dju 9892 df-card 9930 df-acn 9933 df-ac 10107 df-pnf 11246 df-mnf 11247 df-xr 11248 df-ltxr 11249 df-le 11250 df-sub 11442 df-neg 11443 df-nn 12209 df-2 12271 df-3 12272 df-4 12273 df-5 12274 df-6 12275 df-7 12276 df-8 12277 df-9 12278 df-n0 12469 df-xnn0 12541 df-z 12555 df-dec 12674 df-uz 12819 df-fz 13481 df-fzo 13624 df-seq 13963 df-hash 14287 df-struct 17076 df-sets 17093 df-slot 17111 df-ndx 17123 df-base 17141 df-ress 17170 df-plusg 17206 df-mulr 17207 df-sca 17209 df-vsca 17210 df-ip 17211 df-tset 17212 df-ple 17213 df-ocomp 17214 df-ds 17215 df-hom 17217 df-cco 17218 df-0g 17383 df-gsum 17384 df-prds 17389 df-pws 17391 df-mre 17526 df-mrc 17527 df-mri 17528 df-acs 17529 df-proset 18244 df-drs 18245 df-poset 18262 df-ipo 18477 df-mgm 18557 df-sgrp 18606 df-mnd 18622 df-mhm 18667 df-submnd 18668 df-grp 18818 df-minusg 18819 df-sbg 18820 df-mulg 18945 df-subg 18997 df-ghm 19084 df-cntz 19175 df-cmn 19644 df-abl 19645 df-mgp 19982 df-ur 19999 df-ring 20051 df-cring 20052 df-oppr 20142 df-dvdsr 20163 df-unit 20164 df-invr 20194 df-nzr 20284 df-drng 20309 df-field 20310 df-subrg 20353 df-lmod 20465 df-lss 20535 df-lsp 20575 df-lmhm 20625 df-lbs 20678 df-lvec 20706 df-sra 20777 df-rgmod 20778 df-dsmm 21278 df-frlm 21293 df-uvc 21329 df-lindf 21352 df-linds 21353 df-dim 32673 df-fldext 32709 df-extdg 32710

This theorem is referenced by: extdg1b 32731

W3C validator