dihatexv - Mathbox for Norm Megill

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

Theorem dihatexv 42198

Description: There is a nonzero vector that maps to every lattice atom. (Contributed by NM, 16-Aug-2014.)

**Hypotheses**
Ref	Expression
dihatexv.b	⊢ 𝐵 = (Base‘𝐾)
dihatexv.a	⊢ 𝐴 = (Atoms‘𝐾)
dihatexv.h	⊢ 𝐻 = (LHyp‘𝐾)
dihatexv.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
dihatexv.v	⊢ 𝑉 = (Base‘𝑈)
dihatexv.o	⊢ 0 = (0_g‘𝑈)
dihatexv.n	⊢ 𝑁 = (LSpan‘𝑈)
dihatexv.i	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
dihatexv.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
dihatexv.q	⊢ (𝜑 → 𝑄 ∈ 𝐵)

**Assertion**
Ref	Expression
dihatexv	⊢ (𝜑 → (𝑄 ∈ 𝐴 ↔ ∃𝑥 ∈ (𝑉 ∖ { 0 })(𝐼‘𝑄) = (𝑁‘{𝑥})))

Distinct variable groups: 𝑥,𝐴 𝑥,𝐵 𝑥,𝐼 𝑥,𝐾 𝑥,𝑁 𝑥,𝑄 𝑥,𝑉 𝑥,𝑊 𝜑,𝑥 Allowed substitution hints: 𝑈(𝑥) 𝐻(𝑥) 0 (𝑥)

