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 40867

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 724	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
3		simplr 767	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → 𝑄 ∈ 𝐴)
4		simpr 483	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → 𝑄(le‘𝐾)𝑊)
5		dihatexv.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐾)
6		eqid 2725	. . . . . . . . 9 ⊢ (le‘𝐾) = (le‘𝐾)
7		dihatexv.a	. . . . . . . . 9 ⊢ 𝐴 = (Atoms‘𝐾)
8		dihatexv.h	. . . . . . . . 9 ⊢ 𝐻 = (LHyp‘𝐾)
9		eqid 2725	. . . . . . . . 9 ⊢ ((LTrn‘𝐾)‘𝑊) = ((LTrn‘𝐾)‘𝑊)
10		eqid 2725	. . . . . . . . 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 40770	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ 𝑄(le‘𝐾)𝑊)) → ∃𝑔 ∈ ((LTrn‘𝐾)‘𝑊)(𝑔 ≠ ( I ↾ 𝐵) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})))
15	2, 3, 4, 14	syl12anc 835	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → ∃𝑔 ∈ ((LTrn‘𝐾)‘𝑊)(𝑔 ≠ ( I ↾ 𝐵) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})))
16	1	ad3antrrr 728	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
17		simpr 483	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → 𝑔 ∈ ((LTrn‘𝐾)‘𝑊))
18		eqid 2725	. . . . . . . . . . . . . 14 ⊢ ((TEndo‘𝐾)‘𝑊) = ((TEndo‘𝐾)‘𝑊)
19	5, 8, 9, 18, 10	tendo0cl 40319	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵)) ∈ ((TEndo‘𝐾)‘𝑊))
20	16, 19	syl 17	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵)) ∈ ((TEndo‘𝐾)‘𝑊))
21		dihatexv.v	. . . . . . . . . . . . 13 ⊢ 𝑉 = (Base‘𝑈)
22	8, 9, 18, 11, 21	dvhelvbasei 40617	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑔 ∈ ((LTrn‘𝐾)‘𝑊) ∧ (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵)) ∈ ((TEndo‘𝐾)‘𝑊))) → ⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ ∈ 𝑉)
23	16, 17, 20, 22	syl12anc 835	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → ⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ ∈ 𝑉)
24		sneq 4634	. . . . . . . . . . . . 13 ⊢ (𝑥 = ⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ → {𝑥} = {⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})
25	24	fveq2d 6896	. . . . . . . . . . . 12 ⊢ (𝑥 = ⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ → (𝑁‘{𝑥}) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩}))
26	25	rspceeqv 3623	. . . . . . . . . . 11 ⊢ ((⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ ∈ 𝑉 ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
27	23, 26	sylan 578	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
28	27	ex 411	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → ((𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩}) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥})))
29	28	adantld 489	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → ((𝑔 ≠ ( I ↾ 𝐵) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥})))
30	29	rexlimdva 3145	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → (∃𝑔 ∈ ((LTrn‘𝐾)‘𝑊)(𝑔 ≠ ( I ↾ 𝐵) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥})))
31	15, 30	mpd 15	. . . . . 6 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
32	1	ad2antrr 724	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
33		eqid 2725	. . . . . . . . . . 11 ⊢ ((oc‘𝐾)‘𝑊) = ((oc‘𝐾)‘𝑊)
34	6, 7, 8, 33	lhpocnel2 39548	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (((oc‘𝐾)‘𝑊) ∈ 𝐴 ∧ ¬ ((oc‘𝐾)‘𝑊)(le‘𝐾)𝑊))
35	32, 34	syl 17	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → (((oc‘𝐾)‘𝑊) ∈ 𝐴 ∧ ¬ ((oc‘𝐾)‘𝑊)(le‘𝐾)𝑊))
36		simplr 767	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → 𝑄 ∈ 𝐴)
37		simpr 483	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → ¬ 𝑄(le‘𝐾)𝑊)
38		eqid 2725	. . . . . . . . . 10 ⊢ (℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄) = (℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄)
39	6, 7, 8, 9, 38	ltrniotacl 40108	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (((oc‘𝐾)‘𝑊) ∈ 𝐴 ∧ ¬ ((oc‘𝐾)‘𝑊)(le‘𝐾)𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄) ∈ ((LTrn‘𝐾)‘𝑊))
40	32, 35, 36, 37, 39	syl112anc 1371	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → (℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄) ∈ ((LTrn‘𝐾)‘𝑊))
41	8, 9, 18	tendoidcl 40298	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ( I ↾ ((LTrn‘𝐾)‘𝑊)) ∈ ((TEndo‘𝐾)‘𝑊))
42	32, 41	syl 17	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → ( I ↾ ((LTrn‘𝐾)‘𝑊)) ∈ ((TEndo‘𝐾)‘𝑊))
43	8, 9, 18, 11, 21	dvhelvbasei 40617	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄) ∈ ((LTrn‘𝐾)‘𝑊) ∧ ( I ↾ ((LTrn‘𝐾)‘𝑊)) ∈ ((TEndo‘𝐾)‘𝑊))) → ⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∈ 𝑉)
44	32, 40, 42, 43	syl12anc 835	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → ⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∈ 𝑉)
45	6, 7, 8, 33, 9, 12, 11, 13, 38	dih1dimc 40771	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (𝐼‘𝑄) = (𝑁‘{⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩}))
46	32, 36, 37, 45	syl12anc 835	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → (𝐼‘𝑄) = (𝑁‘{⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩}))
47		sneq 4634	. . . . . . . . 9 ⊢ (𝑥 = ⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ → {𝑥} = {⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩})
48	47	fveq2d 6896	. . . . . . . 8 ⊢ (𝑥 = ⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ → (𝑁‘{𝑥}) = (𝑁‘{⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩}))
49	48	rspceeqv 3623	. . . . . . 7 ⊢ ((⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∈ 𝑉 ∧ (𝐼‘𝑄) = (𝑁‘{⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
50	44, 46, 49	syl2anc 582	. . . . . 6 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
51	31, 50	pm2.61dan 811	. . . . 5 ⊢ ((𝜑 ∧ 𝑄 ∈ 𝐴) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
52	1	simpld 493	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ HL)
53	52	ad3antrrr 728	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝐾 ∈ HL)
54		hlatl 38888	. . . . . . . . . . 11 ⊢ (𝐾 ∈ HL → 𝐾 ∈ AtLat)
55	53, 54	syl 17	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝐾 ∈ AtLat)
56		simpllr 774	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑄 ∈ 𝐴)
57		eqid 2725	. . . . . . . . . . 11 ⊢ (0.‘𝐾) = (0.‘𝐾)
58	57, 7	atn0 38836	. . . . . . . . . 10 ⊢ ((𝐾 ∈ AtLat ∧ 𝑄 ∈ 𝐴) → 𝑄 ≠ (0.‘𝐾))
59	55, 56, 58	syl2anc 582	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑄 ≠ (0.‘𝐾))
60		sneq 4634	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 0 → {𝑥} = { 0 })
61	60	fveq2d 6896	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 0 → (𝑁‘{𝑥}) = (𝑁‘{ 0 }))
62	61	3ad2ant3 1132	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝑁‘{𝑥}) = (𝑁‘{ 0 }))
63		simp1ll 1233	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → 𝜑)
64	8, 11, 1	dvhlmod 40639	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑈 ∈ LMod)
65		dihatexv.o	. . . . . . . . . . . . . . . 16 ⊢ 0 = (0_g‘𝑈)
66	65, 13	lspsn0 20896	. . . . . . . . . . . . . . 15 ⊢ (𝑈 ∈ LMod → (𝑁‘{ 0 }) = { 0 })
67	63, 64, 66	3syl 18	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝑁‘{ 0 }) = { 0 })
68	62, 67	eqtrd 2765	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝑁‘{𝑥}) = { 0 })
69		simp2 1134	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝐼‘𝑄) = (𝑁‘{𝑥}))
70	57, 8, 12, 11, 65	dih0 40809	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝐼‘(0.‘𝐾)) = { 0 })
71	63, 1, 70	3syl 18	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝐼‘(0.‘𝐾)) = { 0 })
72	68, 69, 71	3eqtr4d 2775	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝐼‘𝑄) = (𝐼‘(0.‘𝐾)))
73	63, 1	syl 17	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
74		dihatexv.q	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑄 ∈ 𝐵)
75	63, 74	syl 17	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → 𝑄 ∈ 𝐵)
76	63, 52	syl 17	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → 𝐾 ∈ HL)
77		hlop 38890	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
78	5, 57	op0cl 38712	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ OP → (0.‘𝐾) ∈ 𝐵)
79	76, 77, 78	3syl 18	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (0.‘𝐾) ∈ 𝐵)
80	5, 8, 12	dih11 40794	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑄 ∈ 𝐵 ∧ (0.‘𝐾) ∈ 𝐵) → ((𝐼‘𝑄) = (𝐼‘(0.‘𝐾)) ↔ 𝑄 = (0.‘𝐾)))
81	73, 75, 79, 80	syl3anc 1368	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → ((𝐼‘𝑄) = (𝐼‘(0.‘𝐾)) ↔ 𝑄 = (0.‘𝐾)))
82	72, 81	mpbid 231	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → 𝑄 = (0.‘𝐾))
83	82	3expia 1118	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → (𝑥 = 0 → 𝑄 = (0.‘𝐾)))
84	83	necon3d 2951	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → (𝑄 ≠ (0.‘𝐾) → 𝑥 ≠ 0 ))
85	59, 84	mpd 15	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑥 ≠ 0 )
86	85	ex 411	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) → ((𝐼‘𝑄) = (𝑁‘{𝑥}) → 𝑥 ≠ 0 ))
87	86	ancrd 550	. . . . . 6 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) → ((𝐼‘𝑄) = (𝑁‘{𝑥}) → (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))))
88	87	reximdva 3158	. . . . 5 ⊢ ((𝜑 ∧ 𝑄 ∈ 𝐴) → (∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}) → ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))))
89	51, 88	mpd 15	. . . 4 ⊢ ((𝜑 ∧ 𝑄 ∈ 𝐴) → ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})))
90	89	ex 411	. . 3 ⊢ (𝜑 → (𝑄 ∈ 𝐴 → ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))))
91	1	ad2antrr 724	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
92	74	ad2antrr 724	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑄 ∈ 𝐵)
93	5, 8, 12	dihcnvid1 40801	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑄 ∈ 𝐵) → (^◡𝐼‘(𝐼‘𝑄)) = 𝑄)
94	91, 92, 93	syl2anc 582	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (^◡𝐼‘(𝐼‘𝑄)) = 𝑄)
95		fveq2 6892	. . . . . . . 8 ⊢ ((𝐼‘𝑄) = (𝑁‘{𝑥}) → (^◡𝐼‘(𝐼‘𝑄)) = (^◡𝐼‘(𝑁‘{𝑥})))
96	95	ad2antll 727	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (^◡𝐼‘(𝐼‘𝑄)) = (^◡𝐼‘(𝑁‘{𝑥})))
97	94, 96	eqtr3d 2767	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑄 = (^◡𝐼‘(𝑁‘{𝑥})))
98	64	ad2antrr 724	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑈 ∈ LMod)
99		simplr 767	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑥 ∈ 𝑉)
100		simprl 769	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑥 ≠ 0 )
101		eqid 2725	. . . . . . . . 9 ⊢ (LSAtoms‘𝑈) = (LSAtoms‘𝑈)
102	21, 13, 65, 101	lsatlspsn2 38520	. . . . . . . 8 ⊢ ((𝑈 ∈ LMod ∧ 𝑥 ∈ 𝑉 ∧ 𝑥 ≠ 0 ) → (𝑁‘{𝑥}) ∈ (LSAtoms‘𝑈))
103	98, 99, 100, 102	syl3anc 1368	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (𝑁‘{𝑥}) ∈ (LSAtoms‘𝑈))
104	7, 8, 11, 12, 101	dihlatat 40866	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑁‘{𝑥}) ∈ (LSAtoms‘𝑈)) → (^◡𝐼‘(𝑁‘{𝑥})) ∈ 𝐴)
105	91, 103, 104	syl2anc 582	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (^◡𝐼‘(𝑁‘{𝑥})) ∈ 𝐴)
106	97, 105	eqeltrd 2825	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑄 ∈ 𝐴)
107	106	ex 411	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → ((𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑄 ∈ 𝐴))
108	107	rexlimdva 3145	. . 3 ⊢ (𝜑 → (∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑄 ∈ 𝐴))
109	90, 108	impbid 211	. 2 ⊢ (𝜑 → (𝑄 ∈ 𝐴 ↔ ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))))
110		rexdifsn 4793	. 2 ⊢ (∃𝑥 ∈ (𝑉 ∖ { 0 })(𝐼‘𝑄) = (𝑁‘{𝑥}) ↔ ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})))
111	109, 110	bitr4di 288	1 ⊢ (𝜑 → (𝑄 ∈ 𝐴 ↔ ∃𝑥 ∈ (𝑉 ∖ { 0 })(𝐼‘𝑄) = (𝑁‘{𝑥})))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 394 ∧ w3a 1084 = wceq 1533 ∈ wcel 2098 ≠ wne 2930 ∃wrex 3060 ∖ cdif 3936 {csn 4624 ⟨cop 4630 class class class wbr 5143 ↦ cmpt 5226 I cid 5569 ^◡ccnv 5671 ↾ cres 5674 ‘cfv 6543 ℩crio 7371 Basecbs 17179 lecple 17239 occoc 17240 0_gc0g 17420 0.cp0 18414 LModclmod 20747 LSpanclspn 20859 LSAtomsclsa 38502 OPcops 38700 Atomscatm 38791 AtLatcal 38792 HLchlt 38878 LHypclh 39513 LTrncltrn 39630 TEndoctendo 40281 DVecHcdvh 40607 DIsoHcdih 40757

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2166 ax-ext 2696 ax-rep 5280 ax-sep 5294 ax-nul 5301 ax-pow 5359 ax-pr 5423 ax-un 7738 ax-cnex 11194 ax-resscn 11195 ax-1cn 11196 ax-icn 11197 ax-addcl 11198 ax-addrcl 11199 ax-mulcl 11200 ax-mulrcl 11201 ax-mulcom 11202 ax-addass 11203 ax-mulass 11204 ax-distr 11205 ax-i2m1 11206 ax-1ne0 11207 ax-1rid 11208 ax-rnegex 11209 ax-rrecex 11210 ax-cnre 11211 ax-pre-lttri 11212 ax-pre-lttrn 11213 ax-pre-ltadd 11214 ax-pre-mulgt0 11215 ax-riotaBAD 38481

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2528 df-eu 2557 df-clab 2703 df-cleq 2717 df-clel 2802 df-nfc 2877 df-ne 2931 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3364 df-reu 3365 df-rab 3420 df-v 3465 df-sbc 3769 df-csb 3885 df-dif 3942 df-un 3944 df-in 3946 df-ss 3956 df-pss 3959 df-nul 4319 df-if 4525 df-pw 4600 df-sn 4625 df-pr 4627 df-tp 4629 df-op 4631 df-uni 4904 df-int 4945 df-iun 4993 df-iin 4994 df-br 5144 df-opab 5206 df-mpt 5227 df-tr 5261 df-id 5570 df-eprel 5576 df-po 5584 df-so 5585 df-fr 5627 df-we 5629 df-xp 5678 df-rel 5679 df-cnv 5680 df-co 5681 df-dm 5682 df-rn 5683 df-res 5684 df-ima 5685 df-pred 6300 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6495 df-fun 6545 df-fn 6546 df-f 6547 df-f1 6548 df-fo 6549 df-f1o 6550 df-fv 6551 df-riota 7372 df-ov 7419 df-oprab 7420 df-mpo 7421 df-om 7869 df-1st 7991 df-2nd 7992 df-tpos 8230 df-undef 8277 df-frecs 8285 df-wrecs 8316 df-recs 8390 df-rdg 8429 df-1o 8485 df-er 8723 df-map 8845 df-en 8963 df-dom 8964 df-sdom 8965 df-fin 8966 df-pnf 11280 df-mnf 11281 df-xr 11282 df-ltxr 11283 df-le 11284 df-sub 11476 df-neg 11477 df-nn 12243 df-2 12305 df-3 12306 df-4 12307 df-5 12308 df-6 12309 df-n0 12503 df-z 12589 df-uz 12853 df-fz 13517 df-struct 17115 df-sets 17132 df-slot 17150 df-ndx 17162 df-base 17180 df-ress 17209 df-plusg 17245 df-mulr 17246 df-sca 17248 df-vsca 17249 df-0g 17422 df-proset 18286 df-poset 18304 df-plt 18321 df-lub 18337 df-glb 18338 df-join 18339 df-meet 18340 df-p0 18416 df-p1 18417 df-lat 18423 df-clat 18490 df-mgm 18599 df-sgrp 18678 df-mnd 18694 df-submnd 18740 df-grp 18897 df-minusg 18898 df-sbg 18899 df-subg 19082 df-cntz 19272 df-lsm 19595 df-cmn 19741 df-abl 19742 df-mgp 20079 df-rng 20097 df-ur 20126 df-ring 20179 df-oppr 20277 df-dvdsr 20300 df-unit 20301 df-invr 20331 df-dvr 20344 df-drng 20630 df-lmod 20749 df-lss 20820 df-lsp 20860 df-lvec 20992 df-lsatoms 38504 df-oposet 38704 df-ol 38706 df-oml 38707 df-covers 38794 df-ats 38795 df-atl 38826 df-cvlat 38850 df-hlat 38879 df-llines 39027 df-lplanes 39028 df-lvols 39029 df-lines 39030 df-psubsp 39032 df-pmap 39033 df-padd 39325 df-lhyp 39517 df-laut 39518 df-ldil 39633 df-ltrn 39634 df-trl 39688 df-tendo 40284 df-edring 40286 df-disoa 40558 df-dvech 40608 df-dib 40668 df-dic 40702 df-dih 40758

This theorem is referenced by: dihatexv2 40868

W3C validator