Theorem dihatexv 42039

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 = (0g‘𝑈)
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 738	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
3		simplr 780	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → 𝑄 ∈ 𝐴)
4		simpr 489	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → 𝑄(le‘𝐾)𝑊)
5		dihatexv.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐾)
6		eqid 2769	. . . . . . . . 9 ⊢ (le‘𝐾) = (le‘𝐾)
7		dihatexv.a	. . . . . . . . 9 ⊢ 𝐴 = (Atoms‘𝐾)
8		dihatexv.h	. . . . . . . . 9 ⊢ 𝐻 = (LHyp‘𝐾)
9		eqid 2769	. . . . . . . . 9 ⊢ ((LTrn‘𝐾)‘𝑊) = ((LTrn‘𝐾)‘𝑊)
10		eqid 2769	. . . . . . . . 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 41942	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ 𝑄(le‘𝐾)𝑊)) → ∃𝑔 ∈ ((LTrn‘𝐾)‘𝑊)(𝑔 ≠ ( I ↾ 𝐵) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})))
15	2, 3, 4, 14	syl12anc 849	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → ∃𝑔 ∈ ((LTrn‘𝐾)‘𝑊)(𝑔 ≠ ( I ↾ 𝐵) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})))
16	1	ad3antrrr 742	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
17		simpr 489	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → 𝑔 ∈ ((LTrn‘𝐾)‘𝑊))
18		eqid 2769	. . . . . . . . . . . . . 14 ⊢ ((TEndo‘𝐾)‘𝑊) = ((TEndo‘𝐾)‘𝑊)
19	5, 8, 9, 18, 10	tendo0cl 41491	. . . . . . . . . . . . 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 41789	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑔 ∈ ((LTrn‘𝐾)‘𝑊) ∧ (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵)) ∈ ((TEndo‘𝐾)‘𝑊))) → ⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ ∈ 𝑉)
23	16, 17, 20, 22	syl12anc 849	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → ⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ ∈ 𝑉)
24		sneq 4604	. . . . . . . . . . . . 13 ⊢ (𝑥 = ⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ → {𝑥} = {⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})
25	24	fveq2d 6888	. . . . . . . . . . . 12 ⊢ (𝑥 = ⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ → (𝑁‘{𝑥}) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩}))
26	25	rspceeqv 3613	. . . . . . . . . . 11 ⊢ ((⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩ ∈ 𝑉 ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
27	23, 26	sylan 591	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
28	27	ex 417	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → ((𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩}) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥})))
29	28	adantld 495	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) ∧ 𝑔 ∈ ((LTrn‘𝐾)‘𝑊)) → ((𝑔 ≠ ( I ↾ 𝐵) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥})))
30	29	rexlimdva 3172	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → (∃𝑔 ∈ ((LTrn‘𝐾)‘𝑊)(𝑔 ≠ ( I ↾ 𝐵) ∧ (𝐼‘𝑄) = (𝑁‘{⟨𝑔, (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥})))
31	15, 30	mpd 16	. . . . . 6 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑄(le‘𝐾)𝑊) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
32	1	ad2antrr 738	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
33		eqid 2769	. . . . . . . . . . 11 ⊢ ((oc‘𝐾)‘𝑊) = ((oc‘𝐾)‘𝑊)
34	6, 7, 8, 33	lhpocnel2 40720	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (((oc‘𝐾)‘𝑊) ∈ 𝐴 ∧ ¬ ((oc‘𝐾)‘𝑊)(le‘𝐾)𝑊))
35	32, 34	syl 18	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → (((oc‘𝐾)‘𝑊) ∈ 𝐴 ∧ ¬ ((oc‘𝐾)‘𝑊)(le‘𝐾)𝑊))
36		simplr 780	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → 𝑄 ∈ 𝐴)
37		simpr 489	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → ¬ 𝑄(le‘𝐾)𝑊)
38		eqid 2769	. . . . . . . . . 10 ⊢ (℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄) = (℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄)
39	6, 7, 8, 9, 38	ltrniotacl 41280	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (((oc‘𝐾)‘𝑊) ∈ 𝐴 ∧ ¬ ((oc‘𝐾)‘𝑊)(le‘𝐾)𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄) ∈ ((LTrn‘𝐾)‘𝑊))
40	32, 35, 36, 37, 39	syl112anc 1399	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → (℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄) ∈ ((LTrn‘𝐾)‘𝑊))
41	8, 9, 18	tendoidcl 41470	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ( I ↾ ((LTrn‘𝐾)‘𝑊)) ∈ ((TEndo‘𝐾)‘𝑊))
42	32, 41	syl 18	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → ( I ↾ ((LTrn‘𝐾)‘𝑊)) ∈ ((TEndo‘𝐾)‘𝑊))
43	8, 9, 18, 11, 21	dvhelvbasei 41789	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄) ∈ ((LTrn‘𝐾)‘𝑊) ∧ ( I ↾ ((LTrn‘𝐾)‘𝑊)) ∈ ((TEndo‘𝐾)‘𝑊))) → ⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∈ 𝑉)
44	32, 40, 42, 43	syl12anc 849	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → ⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∈ 𝑉)
45	6, 7, 8, 33, 9, 12, 11, 13, 38	dih1dimc 41943	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (𝐼‘𝑄) = (𝑁‘{⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩}))
46	32, 36, 37, 45	syl12anc 849	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → (𝐼‘𝑄) = (𝑁‘{⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩}))
47		sneq 4604	. . . . . . . . 9 ⊢ (𝑥 = ⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ → {𝑥} = {⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩})
48	47	fveq2d 6888	. . . . . . . 8 ⊢ (𝑥 = ⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ → (𝑁‘{𝑥}) = (𝑁‘{⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩}))
49	48	rspceeqv 3613	. . . . . . 7 ⊢ ((⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∈ 𝑉 ∧ (𝐼‘𝑄) = (𝑁‘{⟨(℩𝑓 ∈ ((LTrn‘𝐾)‘𝑊)(𝑓‘((oc‘𝐾)‘𝑊)) = 𝑄), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩})) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
50	44, 46, 49	syl2anc 595	. . . . . 6 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ ¬ 𝑄(le‘𝐾)𝑊) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
51	31, 50	pm2.61dan 824	. . . . 5 ⊢ ((𝜑 ∧ 𝑄 ∈ 𝐴) → ∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}))
52	1	simpld 499	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ HL)
53	52	ad3antrrr 742	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝐾 ∈ HL)
54		hlatl 40061	. . . . . . . . . . 11 ⊢ (𝐾 ∈ HL → 𝐾 ∈ AtLat)
55	53, 54	syl 18	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝐾 ∈ AtLat)
56		simpllr 787	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑄 ∈ 𝐴)
57		eqid 2769	. . . . . . . . . . 11 ⊢ (0.‘𝐾) = (0.‘𝐾)
58	57, 7	atn0 40009	. . . . . . . . . 10 ⊢ ((𝐾 ∈ AtLat ∧ 𝑄 ∈ 𝐴) → 𝑄 ≠ (0.‘𝐾))
59	55, 56, 58	syl2anc 595	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑄 ≠ (0.‘𝐾))
60		sneq 4604	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 0 → {𝑥} = { 0 })
61	60	fveq2d 6888	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 0 → (𝑁‘{𝑥}) = (𝑁‘{ 0 }))
62	61	3ad2ant3 1151	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝑁‘{𝑥}) = (𝑁‘{ 0 }))
63		simp1ll 1253	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → 𝜑)
64	8, 11, 1	dvhlmod 41811	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑈 ∈ LMod)
65		dihatexv.o	. . . . . . . . . . . . . . . 16 ⊢ 0 = (0g‘𝑈)
66	65, 13	lspsn0 21109	. . . . . . . . . . . . . . 15 ⊢ (𝑈 ∈ LMod → (𝑁‘{ 0 }) = { 0 })
67	63, 64, 66	3syl 19	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝑁‘{ 0 }) = { 0 })
68	62, 67	eqtrd 2804	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝑁‘{𝑥}) = { 0 })
69		simp2 1153	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝐼‘𝑄) = (𝑁‘{𝑥}))
70	57, 8, 12, 11, 65	dih0 41981	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝐼‘(0.‘𝐾)) = { 0 })
71	63, 1, 70	3syl 19	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (𝐼‘(0.‘𝐾)) = { 0 })
72	68, 69, 71	3eqtr4d 2814	. . . . . . . . . . . 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 40063	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
78	5, 57	op0cl 39885	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ OP → (0.‘𝐾) ∈ 𝐵)
79	76, 77, 78	3syl 19	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → (0.‘𝐾) ∈ 𝐵)
80	5, 8, 12	dih11 41966	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑄 ∈ 𝐵 ∧ (0.‘𝐾) ∈ 𝐵) → ((𝐼‘𝑄) = (𝐼‘(0.‘𝐾)) ↔ 𝑄 = (0.‘𝐾)))
81	73, 75, 79, 80	syl3anc 1396	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → ((𝐼‘𝑄) = (𝐼‘(0.‘𝐾)) ↔ 𝑄 = (0.‘𝐾)))
82	72, 81	mpbid 235	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}) ∧ 𝑥 = 0 ) → 𝑄 = (0.‘𝐾))
83	82	3expia 1137	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → (𝑥 = 0 → 𝑄 = (0.‘𝐾)))
84	83	necon3d 2985	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → (𝑄 ≠ (0.‘𝐾) → 𝑥 ≠ 0 ))
85	59, 84	mpd 16	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑥 ≠ 0 )
86	85	ex 417	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) → ((𝐼‘𝑄) = (𝑁‘{𝑥}) → 𝑥 ≠ 0 ))
87	86	ancrd 560	. . . . . 6 ⊢ (((𝜑 ∧ 𝑄 ∈ 𝐴) ∧ 𝑥 ∈ 𝑉) → ((𝐼‘𝑄) = (𝑁‘{𝑥}) → (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))))
88	87	reximdva 3184	. . . . 5 ⊢ ((𝜑 ∧ 𝑄 ∈ 𝐴) → (∃𝑥 ∈ 𝑉 (𝐼‘𝑄) = (𝑁‘{𝑥}) → ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))))
89	51, 88	mpd 16	. . . 4 ⊢ ((𝜑 ∧ 𝑄 ∈ 𝐴) → ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})))
90	89	ex 417	. . 3 ⊢ (𝜑 → (𝑄 ∈ 𝐴 → ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))))
91	1	ad2antrr 738	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
92	74	ad2antrr 738	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑄 ∈ 𝐵)
93	5, 8, 12	dihcnvid1 41973	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑄 ∈ 𝐵) → (◡𝐼‘(𝐼‘𝑄)) = 𝑄)
94	91, 92, 93	syl2anc 595	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (◡𝐼‘(𝐼‘𝑄)) = 𝑄)
95		fveq2 6884	. . . . . . . 8 ⊢ ((𝐼‘𝑄) = (𝑁‘{𝑥}) → (◡𝐼‘(𝐼‘𝑄)) = (◡𝐼‘(𝑁‘{𝑥})))
96	95	ad2antll 741	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (◡𝐼‘(𝐼‘𝑄)) = (◡𝐼‘(𝑁‘{𝑥})))
97	94, 96	eqtr3d 2806	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑄 = (◡𝐼‘(𝑁‘{𝑥})))
98	64	ad2antrr 738	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑈 ∈ LMod)
99		simplr 780	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑥 ∈ 𝑉)
100		simprl 782	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑥 ≠ 0 )
101		eqid 2769	. . . . . . . . 9 ⊢ (LSAtoms‘𝑈) = (LSAtoms‘𝑈)
102	21, 13, 65, 101	lsatlspsn2 39693	. . . . . . . 8 ⊢ ((𝑈 ∈ LMod ∧ 𝑥 ∈ 𝑉 ∧ 𝑥 ≠ 0 ) → (𝑁‘{𝑥}) ∈ (LSAtoms‘𝑈))
103	98, 99, 100, 102	syl3anc 1396	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (𝑁‘{𝑥}) ∈ (LSAtoms‘𝑈))
104	7, 8, 11, 12, 101	dihlatat 42038	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑁‘{𝑥}) ∈ (LSAtoms‘𝑈)) → (◡𝐼‘(𝑁‘{𝑥})) ∈ 𝐴)
105	91, 103, 104	syl2anc 595	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → (◡𝐼‘(𝑁‘{𝑥})) ∈ 𝐴)
106	97, 105	eqeltrd 2869	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑉) ∧ (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))) → 𝑄 ∈ 𝐴)
107	106	ex 417	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → ((𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑄 ∈ 𝐴))
108	107	rexlimdva 3172	. . 3 ⊢ (𝜑 → (∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})) → 𝑄 ∈ 𝐴))
109	90, 108	impbid 215	. 2 ⊢ (𝜑 → (𝑄 ∈ 𝐴 ↔ ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥}))))
110		rexdifsn 4766	. 2 ⊢ (∃𝑥 ∈ (𝑉 ∖ { 0 })(𝐼‘𝑄) = (𝑁‘{𝑥}) ↔ ∃𝑥 ∈ 𝑉 (𝑥 ≠ 0 ∧ (𝐼‘𝑄) = (𝑁‘{𝑥})))
111	109, 110	bitr4di 292	1 ⊢ (𝜑 → (𝑄 ∈ 𝐴 ↔ ∃𝑥 ∈ (𝑉 ∖ { 0 })(𝐼‘𝑄) = (𝑁‘{𝑥})))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1567   ∈ wcel 2149   ≠ wne 2964  ∃wrex 3095   ∖ cdif 3910  {csn 4594  ⟨cop 4600   class class class wbr 5113   ↦ cmpt 5196   I cid 5558  ^◡ccnv 5663   ↾ cres 5666  ‘cfv 6539  ℩crio 7369  Basecbs 17271  lecple 17319  occoc 17320  0_gc0g 17494  0.cp0 18479  LModclmod 20961  LSpanclspn 21072  LSAtomsclsa 39675  OPcops 39873  Atomscatm 39964  AtLatcal 39965  HLchlt 40051  LHypclh 40685  LTrncltrn 40802  TEndoctendo 41453  DVecHcdvh 41779  DIsoHcdih 41929

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5273  ax-pow 5339  ax-pr 5407  ax-un 7735  ax-cnex 11158  ax-resscn 11159  ax-1cn 11160  ax-icn 11161  ax-addcl 11162  ax-addrcl 11163  ax-mulcl 11164  ax-mulrcl 11165  ax-mulcom 11166  ax-addass 11167  ax-mulass 11168  ax-distr 11169  ax-i2m1 11170  ax-1ne0 11171  ax-1rid 11172  ax-rnegex 11173  ax-rrecex 11174  ax-cnre 11175  ax-pre-lttri 11176  ax-pre-lttrn 11177  ax-pre-ltadd 11178  ax-pre-mulgt0 11179  ax-riotaBAD 39654

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-uni 4877  df-int 4917  df-iun 4962  df-iin 4963  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5559  df-eprel 5564  df-po 5572  df-so 5573  df-fr 5617  df-we 5619  df-xp 5670  df-rel 5671  df-cnv 5672  df-co 5673  df-dm 5674  df-rn 5675  df-res 5676  df-ima 5677  df-pred 6305  df-ord 6366  df-on 6367  df-lim 6368  df-suc 6369  df-iota 6495  df-fun 6541  df-fn 6542  df-f 6543  df-f1 6544  df-fo 6545  df-f1o 6546  df-fv 6547  df-riota 7370  df-ov 7416  df-oprab 7417  df-mpo 7418  df-om 7865  df-1st 7988  df-2nd 7989  df-tpos 8224  df-undef 8271  df-frecs 8280  df-wrecs 8311  df-recs 8360  df-rdg 8399  df-1o 8455  df-er 8696  df-map 8828  df-en 8946  df-dom 8947  df-sdom 8948  df-fin 8949  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11445  df-neg 11446  df-nn 12236  df-2 12305  df-3 12306  df-4 12307  df-5 12308  df-6 12309  df-n0 12507  df-z 12594  df-uz 12865  df-fz 13538  df-struct 17209  df-sets 17226  df-slot 17244  df-ndx 17256  df-base 17272  df-ress 17293  df-plusg 17325  df-mulr 17326  df-sca 17328  df-vsca 17329  df-0g 17496  df-proset 18352  df-poset 18371  df-plt 18386  df-lub 18402  df-glb 18403  df-join 18404  df-meet 18405  df-p0 18481  df-p1 18482  df-lat 18490  df-clat 18557  df-mgm 18700  df-sgrp 18779  df-mnd 18795  df-submnd 18844  df-grp 19005  df-minusg 19006  df-sbg 19007  df-subg 19191  df-cntz 19389  df-lsm 19708  df-cmn 19854  df-abl 19855  df-mgp 20219  df-rng 20233  df-ur 20266  df-ring 20319  df-oppr 20421  df-dvdsr 20441  df-unit 20442  df-invr 20472  df-dvr 20485  df-drng 20817  df-lmod 20963  df-lss 21033  df-lsp 21073  df-lvec 21204  df-lsatoms 39677  df-oposet 39877  df-ol 39879  df-oml 39880  df-covers 39967  df-ats 39968  df-atl 39999  df-cvlat 40023  df-hlat 40052  df-llines 40199  df-lplanes 40200  df-lvols 40201  df-lines 40202  df-psubsp 40204  df-pmap 40205  df-padd 40497  df-lhyp 40689  df-laut 40690  df-ldil 40805  df-ltrn 40806  df-trl 40860  df-tendo 41456  df-edring 41458  df-disoa 41730  df-dvech 41780  df-dib 41840  df-dic 41874  df-dih 41930

This theorem is referenced by:  dihatexv2  42040