Proof of Theorem dihatexv Dummy variables 𝑓 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dihatexv.k	. . . . . . . . 9 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2	1	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
3		simplr 781	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → 𝑄 ∈ 𝐴)
4		simpr 490	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → 𝑄(le‘𝐾)𝑊)
5		dihatexv.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐾)
6		eqid 2762	. . . . . . . . 9 ⊢ (le‘𝐾) = (le‘𝐾)
7		dihatexv.a	. . . . . . . . 9 ⊢ 𝐴 = (Atoms‘𝐾)
8		dihatexv.h	. . . . . . . . 9 ⊢ 𝐻 = (LHyp‘𝐾)
9		eqid 2762	. . . . . . . . 9 ⊢ ((LTrn‘𝐾)‘𝑊) = ((LTrn‘𝐾)‘𝑊)
10		eqid 2762	. . . . . . . . 9 ⊢ (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵)) = (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))
11		dihatexv.u	. . . . . . . . 9 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
12		dihatexv.i	. . . . . . . . 9 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
13		dihatexv.n	. . . . . . . . 9 ⊢ 𝑁 = (LSpan‘𝑈)
14	5, 6, 7, 8, 9, 10, 11, 12, 13	dih1dimb2 42101	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ 𝑄(le‘𝐾)𝑊)) → ∃𝑔 ∈ ((LTrn‘𝐾)‘𝑊)(𝑔 ≠ ( I ↾ 𝐵) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})))
15	2, 3, 4, 14	syl12anc 850	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → ∃𝑔 ∈ ((LTrn‘𝐾)‘𝑊)(𝑔 ≠ ( I ↾ 𝐵) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})))
16	1	ad3antrrr 743	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
17		simpr 490	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → 𝑔 ∈ ((LTrn‘𝐾)‘𝑊))
18		eqid 2762	. . . . . . . . . . . . . 14 ⊢ ((TEndo‘𝐾)‘𝑊) = ((TEndo‘𝐾)‘𝑊)
19	5, 8, 9, 18, 10	tendo0cl 41650	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵)) ∈ ((TEndo‘𝐾)‘𝑊))
20	16, 19	syl 18	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵)) ∈ ((TEndo‘𝐾)‘𝑊))
21		dihatexv.v	. . . . . . . . . . . . 13 ⊢ 𝑉 = (Base‘𝑈)
22	8, 9, 18, 11, 21	dvhelvbasei 41948	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑔 ∈ ((LTrn‘𝐾)‘𝑊) ∧ (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵)) ∈ ((TEndo‘𝐾)‘𝑊))) → ⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ ∈ 𝑉)
23	16, 17, 20, 22	syl12anc 850	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → ⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ ∈ 𝑉)
24		sneq 4597	. . . . . . . . . . . . 13 ⊢ (𝑥 = ⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ → {𝑥} = {⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})
25	24	fveq2d 6886	. . . . . . . . . . . 12 ⊢ (𝑥 = ⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ → (𝑁‘{𝑥}) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩}))
26	25	rspceeqv 3602	. . . . . . . . . . 11 ⊢ ((⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ ∈ 𝑉 ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
27	23, 26	sylan 592	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
28	27	ex 418	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → ((𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩}) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥})))
29	28	adantld 496	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → ((𝑔 ≠ ( I ↾ 𝐵) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥})))
30	29	rexlimdva 3165	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → (∃𝑔 ∈ ((LTrn‘𝐾)‘𝑊)(𝑔 ≠ ( I ↾ 𝐵) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥})))
31	15, 30	mpd 16	. . . . . 6 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
32	1	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
33		eqid 2762	. . . . . . . . . . 11 ⊢ ((oc‘𝐾)‘𝑊) = ((oc‘𝐾)‘𝑊)
34	6, 7, 8, 33	lhpocnel2 40879	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (((oc‘𝐾)‘𝑊) ∈ 𝐴 ∧ ¬ ((oc‘𝐾)‘𝑊)(le‘𝐾)𝑊))
35	32, 34	syl 18	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → (((oc‘𝐾)‘𝑊) ∈ 𝐴 ∧ ¬ ((oc‘𝐾)‘𝑊)(le‘𝐾)𝑊))
36		simplr 781	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → 𝑄 ∈ 𝐴)
37		simpr 490	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → ¬ 𝑄(le‘𝐾)𝑊)
38		eqid 2762	. . . . . . . . . 10 ⊢ (℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄) = (℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄)
39	6, 7, 8, 9, 38	ltrniotacl 41439	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (((oc‘𝐾)‘𝑊) ∈ 𝐴 ∧ ¬ ((oc‘𝐾)‘𝑊)(le‘𝐾)𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄) ∈ ((LTrn‘𝐾)‘𝑊))
40	32, 35, 36, 37, 39	syl112anc 1401	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → (℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄) ∈ ((LTrn‘𝐾)‘𝑊))
41	8, 9, 18	tendoidcl 41629	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ( I ↾ ((LTrn‘𝐾)‘𝑊)) ∈ ((TEndo‘𝐾)‘𝑊))
42	32, 41	syl 18	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → ( I ↾ ((LTrn‘𝐾)‘𝑊)) ∈ ((TEndo‘𝐾)‘𝑊))
43	8, 9, 18, 11, 21	dvhelvbasei 41948	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄) ∈ ((LTrn‘𝐾)‘𝑊) ∧ ( I ↾ ((LTrn‘𝐾)‘𝑊)) ∈ ((TEndo‘𝐾)‘𝑊))) → ⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∈ 𝑉)
44	32, 40, 42, 43	syl12anc 850	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → ⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∈ 𝑉)
45	6, 7, 8, 33, 9, 12, 11, 13, 38	dih1dimc 42102	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (𝐼‘𝑄) = (𝑁‘{⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩}))
46	32, 36, 37, 45	syl12anc 850	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → (𝐼‘𝑄) = (𝑁‘{⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩}))
47		sneq 4597	. . . . . . . . 9 ⊢ (𝑥 = ⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ → {𝑥} = {⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩})
48	47	fveq2d 6886	. . . . . . . 8 ⊢ (𝑥 = ⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ → (𝑁‘{𝑥}) = (𝑁‘{⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩}))
49	48	rspceeqv 3602	. . . . . . 7 ⊢ ((⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∈ 𝑉 ∧ (𝐼‘𝑄) = (𝑁‘{⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
50	44, 46, 49	syl2anc 596	. . . . . 6 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
51	31, 50	pm2.61dan 825	. . . . 5 ⊢ ((𝜑 ∧ 𝑄 ∈ 𝐴) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
52	1	simpld 500	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ HL)
53	52	ad3antrrr 743	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝐾 ∈ HL)
54		hlatl 40220	. . . . . . . . . . 11 ⊢ (𝐾 ∈ HL → 𝐾 ∈ AtLat)
55	53, 54	syl 18	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝐾 ∈ AtLat)
56		simpllr 788	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑄 ∈ 𝐴)
57		eqid 2762	. . . . . . . . . . 11 ⊢ (0.‘𝐾) = (0.‘𝐾)
58	57, 7	atn0 40168	. . . . . . . . . 10 ⊢ ((𝐾 ∈ AtLat ∧ 𝑄 ∈ 𝐴) → 𝑄 ≠ (0.‘𝐾))
59	55, 56, 58	syl2anc 596	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑄 ≠ (0.‘𝐾))
60		sneq 4597	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 0 → {𝑥} = { 0 })
61	60	fveq2d 6886	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 0 → (𝑁‘{𝑥}) = (𝑁‘{ 0 }))
62	61	3ad2ant3 1153	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝑁‘{𝑥}) = (𝑁‘{ 0 }))
63		simp1ll 1255	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → 𝜑)
64	8, 11, 1	dvhlmod 41970	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑈 ∈ LMod)
65		dihatexv.o	. . . . . . . . . . . . . . . 16 ⊢ 0 = (0_g‘𝑈)
66	65, 13	lspsn0 21193	. . . . . . . . . . . . . . 15 ⊢ (𝑈 ∈ LMod → (𝑁‘{ 0 }) = { 0 })
67	63, 64, 66	3syl 19	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝑁‘{ 0 }) = { 0 })
68	62, 67	eqtrd 2797	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝑁‘{𝑥}) = { 0 })
69		simp2 1155	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝐼‘𝑄) = (𝑁‘{𝑥}))
70	57, 8, 12, 11, 65	dih0 42140	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝐼‘(0.‘𝐾)) = { 0 })
71	63, 1, 70	3syl 19	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝐼‘(0.‘𝐾)) = { 0 })
72	68, 69, 71	3eqtr4d 2807	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝐼‘𝑄) = (𝐼‘(0.‘𝐾)))
73	63, 1	syl 18	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
74		dihatexv.q	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑄 ∈ 𝐵)
75	63, 74	syl 18	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → 𝑄 ∈ 𝐵)
76	63, 52	syl 18	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → 𝐾 ∈ HL)
77		hlop 40222	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
78	5, 57	op0cl 40044	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ OP → (0.‘𝐾) ∈ 𝐵)
79	76, 77, 78	3syl 19	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (0.‘𝐾) ∈ 𝐵)
80	5, 8, 12	dih11 42125	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑄 ∈ 𝐵 ∧ (0.‘𝐾) ∈ 𝐵) → ((𝐼‘𝑄) = (𝐼‘(0.‘𝐾)) ↔ 𝑄 = (0.‘𝐾)))
81	73, 75, 79, 80	syl3anc 1398	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → ((𝐼‘𝑄) = (𝐼‘(0.‘𝐾)) ↔ 𝑄 = (0.‘𝐾)))
82	72, 81	mpbid 235	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → 𝑄 = (0.‘𝐾))
83	82	3expia 1139	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → (𝑥 = 0 → 𝑄 = (0.‘𝐾)))
84	83	necon3d 2978	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → (𝑄 ≠ (0.‘𝐾) → 𝑥 ≠ 0 ))
85	59, 84	mpd 16	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑥 ≠ 0 )
86	85	ex 418	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) → ((𝐼‘𝑄) = (𝑁‘{𝑥}) → 𝑥 ≠ 0 ))
87	86	ancrd 561	. . . . . 6 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) → ((𝐼‘𝑄) = (𝑁‘{𝑥}) → (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))))
88	87	reximdva 3177	. . . . 5 ⊢ ((𝜑 ∧ 𝑄 ∈ 𝐴) → (∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}) → ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))))
89	51, 88	mpd 16	. . . 4 ⊢ ((𝜑 ∧ 𝑄 ∈ 𝐴) → ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})))
90	89	ex 418	. . 3 ⊢ (𝜑 → (𝑄 ∈ 𝐴 → ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))))
91	1	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
92	74	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑄 ∈ 𝐵)
93	5, 8, 12	dihcnvid1 42132	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑄 ∈ 𝐵) → (^◡𝐼‘(𝐼‘𝑄)) = 𝑄)
94	91, 92, 93	syl2anc 596	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (^◡𝐼‘(𝐼‘𝑄)) = 𝑄)
95		fveq2 6882	. . . . . . . 8 ⊢ ((𝐼‘𝑄) = (𝑁‘{𝑥}) → (^◡𝐼‘(𝐼‘𝑄)) = (^◡𝐼‘(𝑁‘{𝑥})))
96	95	ad2antll 742	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (^◡𝐼‘(𝐼‘𝑄)) = (^◡𝐼‘(𝑁‘{𝑥})))
97	94, 96	eqtr3d 2799	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑄 = (^◡𝐼‘(𝑁‘{𝑥})))
98	64	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑈 ∈ LMod)
99		simplr 781	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑥 ∈ 𝑉)
100		simprl 783	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑥 ≠ 0 )
101		eqid 2762	. . . . . . . . 9 ⊢ (LSAtoms‘𝑈) = (LSAtoms‘𝑈)
102	21, 13, 65, 101	lsatlspsn2 39852	. . . . . . . 8 ⊢ ((𝑈 ∈ LMod ∧ 𝑥 ∈ 𝑉 ∧ 𝑥 ≠ 0 ) → (𝑁‘{𝑥}) ∈ (LSAtoms‘𝑈))
103	98, 99, 100, 102	syl3anc 1398	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (𝑁‘{𝑥}) ∈ (LSAtoms‘𝑈))
104	7, 8, 11, 12, 101	dihlatat 42197	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑁‘{𝑥}) ∈ (LSAtoms‘𝑈)) → (^◡𝐼‘(𝑁‘{𝑥})) ∈ 𝐴)
105	91, 103, 104	syl2anc 596	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (^◡𝐼‘(𝑁‘{𝑥})) ∈ 𝐴)
106	97, 105	eqeltrd 2862	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑄 ∈ 𝐴)
107	106	ex 418	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → ((𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑄 ∈ 𝐴))
108	107	rexlimdva 3165	. . 3 ⊢ (𝜑 → (∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑄 ∈ 𝐴))
109	90, 108	impbid 215	. 2 ⊢ (𝜑 → (𝑄 ∈ 𝐴 ↔ ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))))
110		rexdifsn 4760	. 2 ⊢ (∃𝑥 ∈ (𝑉 ∖ { 0 })(𝐼‘𝑄) = (𝑁‘{𝑥}) ↔ ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})))
111	109, 110	bitr4di 292	1 ⊢ (𝜑 → (𝑄 ∈ 𝐴 ↔ ∃𝑥 ∈ (𝑉 ∖ { 0 })(𝐼‘𝑄) = (𝑁‘{𝑥})))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 ∧ w3a 1103 = wceq 1570 ∈ wcel 2145 ≠ wne 2957 ∃wrex 3088 ∖ cdif 3899 {csn 4587 ⟨cop 4593 class class class wbr 5107 ↦ cmpt 5190 I cid 5553 ^◡ccnv 5658 ↾ cres 5661 ‘cfv 6537 ℩crio 7372 Basecbs 17305 lecple 17353 occoc 17354 0_gc0g 17528 0.cp0 18513 LModclmod 21045 LSpanclspn 21156 LSAtomsclsa 39834 OPcops 40032 Atomscatm 40123 AtLatcal 40124 HLchlt 40210 LHypclh 40844 LTrncltrn 40961 TEndoctendo 41612 DVecHcdvh 41938 DIsoHcdih 42088

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2215 ax-ext 2734 ax-rep 5236 ax-sep 5255 ax-nul 5267 ax-pow 5334 ax-pr 5402 ax-un 7739 ax-cnex 11183 ax-resscn 11184 ax-1cn 11185 ax-icn 11186 ax-addcl 11187 ax-addrcl 11188 ax-mulcl 11189 ax-mulrcl 11190 ax-mulcom 11191 ax-addass 11192 ax-mulass 11193 ax-distr 11194 ax-i2m1 11195 ax-1ne0 11196 ax-1rid 11197 ax-rnegex 11198 ax-rrecex 11199 ax-cnre 11200 ax-pre-lttri 11201 ax-pre-lttrn 11202 ax-pre-ltadd 11203 ax-pre-mulgt0 11204 ax-riotaBAD 39813

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2566 df-eu 2596 df-clab 2741 df-cleq 2754 df-clel 2837 df-nfc 2911 df-ne 2958 df-nel 3064 df-ral 3079 df-rex 3089 df-rmo 3367 df-reu 3368 df-rab 3415 df-v 3455 df-sbc 3743 df-csb 3851 df-dif 3905 df-un 3907 df-in 3909 df-ss 3919 df-pss 3922 df-nul 4283 df-if 4486 df-pw 4562 df-sn 4588 df-pr 4590 df-tp 4592 df-op 4594 df-uni 4871 df-int 4911 df-iun 4956 df-iin 4957 df-br 5108 df-opab 5172 df-mpt 5191 df-tr 5217 df-id 5554 df-eprel 5559 df-po 5567 df-so 5568 df-fr 5612 df-we 5614 df-xp 5665 df-rel 5666 df-cnv 5667 df-co 5668 df-dm 5669 df-rn 5670 df-res 5671 df-ima 5672 df-pred 6303 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6493 df-fun 6539 df-fn 6540 df-f 6541 df-f1 6542 df-fo 6543 df-f1o 6544 df-fv 6545 df-riota 7373 df-ov 7419 df-oprab 7420 df-mpo 7421 df-om 7866 df-1st 7989 df-2nd 7990 df-tpos 8227 df-undef 8274 df-frecs 8283 df-wrecs 8314 df-recs 8363 df-rdg 8402 df-1o 8458 df-er 8699 df-map 8831 df-en 8956 df-dom 8957 df-sdom 8958 df-fin 8959 df-pnf 11272 df-mnf 11273 df-xr 11274 df-ltxr 11275 df-le 11276 df-sub 11470 df-neg 11471 df-nn 12261 df-2 12330 df-3 12331 df-4 12332 df-5 12333 df-6 12334 df-n0 12532 df-z 12619 df-uz 12891 df-fz 13564 df-struct 17243 df-sets 17260 df-slot 17278 df-ndx 17290 df-base 17306 df-ress 17327 df-plusg 17359 df-mulr 17360 df-sca 17362 df-vsca 17363 df-0g 17530 df-proset 18386 df-poset 18405 df-plt 18420 df-lub 18436 df-glb 18437 df-join 18438 df-meet 18439 df-p0 18515 df-p1 18516 df-lat 18524 df-clat 18591 df-mgm 18734 df-sgrp 18823 df-mnd 18839 df-submnd 18893 df-grp 19061 df-minusg 19062 df-sbg 19063 df-subg 19247 df-cntz 19445 df-lsm 19764 df-cmn 19910 df-abl 19911 df-mgp 20275 df-rng 20289 df-ur 20322 df-ring 20375 df-oppr 20479 df-dvdsr 20499 df-unit 20500 df-invr 20530 df-dvr 20543 df-drng 20893 df-lmod 21047 df-lss 21117 df-lsp 21157 df-lvec 21288 df-lsatoms 39836 df-oposet 40036 df-ol 40038 df-oml 40039 df-covers 40126 df-ats 40127 df-atl 40158 df-cvlat 40182 df-hlat 40211 df-llines 40358 df-lplanes 40359 df-lvols 40360 df-lines 40361 df-psubsp 40363 df-pmap 40364 df-padd 40656 df-lhyp 40848 df-laut 40849 df-ldil 40964 df-ltrn 40965 df-trl 41019 df-tendo 41615 df-edring 41617 df-disoa 41889 df-dvech 41939 df-dib 41999 df-dic 42033 df-dih 42089

This theorem is used by: dihatexv2 42199

W3C validator