lcfrlem16 - Mathbox for Norm Megill

	Mathbox for Norm Megill		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > lcfrlem16		Structured version Visualization version GIF version

Theorem lcfrlem16 39572

Description: Lemma for lcfr 39599. (Contributed by NM, 8-Mar-2015.)

**Hypotheses**
Ref	Expression
lcf1o.h	⊢ 𝐻 = (LHyp‘𝐾)
lcf1o.o	⊢ ⊥ = ((ocH‘𝐾)‘𝑊)
lcf1o.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
lcf1o.v	⊢ 𝑉 = (Base‘𝑈)
lcf1o.a	⊢ + = (+_g‘𝑈)
lcf1o.t	⊢ · = ( ·_𝑠 ‘𝑈)
lcf1o.s	⊢ 𝑆 = (Scalar‘𝑈)
lcf1o.r	⊢ 𝑅 = (Base‘𝑆)
lcf1o.z	⊢ 0 = (0_g‘𝑈)
lcf1o.f	⊢ 𝐹 = (LFnl‘𝑈)
lcf1o.l	⊢ 𝐿 = (LKer‘𝑈)
lcf1o.d	⊢ 𝐷 = (LDual‘𝑈)
lcf1o.q	⊢ 𝑄 = (0_g‘𝐷)
lcf1o.c	⊢ 𝐶 = {𝑓 ∈ 𝐹 ∣ ( ⊥ ‘( ⊥ ‘(𝐿‘𝑓))) = (𝐿‘𝑓)}
lcf1o.j	⊢ 𝐽 = (𝑥 ∈ (𝑉 ∖ { 0 }) ↦ (𝑣 ∈ 𝑉 ↦ (℩𝑘 ∈ 𝑅 ∃𝑤 ∈ ( ⊥ ‘{𝑥})𝑣 = (𝑤 + (𝑘 · 𝑥)))))
lcflo.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
lcfrlem16.p	⊢ 𝑃 = (LSubSp‘𝐷)
lcfrlem16.g	⊢ (𝜑 → 𝐺 ∈ 𝑃)
lcfrlem16.gs	⊢ (𝜑 → 𝐺 ⊆ 𝐶)
lcfrlem16.m	⊢ 𝐸 = ∪ 𝑔 ∈ 𝐺 ( ⊥ ‘(𝐿‘𝑔))
lcfrlem16.x	⊢ (𝜑 → 𝑋 ∈ (𝐸 ∖ { 0 }))

**Assertion**
Ref	Expression
lcfrlem16	⊢ (𝜑 → (𝐽‘𝑋) ∈ 𝐺)

Distinct variable groups: 𝑥,𝑤, ⊥ 𝑥, 0 𝑥,𝑣,𝑉 𝑥, · 𝑣,𝑘,𝑤,𝑥,𝑋 𝑥, + 𝑥,𝑅 𝑓,𝑘,𝑣,𝑤, + 𝑓,𝐹,𝑘 𝑔,𝑘,𝐺 𝑓,𝑔,𝐽,𝑘 𝑓,𝐿,𝑘 ⊥ ,𝑓,𝑘,𝑣 𝑅,𝑓,𝑘,𝑣 𝑆,𝑘 · ,𝑓,𝑘,𝑣,𝑤 𝑈,𝑘 𝑓,𝑉,𝑔,𝑥 𝑓,𝑋 𝑣,𝑔,𝑤,𝑥,𝑋 𝜑,𝑔,𝑘 Allowed substitution hints: 𝜑(𝑥,𝑤,𝑣,𝑓) 𝐶(𝑥,𝑤,𝑣,𝑓,𝑔,𝑘) 𝐷(𝑥,𝑤,𝑣,𝑓,𝑔,𝑘) 𝑃(𝑥,𝑤,𝑣,𝑓,𝑔,𝑘) + (𝑔) 𝑄(𝑥,𝑤,𝑣,𝑓,𝑔,𝑘) 𝑅(𝑤,𝑔) 𝑆(𝑥,𝑤,𝑣,𝑓,𝑔) · (𝑔) 𝑈(𝑥,𝑤,𝑣,𝑓,𝑔) 𝐸(𝑥,𝑤,𝑣,𝑓,𝑔,𝑘) 𝐹(𝑥,𝑤,𝑣,𝑔) 𝐺(𝑥,𝑤,𝑣,𝑓) 𝐻(𝑥,𝑤,𝑣,𝑓,𝑔,𝑘) 𝐽(𝑥,𝑤,𝑣) 𝐾(𝑥,𝑤,𝑣,𝑓,𝑔,𝑘) 𝐿(𝑥,𝑤,𝑣,𝑔) ⊥ (𝑔) 𝑉(𝑤,𝑘) 𝑊(𝑥,𝑤,𝑣,𝑓,𝑔,𝑘) 0 (𝑤,𝑣,𝑓,𝑔,𝑘)

