Theorem islssm 14694

Description: The predicate "is a subspace" (of a left module or left vector space). (Contributed by NM, 8-Dec-2013.) (Revised by Mario Carneiro, 8-Jan-2015.)

Hypotheses

Ref	Expression
lssset.f	⊢ 𝐹 = (Scalar‘𝑊)
lssset.b	⊢ 𝐵 = (Base‘𝐹)
lssset.v	⊢ 𝑉 = (Base‘𝑊)
lssset.p	⊢ + = (+g‘𝑊)
lssset.t	⊢ · = ( ·𝑠 ‘𝑊)
lssset.s	⊢ 𝑆 = (LSubSp‘𝑊)

Assertion

Ref	Expression
islssm	⊢ (𝑈 ∈ 𝑆 ↔ (𝑈 ⊆ 𝑉 ∧ ∃𝑗 𝑗 ∈ 𝑈 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑈 ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈))

Distinct variable groups:   𝑥,𝐵   𝑎,𝑏,𝑥,𝑊   𝑈,𝑎,𝑏,𝑥,𝑗

Allowed substitution hints:   𝐵(𝑗, 𝑎, 𝑏)   + (𝑥, 𝑗, 𝑎, 𝑏)   𝑆(𝑥, 𝑗, 𝑎, 𝑏)   · (𝑥, 𝑗, 𝑎, 𝑏)   𝐹(𝑥, 𝑗, 𝑎, 𝑏)   𝑉(𝑥, 𝑗, 𝑎, 𝑏)   𝑊(𝑗)

Proof of Theorem islssm