**Proof of Theorem lcfrlem16**
Step	Hyp	Ref	Expression
1		lcfrlem16.x	. . . . 5 ⊢ (𝜑 → 𝑋 ∈ (𝐸 ∖ { 0 }))
2	1	eldifad 3899	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝐸)
3		lcfrlem16.m	. . . 4 ⊢ 𝐸 = ∪ 𝑔 ∈ 𝐺 ( ⊥ ‘(𝐿‘𝑔))
4	2, 3	eleqtrdi 2849	. . 3 ⊢ (𝜑 → 𝑋 ∈ ∪ 𝑔 ∈ 𝐺 ( ⊥ ‘(𝐿‘𝑔)))
5		eliun 4928	. . 3 ⊢ (𝑋 ∈ ∪ 𝑔 ∈ 𝐺 ( ⊥ ‘(𝐿‘𝑔)) ↔ ∃𝑔 ∈ 𝐺 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔)))
6	4, 5	sylib 217	. 2 ⊢ (𝜑 → ∃𝑔 ∈ 𝐺 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔)))
7		lcf1o.s	. . . . 5 ⊢ 𝑆 = (Scalar‘𝑈)
8		lcf1o.r	. . . . 5 ⊢ 𝑅 = (Base‘𝑆)
9		lcf1o.f	. . . . 5 ⊢ 𝐹 = (LFnl‘𝑈)
10		lcf1o.l	. . . . 5 ⊢ 𝐿 = (LKer‘𝑈)
11		lcf1o.d	. . . . 5 ⊢ 𝐷 = (LDual‘𝑈)
12		eqid 2738	. . . . 5 ⊢ ( ·_𝑠 ‘𝐷) = ( ·_𝑠 ‘𝐷)
13		lcf1o.h	. . . . . . 7 ⊢ 𝐻 = (LHyp‘𝐾)
14		lcf1o.u	. . . . . . 7 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
15		lcflo.k	. . . . . . 7 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
16	13, 14, 15	dvhlvec 39123	. . . . . 6 ⊢ (𝜑 → 𝑈 ∈ LVec)
17	16	3ad2ant1 1132	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → 𝑈 ∈ LVec)
18		lcfrlem16.g	. . . . . . . 8 ⊢ (𝜑 → 𝐺 ∈ 𝑃)
19		eqid 2738	. . . . . . . . 9 ⊢ (Base‘𝐷) = (Base‘𝐷)
20		lcfrlem16.p	. . . . . . . . 9 ⊢ 𝑃 = (LSubSp‘𝐷)
21	19, 20	lssel 20199	. . . . . . . 8 ⊢ ((𝐺 ∈ 𝑃 ∧ 𝑔 ∈ 𝐺) → 𝑔 ∈ (Base‘𝐷))
22	18, 21	sylan 580	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺) → 𝑔 ∈ (Base‘𝐷))
23	13, 14, 15	dvhlmod 39124	. . . . . . . . 9 ⊢ (𝜑 → 𝑈 ∈ LMod)
24	9, 11, 19, 23	ldualvbase 37140	. . . . . . . 8 ⊢ (𝜑 → (Base‘𝐷) = 𝐹)
25	24	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺) → (Base‘𝐷) = 𝐹)
26	22, 25	eleqtrd 2841	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺) → 𝑔 ∈ 𝐹)
27	26	3adant3 1131	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → 𝑔 ∈ 𝐹)
28		lcf1o.o	. . . . . . 7 ⊢ ⊥ = ((ocH‘𝐾)‘𝑊)
29		lcf1o.v	. . . . . . 7 ⊢ 𝑉 = (Base‘𝑈)
30		lcf1o.a	. . . . . . 7 ⊢ + = (+_g‘𝑈)
31		lcf1o.t	. . . . . . 7 ⊢ · = ( ·_𝑠 ‘𝑈)
32		lcf1o.z	. . . . . . 7 ⊢ 0 = (0_g‘𝑈)
33		lcf1o.q	. . . . . . 7 ⊢ 𝑄 = (0_g‘𝐷)
34		lcf1o.c	. . . . . . 7 ⊢ 𝐶 = {𝑓 ∈ 𝐹 ∣ ( ⊥ ‘( ⊥ ‘(𝐿‘𝑓))) = (𝐿‘𝑓)}
35		lcf1o.j	. . . . . . 7 ⊢ 𝐽 = (𝑥 ∈ (𝑉 ∖ { 0 }) ↦ (𝑣 ∈ 𝑉 ↦ (℩𝑘 ∈ 𝑅 ∃𝑤 ∈ ( ⊥ ‘{𝑥})𝑣 = (𝑤 + (𝑘 · 𝑥)))))
36	15	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
37	23	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺) → 𝑈 ∈ LMod)
38	29, 9, 10, 37, 26	lkrssv 37110	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺) → (𝐿‘𝑔) ⊆ 𝑉)
39	13, 14, 29, 28	dochssv 39369	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐿‘𝑔) ⊆ 𝑉) → ( ⊥ ‘(𝐿‘𝑔)) ⊆ 𝑉)
40	36, 38, 39	syl2anc 584	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺) → ( ⊥ ‘(𝐿‘𝑔)) ⊆ 𝑉)
41	40	ralrimiva 3103	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑔 ∈ 𝐺 ( ⊥ ‘(𝐿‘𝑔)) ⊆ 𝑉)
42		iunss 4975	. . . . . . . . . . 11 ⊢ (∪ 𝑔 ∈ 𝐺 ( ⊥ ‘(𝐿‘𝑔)) ⊆ 𝑉 ↔ ∀𝑔 ∈ 𝐺 ( ⊥ ‘(𝐿‘𝑔)) ⊆ 𝑉)
43	41, 42	sylibr 233	. . . . . . . . . 10 ⊢ (𝜑 → ∪ 𝑔 ∈ 𝐺 ( ⊥ ‘(𝐿‘𝑔)) ⊆ 𝑉)
44	3, 43	eqsstrid 3969	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 ⊆ 𝑉)
45	44	ssdifd 4075	. . . . . . . 8 ⊢ (𝜑 → (𝐸 ∖ { 0 }) ⊆ (𝑉 ∖ { 0 }))
46	45, 1	sseldd 3922	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ (𝑉 ∖ { 0 }))
47	13, 28, 14, 29, 30, 31, 7, 8, 32, 9, 10, 11, 33, 34, 35, 15, 46	lcfrlem10 39566	. . . . . 6 ⊢ (𝜑 → (𝐽‘𝑋) ∈ 𝐹)
48	47	3ad2ant1 1132	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → (𝐽‘𝑋) ∈ 𝐹)
49		eqid 2738	. . . . . . 7 ⊢ (LSAtoms‘𝑈) = (LSAtoms‘𝑈)
50	15	3ad2ant1 1132	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
51		simp3 1137	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔)))
52		eldifsni 4723	. . . . . . . . . . 11 ⊢ (𝑋 ∈ (𝐸 ∖ { 0 }) → 𝑋 ≠ 0 )
53	1, 52	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑋 ≠ 0 )
54	53	3ad2ant1 1132	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → 𝑋 ≠ 0 )
55		eldifsn 4720	. . . . . . . . 9 ⊢ (𝑋 ∈ (( ⊥ ‘(𝐿‘𝑔)) ∖ { 0 }) ↔ (𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔)) ∧ 𝑋 ≠ 0 ))
56	51, 54, 55	sylanbrc 583	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → 𝑋 ∈ (( ⊥ ‘(𝐿‘𝑔)) ∖ { 0 }))
57	13, 28, 14, 29, 32, 9, 10, 50, 27, 56, 49	dochsnkrlem2 39484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → ( ⊥ ‘(𝐿‘𝑔)) ∈ (LSAtoms‘𝑈))
58	13, 28, 14, 29, 30, 31, 7, 8, 32, 9, 10, 11, 33, 34, 35, 15, 46	lcfrlem15 39571	. . . . . . . . . 10 ⊢ (𝜑 → 𝑋 ∈ ( ⊥ ‘(𝐿‘(𝐽‘𝑋))))
59		eldifsn 4720	. . . . . . . . . 10 ⊢ (𝑋 ∈ (( ⊥ ‘(𝐿‘(𝐽‘𝑋))) ∖ { 0 }) ↔ (𝑋 ∈ ( ⊥ ‘(𝐿‘(𝐽‘𝑋))) ∧ 𝑋 ≠ 0 ))
60	58, 53, 59	sylanbrc 583	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 ∈ (( ⊥ ‘(𝐿‘(𝐽‘𝑋))) ∖ { 0 }))
61	13, 28, 14, 29, 32, 9, 10, 15, 47, 60, 49	dochsnkrlem2 39484	. . . . . . . 8 ⊢ (𝜑 → ( ⊥ ‘(𝐿‘(𝐽‘𝑋))) ∈ (LSAtoms‘𝑈))
62	61	3ad2ant1 1132	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → ( ⊥ ‘(𝐿‘(𝐽‘𝑋))) ∈ (LSAtoms‘𝑈))
63	58	3ad2ant1 1132	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → 𝑋 ∈ ( ⊥ ‘(𝐿‘(𝐽‘𝑋))))
64	32, 49, 17, 57, 62, 54, 51, 63	lsat2el 37021	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → ( ⊥ ‘(𝐿‘𝑔)) = ( ⊥ ‘(𝐿‘(𝐽‘𝑋))))
65		eqid 2738	. . . . . . 7 ⊢ ((DIsoH‘𝐾)‘𝑊) = ((DIsoH‘𝐾)‘𝑊)
66		lcfrlem16.gs	. . . . . . . . . 10 ⊢ (𝜑 → 𝐺 ⊆ 𝐶)
67	66	3ad2ant1 1132	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → 𝐺 ⊆ 𝐶)
68		simp2 1136	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → 𝑔 ∈ 𝐺)
69	67, 68	sseldd 3922	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → 𝑔 ∈ 𝐶)
70	13, 65, 28, 14, 9, 10, 34, 50, 27	lcfl5 39510	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → (𝑔 ∈ 𝐶 ↔ (𝐿‘𝑔) ∈ ran ((DIsoH‘𝐾)‘𝑊)))
71	69, 70	mpbid 231	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → (𝐿‘𝑔) ∈ ran ((DIsoH‘𝐾)‘𝑊))
72	13, 28, 14, 29, 30, 31, 7, 8, 32, 9, 10, 11, 33, 34, 35, 15, 46	lcfrlem13 39569	. . . . . . . . . 10 ⊢ (𝜑 → (𝐽‘𝑋) ∈ (𝐶 ∖ {𝑄}))
73	72	eldifad 3899	. . . . . . . . 9 ⊢ (𝜑 → (𝐽‘𝑋) ∈ 𝐶)
74	13, 65, 28, 14, 9, 10, 34, 15, 47	lcfl5 39510	. . . . . . . . 9 ⊢ (𝜑 → ((𝐽‘𝑋) ∈ 𝐶 ↔ (𝐿‘(𝐽‘𝑋)) ∈ ran ((DIsoH‘𝐾)‘𝑊)))
75	73, 74	mpbid 231	. . . . . . . 8 ⊢ (𝜑 → (𝐿‘(𝐽‘𝑋)) ∈ ran ((DIsoH‘𝐾)‘𝑊))
76	75	3ad2ant1 1132	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → (𝐿‘(𝐽‘𝑋)) ∈ ran ((DIsoH‘𝐾)‘𝑊))
77	13, 65, 28, 50, 71, 76	doch11 39387	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → (( ⊥ ‘(𝐿‘𝑔)) = ( ⊥ ‘(𝐿‘(𝐽‘𝑋))) ↔ (𝐿‘𝑔) = (𝐿‘(𝐽‘𝑋))))
78	64, 77	mpbid 231	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → (𝐿‘𝑔) = (𝐿‘(𝐽‘𝑋)))
79	7, 8, 9, 10, 11, 12, 17, 27, 48, 78	eqlkr4 37179	. . . 4 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → ∃𝑘 ∈ 𝑅 (𝐽‘𝑋) = (𝑘( ·_𝑠 ‘𝐷)𝑔))
80	23	3ad2ant1 1132	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → 𝑈 ∈ LMod)
81	80	adantr 481	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) ∧ 𝑘 ∈ 𝑅) → 𝑈 ∈ LMod)
82	18	3ad2ant1 1132	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → 𝐺 ∈ 𝑃)
83	82	adantr 481	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) ∧ 𝑘 ∈ 𝑅) → 𝐺 ∈ 𝑃)
84		simpr 485	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) ∧ 𝑘 ∈ 𝑅) → 𝑘 ∈ 𝑅)
85		simpl2 1191	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) ∧ 𝑘 ∈ 𝑅) → 𝑔 ∈ 𝐺)
86	7, 8, 11, 12, 20, 81, 83, 84, 85	ldualssvscl 37172	. . . . . 6 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) ∧ 𝑘 ∈ 𝑅) → (𝑘( ·_𝑠 ‘𝐷)𝑔) ∈ 𝐺)
87		eleq1 2826	. . . . . 6 ⊢ ((𝐽‘𝑋) = (𝑘( ·_𝑠 ‘𝐷)𝑔) → ((𝐽‘𝑋) ∈ 𝐺 ↔ (𝑘( ·_𝑠 ‘𝐷)𝑔) ∈ 𝐺))
88	86, 87	syl5ibrcom 246	. . . . 5 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) ∧ 𝑘 ∈ 𝑅) → ((𝐽‘𝑋) = (𝑘( ·_𝑠 ‘𝐷)𝑔) → (𝐽‘𝑋) ∈ 𝐺))
89	88	rexlimdva 3213	. . . 4 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → (∃𝑘 ∈ 𝑅 (𝐽‘𝑋) = (𝑘( ·_𝑠 ‘𝐷)𝑔) → (𝐽‘𝑋) ∈ 𝐺))
90	79, 89	mpd 15	. . 3 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐺 ∧ 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔))) → (𝐽‘𝑋) ∈ 𝐺)
91	90	rexlimdv3a 3215	. 2 ⊢ (𝜑 → (∃𝑔 ∈ 𝐺 𝑋 ∈ ( ⊥ ‘(𝐿‘𝑔)) → (𝐽‘𝑋) ∈ 𝐺))
92	6, 91	mpd 15	1 ⊢ (𝜑 → (𝐽‘𝑋) ∈ 𝐺)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 396 ∧ w3a 1086 = wceq 1539 ∈ wcel 2106 ≠ wne 2943 ∀wral 3064 ∃wrex 3065 {crab 3068 ∖ cdif 3884 ⊆ wss 3887 {csn 4561 ∪ ciun 4924 ↦ cmpt 5157 ran crn 5590 ‘cfv 6433 ℩crio 7231 (class class class)co 7275 Basecbs 16912 +_gcplusg 16962 Scalarcsca 16965 ·_𝑠 cvsca 16966 0_gc0g 17150 LModclmod 20123 LSubSpclss 20193 LVecclvec 20364 LSAtomsclsa 36988 LFnlclfn 37071 LKerclk 37099 LDualcld 37137 HLchlt 37364 LHypclh 37998 DVecHcdvh 39092 DIsoHcdih 39242 ocHcoch 39361

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 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 2709 ax-rep 5209 ax-sep 5223 ax-nul 5230 ax-pow 5288 ax-pr 5352 ax-un 7588 ax-cnex 10927 ax-resscn 10928 ax-1cn 10929 ax-icn 10930 ax-addcl 10931 ax-addrcl 10932 ax-mulcl 10933 ax-mulrcl 10934 ax-mulcom 10935 ax-addass 10936 ax-mulass 10937 ax-distr 10938 ax-i2m1 10939 ax-1ne0 10940 ax-1rid 10941 ax-rnegex 10942 ax-rrecex 10943 ax-cnre 10944 ax-pre-lttri 10945 ax-pre-lttrn 10946 ax-pre-ltadd 10947 ax-pre-mulgt0 10948 ax-riotaBAD 36967

This theorem depends on definitions: df-bi 206 df-an 397 df-or 845 df-3or 1087 df-3an 1088 df-tru 1542 df-fal 1552 df-ex 1783 df-nf 1787 df-sb 2068 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2816 df-nfc 2889 df-ne 2944 df-nel 3050 df-ral 3069 df-rex 3070 df-rmo 3071 df-reu 3072 df-rab 3073 df-v 3434 df-sbc 3717 df-csb 3833 df-dif 3890 df-un 3892 df-in 3894 df-ss 3904 df-pss 3906 df-nul 4257 df-if 4460 df-pw 4535 df-sn 4562 df-pr 4564 df-tp 4566 df-op 4568 df-uni 4840 df-int 4880 df-iun 4926 df-iin 4927 df-br 5075 df-opab 5137 df-mpt 5158 df-tr 5192 df-id 5489 df-eprel 5495 df-po 5503 df-so 5504 df-fr 5544 df-we 5546 df-xp 5595 df-rel 5596 df-cnv 5597 df-co 5598 df-dm 5599 df-rn 5600 df-res 5601 df-ima 5602 df-pred 6202 df-ord 6269 df-on 6270 df-lim 6271 df-suc 6272 df-iota 6391 df-fun 6435 df-fn 6436 df-f 6437 df-f1 6438 df-fo 6439 df-f1o 6440 df-fv 6441 df-riota 7232 df-ov 7278 df-oprab 7279 df-mpo 7280 df-of 7533 df-om 7713 df-1st 7831 df-2nd 7832 df-tpos 8042 df-undef 8089 df-frecs 8097 df-wrecs 8128 df-recs 8202 df-rdg 8241 df-1o 8297 df-er 8498 df-map 8617 df-en 8734 df-dom 8735 df-sdom 8736 df-fin 8737 df-pnf 11011 df-mnf 11012 df-xr 11013 df-ltxr 11014 df-le 11015 df-sub 11207 df-neg 11208 df-nn 11974 df-2 12036 df-3 12037 df-4 12038 df-5 12039 df-6 12040 df-n0 12234 df-z 12320 df-uz 12583 df-fz 13240 df-struct 16848 df-sets 16865 df-slot 16883 df-ndx 16895 df-base 16913 df-ress 16942 df-plusg 16975 df-mulr 16976 df-sca 16978 df-vsca 16979 df-0g 17152 df-proset 18013 df-poset 18031 df-plt 18048 df-lub 18064 df-glb 18065 df-join 18066 df-meet 18067 df-p0 18143 df-p1 18144 df-lat 18150 df-clat 18217 df-mgm 18326 df-sgrp 18375 df-mnd 18386 df-submnd 18431 df-grp 18580 df-minusg 18581 df-sbg 18582 df-subg 18752 df-cntz 18923 df-lsm 19241 df-cmn 19388 df-abl 19389 df-mgp 19721 df-ur 19738 df-ring 19785 df-oppr 19862 df-dvdsr 19883 df-unit 19884 df-invr 19914 df-dvr 19925 df-drng 19993 df-lmod 20125 df-lss 20194 df-lsp 20234 df-lvec 20365 df-lsatoms 36990 df-lshyp 36991 df-lfl 37072 df-lkr 37100 df-ldual 37138 df-oposet 37190 df-ol 37192 df-oml 37193 df-covers 37280 df-ats 37281 df-atl 37312 df-cvlat 37336 df-hlat 37365 df-llines 37512 df-lplanes 37513 df-lvols 37514 df-lines 37515 df-psubsp 37517 df-pmap 37518 df-padd 37810 df-lhyp 38002 df-laut 38003 df-ldil 38118 df-ltrn 38119 df-trl 38173 df-tgrp 38757 df-tendo 38769 df-edring 38771 df-dveca 39017 df-disoa 39043 df-dvech 39093 df-dib 39153 df-dic 39187 df-dih 39243 df-doch 39362 df-djh 39409

This theorem is referenced by: lcfrlem27 39583 lcfrlem37 39593

W3C validator