Dummy variables 𝑠 𝑘 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		lssset.s	. . 3 ⊢ 𝑆 = (LSubSp‘𝑊)
2	1	lssmex 14692	. 2 ⊢ (𝑈 ∈ 𝑆 → 𝑊 ∈ V)
3		eleq1w 2299	. . . . . 6 ⊢ (𝑘 = 𝑗 → (𝑘 ∈ 𝑈 ↔ 𝑗 ∈ 𝑈))
4	3	cbvexv 1974	. . . . 5 ⊢ (∃𝑘 𝑘 ∈ 𝑈 ↔ ∃𝑗 𝑗 ∈ 𝑈)
5		ssel 3242	. . . . . . 7 ⊢ (𝑈 ⊆ 𝑉 → (𝑘 ∈ 𝑈 → 𝑘 ∈ 𝑉))
6		lssset.v	. . . . . . . 8 ⊢ 𝑉 = (Base‘𝑊)
7	6	basmex 13412	. . . . . . 7 ⊢ (𝑘 ∈ 𝑉 → 𝑊 ∈ V)
8	5, 7	syl6 33	. . . . . 6 ⊢ (𝑈 ⊆ 𝑉 → (𝑘 ∈ 𝑈 → 𝑊 ∈ V))
9	8	exlimdv 1872	. . . . 5 ⊢ (𝑈 ⊆ 𝑉 → (∃𝑘 𝑘 ∈ 𝑈 → 𝑊 ∈ V))
10	4, 9	biimtrrid 153	. . . 4 ⊢ (𝑈 ⊆ 𝑉 → (∃𝑗 𝑗 ∈ 𝑈 → 𝑊 ∈ V))
11	10	imp 124	. . 3 ⊢ ((𝑈 ⊆ 𝑉 ∧ ∃𝑗 𝑗 ∈ 𝑈) → 𝑊 ∈ V)
12	11	3adant3 1048	. 2 ⊢ ((𝑈 ⊆ 𝑉 ∧ ∃𝑗 𝑗 ∈ 𝑈 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑈 ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈) → 𝑊 ∈ V)
13		lssset.f	. . . . 5 ⊢ 𝐹 = (Scalar‘𝑊)
14		lssset.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐹)
15		lssset.p	. . . . 5 ⊢ + = (+g‘𝑊)
16		lssset.t	. . . . 5 ⊢ · = ( ·𝑠 ‘𝑊)
17	13, 14, 6, 15, 16, 1	lsssetm 14693	. . . 4 ⊢ (𝑊 ∈ V → 𝑆 = {𝑠 ∈ 𝒫 𝑉 ∣ (∃𝑗 𝑗 ∈ 𝑠 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑠 ∀𝑏 ∈ 𝑠 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑠)})
18	17	eleq2d 2308	. . 3 ⊢ (𝑊 ∈ V → (𝑈 ∈ 𝑆 ↔ 𝑈 ∈ {𝑠 ∈ 𝒫 𝑉 ∣ (∃𝑗 𝑗 ∈ 𝑠 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑠 ∀𝑏 ∈ 𝑠 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑠)}))
19		basfn 13411	. . . . . . . 8 ⊢ Base Fn V
20		funfvex 5712	. . . . . . . . 9 ⊢ ((Fun Base ∧ 𝑊 ∈ dom Base) → (Base‘𝑊) ∈ V)
21	20	funfni 5483	. . . . . . . 8 ⊢ ((Base Fn V ∧ 𝑊 ∈ V) → (Base‘𝑊) ∈ V)
22	19, 21	mpan 428	. . . . . . 7 ⊢ (𝑊 ∈ V → (Base‘𝑊) ∈ V)
23	6, 22	eqeltrid 2325	. . . . . 6 ⊢ (𝑊 ∈ V → 𝑉 ∈ V)
24		elpw2g 4292	. . . . . 6 ⊢ (𝑉 ∈ V → (𝑈 ∈ 𝒫 𝑉 ↔ 𝑈 ⊆ 𝑉))
25	23, 24	syl 14	. . . . 5 ⊢ (𝑊 ∈ V → (𝑈 ∈ 𝒫 𝑉 ↔ 𝑈 ⊆ 𝑉))
26	25	anbi1d 469	. . . 4 ⊢ (𝑊 ∈ V → ((𝑈 ∈ 𝒫 𝑉 ∧ (∃𝑗 𝑗 ∈ 𝑈 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑈 ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈)) ↔ (𝑈 ⊆ 𝑉 ∧ (∃𝑗 𝑗 ∈ 𝑈 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑈 ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈))))
27		eleq2 2302	. . . . . . 7 ⊢ (𝑠 = 𝑈 → (𝑗 ∈ 𝑠 ↔ 𝑗 ∈ 𝑈))
28	27	exbidv 1878	. . . . . 6 ⊢ (𝑠 = 𝑈 → (∃𝑗 𝑗 ∈ 𝑠 ↔ ∃𝑗 𝑗 ∈ 𝑈))
29		eleq2 2302	. . . . . . . . 9 ⊢ (𝑠 = 𝑈 → (((𝑥 · 𝑎) + 𝑏) ∈ 𝑠 ↔ ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈))
30	29	raleqbi1dv 2761	. . . . . . . 8 ⊢ (𝑠 = 𝑈 → (∀𝑏 ∈ 𝑠 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑠 ↔ ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈))
31	30	raleqbi1dv 2761	. . . . . . 7 ⊢ (𝑠 = 𝑈 → (∀𝑎 ∈ 𝑠 ∀𝑏 ∈ 𝑠 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑠 ↔ ∀𝑎 ∈ 𝑈 ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈))
32	31	ralbidv 2550	. . . . . 6 ⊢ (𝑠 = 𝑈 → (∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑠 ∀𝑏 ∈ 𝑠 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑠 ↔ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑈 ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈))
33	28, 32	anbi12d 477	. . . . 5 ⊢ (𝑠 = 𝑈 → ((∃𝑗 𝑗 ∈ 𝑠 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑠 ∀𝑏 ∈ 𝑠 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑠) ↔ (∃𝑗 𝑗 ∈ 𝑈 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑈 ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈)))
34	33	elrab 2982	. . . 4 ⊢ (𝑈 ∈ {𝑠 ∈ 𝒫 𝑉 ∣ (∃𝑗 𝑗 ∈ 𝑠 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑠 ∀𝑏 ∈ 𝑠 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑠)} ↔ (𝑈 ∈ 𝒫 𝑉 ∧ (∃𝑗 𝑗 ∈ 𝑈 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑈 ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈)))
35		3anass 1013	. . . 4 ⊢ ((𝑈 ⊆ 𝑉 ∧ ∃𝑗 𝑗 ∈ 𝑈 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑈 ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈) ↔ (𝑈 ⊆ 𝑉 ∧ (∃𝑗 𝑗 ∈ 𝑈 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑈 ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈)))
36	26, 34, 35	3bitr4g 223	. . 3 ⊢ (𝑊 ∈ V → (𝑈 ∈ {𝑠 ∈ 𝒫 𝑉 ∣ (∃𝑗 𝑗 ∈ 𝑠 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑠 ∀𝑏 ∈ 𝑠 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑠)} ↔ (𝑈 ⊆ 𝑉 ∧ ∃𝑗 𝑗 ∈ 𝑈 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑈 ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈)))
37	18, 36	bitrd 188	. 2 ⊢ (𝑊 ∈ V → (𝑈 ∈ 𝑆 ↔ (𝑈 ⊆ 𝑉 ∧ ∃𝑗 𝑗 ∈ 𝑈 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑈 ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈)))
38	2, 12, 37	pm5.21nii 716	1 ⊢ (𝑈 ∈ 𝑆 ↔ (𝑈 ⊆ 𝑉 ∧ ∃𝑗 𝑗 ∈ 𝑈 ∧ ∀𝑥 ∈ 𝐵 ∀𝑎 ∈ 𝑈 ∀𝑏 ∈ 𝑈 ((𝑥 · 𝑎) + 𝑏) ∈ 𝑈))

This proof depends on syntax axioms:   ∧ wa 104   ↔ wb 105   ∧ w3a 1009   = wceq 1402  ∃wex 1545   ∈ wcel 2209  ∀wral 2528  {crab 2532  Vcvv 2821   ⊆ wss 3220  𝒫 cpw 3688   Fn wfn 5372  ‘cfv 5377  (class class class)co 6085  Basecbs 13352  +_gcplusg 13431  Scalarcsca 13434   ·_𝑠 cvsca 13435  LSubSpclss 14689

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-sep 4249  ax-pow 4311  ax-pr 4346  ax-un 4578  ax-cnex 8270  ax-resscn 8271  ax-1re 8273  ax-addrcl 8276

This proof depends on definitions:  df-bi 117  df-3an 1011  df-tru 1405  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ral 2533  df-rex 2534  df-rab 2537  df-v 2823  df-sbc 3052  df-csb 3148  df-un 3224  df-in 3226  df-ss 3233  df-pw 3690  df-sn 3715  df-pr 3716  df-op 3718  df-uni 3936  df-int 3971  df-br 4131  df-opab 4193  df-mpt 4194  df-id 4438  df-xp 4780  df-rel 4781  df-cnv 4782  df-co 4783  df-dm 4784  df-rn 4785  df-res 4786  df-iota 5337  df-fun 5379  df-fn 5380  df-fv 5385  df-ov 6088  df-inn 9305  df-ndx 13355  df-slot 13356  df-base 13358  df-lssm 14690

This theorem is used by:  islidlm  14816