Theorem dochsatshp 38139

Description: The orthocomplement of a subspace atom is a hyperplane. (Contributed by NM, 27-Jul-2014.) (Revised by Mario Carneiro, 1-Oct-2014.)

Hypotheses

Ref	Expression
dochsatshp.h	⊢ 𝐻 = (LHyp‘𝐾)
dochsatshp.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
dochsatshp.o	⊢ ⊥ = ((ocH‘𝐾)‘𝑊)
dochsatshp.a	⊢ 𝐴 = (LSAtoms‘𝑈)
dochsatshp.y	⊢ 𝑌 = (LSHyp‘𝑈)
dochsatshp.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
dochsatshp.q	⊢ (𝜑 → 𝑄 ∈ 𝐴)

Assertion

Ref	Expression
dochsatshp	⊢ (𝜑 → ( ⊥ ‘𝑄) ∈ 𝑌)

Proof of Theorem dochsatshp

Dummy variable 𝑣 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		dochsatshp.k	. . 3 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2		eqid 2797	. . . 4 ⊢ (Base‘𝑈) = (Base‘𝑈)
3		dochsatshp.a	. . . 4 ⊢ 𝐴 = (LSAtoms‘𝑈)
4		dochsatshp.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
5		dochsatshp.u	. . . . 5 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
6	4, 5, 1	dvhlmod 37798	. . . 4 ⊢ (𝜑 → 𝑈 ∈ LMod)
7		dochsatshp.q	. . . 4 ⊢ (𝜑 → 𝑄 ∈ 𝐴)
8	2, 3, 6, 7	lsatssv 35686	. . 3 ⊢ (𝜑 → 𝑄 ⊆ (Base‘𝑈))
9		eqid 2797	. . . 4 ⊢ (LSubSp‘𝑈) = (LSubSp‘𝑈)
10		dochsatshp.o	. . . 4 ⊢ ⊥ = ((ocH‘𝐾)‘𝑊)
11	4, 5, 2, 9, 10	dochlss 38042	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑄 ⊆ (Base‘𝑈)) → ( ⊥ ‘𝑄) ∈ (LSubSp‘𝑈))
12	1, 8, 11	syl2anc 584	. 2 ⊢ (𝜑 → ( ⊥ ‘𝑄) ∈ (LSubSp‘𝑈))
13		eqid 2797	. . . 4 ⊢ (0g‘𝑈) = (0g‘𝑈)
14	13, 3, 6, 7	lsatn0 35687	. . 3 ⊢ (𝜑 → 𝑄 ≠ {(0g‘𝑈)})
15	4, 5, 10, 2, 13	doch0 38046	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ( ⊥ ‘{(0g‘𝑈)}) = (Base‘𝑈))
16	1, 15	syl 17	. . . . . 6 ⊢ (𝜑 → ( ⊥ ‘{(0g‘𝑈)}) = (Base‘𝑈))
17	16	eqeq2d 2807	. . . . 5 ⊢ (𝜑 → (( ⊥ ‘𝑄) = ( ⊥ ‘{(0g‘𝑈)}) ↔ ( ⊥ ‘𝑄) = (Base‘𝑈)))
18		eqid 2797	. . . . . 6 ⊢ ((DIsoH‘𝐾)‘𝑊) = ((DIsoH‘𝐾)‘𝑊)
19	4, 5, 18, 3	dih1dimat 38018	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑄 ∈ 𝐴) → 𝑄 ∈ ran ((DIsoH‘𝐾)‘𝑊))
20	1, 7, 19	syl2anc 584	. . . . . 6 ⊢ (𝜑 → 𝑄 ∈ ran ((DIsoH‘𝐾)‘𝑊))
21	4, 18, 5, 13	dih0rn 37972	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → {(0g‘𝑈)} ∈ ran ((DIsoH‘𝐾)‘𝑊))
22	1, 21	syl 17	. . . . . 6 ⊢ (𝜑 → {(0g‘𝑈)} ∈ ran ((DIsoH‘𝐾)‘𝑊))
23	4, 18, 10, 1, 20, 22	doch11 38061	. . . . 5 ⊢ (𝜑 → (( ⊥ ‘𝑄) = ( ⊥ ‘{(0g‘𝑈)}) ↔ 𝑄 = {(0g‘𝑈)}))
24	17, 23	bitr3d 282	. . . 4 ⊢ (𝜑 → (( ⊥ ‘𝑄) = (Base‘𝑈) ↔ 𝑄 = {(0g‘𝑈)}))
25	24	necon3bid 3030	. . 3 ⊢ (𝜑 → (( ⊥ ‘𝑄) ≠ (Base‘𝑈) ↔ 𝑄 ≠ {(0g‘𝑈)}))
26	14, 25	mpbird 258	. 2 ⊢ (𝜑 → ( ⊥ ‘𝑄) ≠ (Base‘𝑈))
27		eqid 2797	. . . . . 6 ⊢ (LSpan‘𝑈) = (LSpan‘𝑈)
28	2, 27, 13, 3	islsat 35679	. . . . 5 ⊢ (𝑈 ∈ LMod → (𝑄 ∈ 𝐴 ↔ ∃𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)})𝑄 = ((LSpan‘𝑈)‘{𝑣})))
29	6, 28	syl 17	. . . 4 ⊢ (𝜑 → (𝑄 ∈ 𝐴 ↔ ∃𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)})𝑄 = ((LSpan‘𝑈)‘{𝑣})))
30	7, 29	mpbid 233	. . 3 ⊢ (𝜑 → ∃𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)})𝑄 = ((LSpan‘𝑈)‘{𝑣}))
31		eldifi 4030	. . . . . . 7 ⊢ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) → 𝑣 ∈ (Base‘𝑈))
32	31	adantr 481	. . . . . 6 ⊢ ((𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣})) → 𝑣 ∈ (Base‘𝑈))
33	32	a1i 11	. . . . 5 ⊢ (𝜑 → ((𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣})) → 𝑣 ∈ (Base‘𝑈)))
34	9, 27	lspid 19448	. . . . . . . . . . . 12 ⊢ ((𝑈 ∈ LMod ∧ ( ⊥ ‘𝑄) ∈ (LSubSp‘𝑈)) → ((LSpan‘𝑈)‘( ⊥ ‘𝑄)) = ( ⊥ ‘𝑄))
35	6, 12, 34	syl2anc 584	. . . . . . . . . . 11 ⊢ (𝜑 → ((LSpan‘𝑈)‘( ⊥ ‘𝑄)) = ( ⊥ ‘𝑄))
36	35	uneq1d 4065	. . . . . . . . . 10 ⊢ (𝜑 → (((LSpan‘𝑈)‘( ⊥ ‘𝑄)) ∪ ((LSpan‘𝑈)‘{𝑣})) = (( ⊥ ‘𝑄) ∪ ((LSpan‘𝑈)‘{𝑣})))
37	36	fveq2d 6549	. . . . . . . . 9 ⊢ (𝜑 → ((LSpan‘𝑈)‘(((LSpan‘𝑈)‘( ⊥ ‘𝑄)) ∪ ((LSpan‘𝑈)‘{𝑣}))) = ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ ((LSpan‘𝑈)‘{𝑣}))))
38	37	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ((LSpan‘𝑈)‘(((LSpan‘𝑈)‘( ⊥ ‘𝑄)) ∪ ((LSpan‘𝑈)‘{𝑣}))) = ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ ((LSpan‘𝑈)‘{𝑣}))))
39	6	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → 𝑈 ∈ LMod)
40	2, 9	lssss 19402	. . . . . . . . . . 11 ⊢ (( ⊥ ‘𝑄) ∈ (LSubSp‘𝑈) → ( ⊥ ‘𝑄) ⊆ (Base‘𝑈))
41	12, 40	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → ( ⊥ ‘𝑄) ⊆ (Base‘𝑈))
42	41	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ( ⊥ ‘𝑄) ⊆ (Base‘𝑈))
43	31	snssd 4655	. . . . . . . . . . 11 ⊢ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) → {𝑣} ⊆ (Base‘𝑈))
44	43	adantr 481	. . . . . . . . . 10 ⊢ ((𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣})) → {𝑣} ⊆ (Base‘𝑈))
45	44	adantl 482	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → {𝑣} ⊆ (Base‘𝑈))
46	2, 27	lspun 19453	. . . . . . . . 9 ⊢ ((𝑈 ∈ LMod ∧ ( ⊥ ‘𝑄) ⊆ (Base‘𝑈) ∧ {𝑣} ⊆ (Base‘𝑈)) → ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ {𝑣})) = ((LSpan‘𝑈)‘(((LSpan‘𝑈)‘( ⊥ ‘𝑄)) ∪ ((LSpan‘𝑈)‘{𝑣}))))
47	39, 42, 45, 46	syl3anc 1364	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ {𝑣})) = ((LSpan‘𝑈)‘(((LSpan‘𝑈)‘( ⊥ ‘𝑄)) ∪ ((LSpan‘𝑈)‘{𝑣}))))
48		uneq2 4060	. . . . . . . . . . 11 ⊢ (𝑄 = ((LSpan‘𝑈)‘{𝑣}) → (( ⊥ ‘𝑄) ∪ 𝑄) = (( ⊥ ‘𝑄) ∪ ((LSpan‘𝑈)‘{𝑣})))
49	48	fveq2d 6549	. . . . . . . . . 10 ⊢ (𝑄 = ((LSpan‘𝑈)‘{𝑣}) → ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ 𝑄)) = ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ ((LSpan‘𝑈)‘{𝑣}))))
50	49	adantl 482	. . . . . . . . 9 ⊢ ((𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣})) → ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ 𝑄)) = ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ ((LSpan‘𝑈)‘{𝑣}))))
51	50	adantl 482	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ 𝑄)) = ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ ((LSpan‘𝑈)‘{𝑣}))))
52	38, 47, 51	3eqtr4d 2843	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ {𝑣})) = ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ 𝑄)))
53		eqid 2797	. . . . . . . . . . 11 ⊢ ((joinH‘𝐾)‘𝑊) = ((joinH‘𝐾)‘𝑊)
54		eqid 2797	. . . . . . . . . . 11 ⊢ (LSSum‘𝑈) = (LSSum‘𝑈)
55	4, 18, 5, 2, 10	dochcl 38041	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑄 ⊆ (Base‘𝑈)) → ( ⊥ ‘𝑄) ∈ ran ((DIsoH‘𝐾)‘𝑊))
56	1, 8, 55	syl2anc 584	. . . . . . . . . . 11 ⊢ (𝜑 → ( ⊥ ‘𝑄) ∈ ran ((DIsoH‘𝐾)‘𝑊))
57	4, 18, 53, 5, 54, 3, 1, 56, 7	dihjat2 38119	. . . . . . . . . 10 ⊢ (𝜑 → (( ⊥ ‘𝑄)((joinH‘𝐾)‘𝑊)𝑄) = (( ⊥ ‘𝑄)(LSSum‘𝑈)𝑄))
58	4, 5, 2, 53, 1, 41, 8	djhcom 38093	. . . . . . . . . 10 ⊢ (𝜑 → (( ⊥ ‘𝑄)((joinH‘𝐾)‘𝑊)𝑄) = (𝑄((joinH‘𝐾)‘𝑊)( ⊥ ‘𝑄)))
59	9, 3, 6, 7	lsatlssel 35685	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑄 ∈ (LSubSp‘𝑈))
60	9, 27, 54	lsmsp 19552	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ LMod ∧ ( ⊥ ‘𝑄) ∈ (LSubSp‘𝑈) ∧ 𝑄 ∈ (LSubSp‘𝑈)) → (( ⊥ ‘𝑄)(LSSum‘𝑈)𝑄) = ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ 𝑄)))
61	6, 12, 59, 60	syl3anc 1364	. . . . . . . . . 10 ⊢ (𝜑 → (( ⊥ ‘𝑄)(LSSum‘𝑈)𝑄) = ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ 𝑄)))
62	57, 58, 61	3eqtr3rd 2842	. . . . . . . . 9 ⊢ (𝜑 → ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ 𝑄)) = (𝑄((joinH‘𝐾)‘𝑊)( ⊥ ‘𝑄)))
63	4, 5, 2, 10, 53	djhexmid 38099	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑄 ⊆ (Base‘𝑈)) → (𝑄((joinH‘𝐾)‘𝑊)( ⊥ ‘𝑄)) = (Base‘𝑈))
64	1, 8, 63	syl2anc 584	. . . . . . . . 9 ⊢ (𝜑 → (𝑄((joinH‘𝐾)‘𝑊)( ⊥ ‘𝑄)) = (Base‘𝑈))
65	62, 64	eqtrd 2833	. . . . . . . 8 ⊢ (𝜑 → ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ 𝑄)) = (Base‘𝑈))
66	65	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ 𝑄)) = (Base‘𝑈))
67	52, 66	eqtrd 2833	. . . . . 6 ⊢ ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ {𝑣})) = (Base‘𝑈))
68	67	ex 413	. . . . 5 ⊢ (𝜑 → ((𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣})) → ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ {𝑣})) = (Base‘𝑈)))
69	33, 68	jcad 513	. . . 4 ⊢ (𝜑 → ((𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣})) → (𝑣 ∈ (Base‘𝑈) ∧ ((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ {𝑣})) = (Base‘𝑈))))
70	69	reximdv2 3236	. . 3 ⊢ (𝜑 → (∃𝑣 ∈ ((Base‘𝑈) ∖ {(0g‘𝑈)})𝑄 = ((LSpan‘𝑈)‘{𝑣}) → ∃𝑣 ∈ (Base‘𝑈)((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ {𝑣})) = (Base‘𝑈)))
71	30, 70	mpd 15	. 2 ⊢ (𝜑 → ∃𝑣 ∈ (Base‘𝑈)((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ {𝑣})) = (Base‘𝑈))
72	4, 5, 1	dvhlvec 37797	. . 3 ⊢ (𝜑 → 𝑈 ∈ LVec)
73		dochsatshp.y	. . . 4 ⊢ 𝑌 = (LSHyp‘𝑈)
74	2, 27, 9, 73	islshp 35667	. . 3 ⊢ (𝑈 ∈ LVec → (( ⊥ ‘𝑄) ∈ 𝑌 ↔ (( ⊥ ‘𝑄) ∈ (LSubSp‘𝑈) ∧ ( ⊥ ‘𝑄) ≠ (Base‘𝑈) ∧ ∃𝑣 ∈ (Base‘𝑈)((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ {𝑣})) = (Base‘𝑈))))
75	72, 74	syl 17	. 2 ⊢ (𝜑 → (( ⊥ ‘𝑄) ∈ 𝑌 ↔ (( ⊥ ‘𝑄) ∈ (LSubSp‘𝑈) ∧ ( ⊥ ‘𝑄) ≠ (Base‘𝑈) ∧ ∃𝑣 ∈ (Base‘𝑈)((LSpan‘𝑈)‘(( ⊥ ‘𝑄) ∪ {𝑣})) = (Base‘𝑈))))
76	12, 26, 71, 75	mpbir3and 1335	1 ⊢ (𝜑 → ( ⊥ ‘𝑄) ∈ 𝑌)

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1080   = wceq 1525   ∈ wcel 2083   ≠ wne 2986  ∃wrex 3108   ∖ cdif 3862   ∪ cun 3863   ⊆ wss 3865  {csn 4478  ran crn 5451  ‘cfv 6232  (class class class)co 7023  Basecbs 16316  0_gc0g 16546  LSSumclsm 18493  LModclmod 19328  LSubSpclss 19397  LSpanclspn 19437  LVecclvec 19568  LSAtomsclsa 35662  LSHypclsh 35663  HLchlt 36038  LHypclh 36672  DVecHcdvh 37766  DIsoHcdih 37916  ocHcoch 38035  joinHcdjh 38082

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1781  ax-4 1795  ax-5 1892  ax-6 1951  ax-7 1996  ax-8 2085  ax-9 2093  ax-10 2114  ax-11 2128  ax-12 2143  ax-13 2346  ax-ext 2771  ax-rep 5088  ax-sep 5101  ax-nul 5108  ax-pow 5164  ax-pr 5228  ax-un 7326  ax-cnex 10446  ax-resscn 10447  ax-1cn 10448  ax-icn 10449  ax-addcl 10450  ax-addrcl 10451  ax-mulcl 10452  ax-mulrcl 10453  ax-mulcom 10454  ax-addass 10455  ax-mulass 10456  ax-distr 10457  ax-i2m1 10458  ax-1ne0 10459  ax-1rid 10460  ax-rnegex 10461  ax-rrecex 10462  ax-cnre 10463  ax-pre-lttri 10464  ax-pre-lttrn 10465  ax-pre-ltadd 10466  ax-pre-mulgt0 10467  ax-riotaBAD 35641

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1528  df-fal 1538  df-ex 1766  df-nf 1770  df-sb 2045  df-mo 2578  df-eu 2614  df-clab 2778  df-cleq 2790  df-clel 2865  df-nfc 2937  df-ne 2987  df-nel 3093  df-ral 3112  df-rex 3113  df-reu 3114  df-rmo 3115  df-rab 3116  df-v 3442  df-sbc 3712  df-csb 3818  df-dif 3868  df-un 3870  df-in 3872  df-ss 3880  df-pss 3882  df-nul 4218  df-if 4388  df-pw 4461  df-sn 4479  df-pr 4481  df-tp 4483  df-op 4485  df-uni 4752  df-int 4789  df-iun 4833  df-iin 4834  df-br 4969  df-opab 5031  df-mpt 5048  df-tr 5071  df-id 5355  df-eprel 5360  df-po 5369  df-so 5370  df-fr 5409  df-we 5411  df-xp 5456  df-rel 5457  df-cnv 5458  df-co 5459  df-dm 5460  df-rn 5461  df-res 5462  df-ima 5463  df-pred 6030  df-ord 6076  df-on 6077  df-lim 6078  df-suc 6079  df-iota 6196  df-fun 6234  df-fn 6235  df-f 6236  df-f1 6237  df-fo 6238  df-f1o 6239  df-fv 6240  df-riota 6984  df-ov 7026  df-oprab 7027  df-mpo 7028  df-om 7444  df-1st 7552  df-2nd 7553  df-tpos 7750  df-undef 7797  df-wrecs 7805  df-recs 7867  df-rdg 7905  df-1o 7960  df-oadd 7964  df-er 8146  df-map 8265  df-en 8365  df-dom 8366  df-sdom 8367  df-fin 8368  df-pnf 10530  df-mnf 10531  df-xr 10532  df-ltxr 10533  df-le 10534  df-sub 10725  df-neg 10726  df-nn 11493  df-2 11554  df-3 11555  df-4 11556  df-5 11557  df-6 11558  df-n0 11752  df-z 11836  df-uz 12098  df-fz 12747  df-struct 16318  df-ndx 16319  df-slot 16320  df-base 16322  df-sets 16323  df-ress 16324  df-plusg 16411  df-mulr 16412  df-sca 16414  df-vsca 16415  df-0g 16548  df-proset 17371  df-poset 17389  df-plt 17401  df-lub 17417  df-glb 17418  df-join 17419  df-meet 17420  df-p0 17482  df-p1 17483  df-lat 17489  df-clat 17551  df-mgm 17685  df-sgrp 17727  df-mnd 17738  df-submnd 17779  df-grp 17868  df-minusg 17869  df-sbg 17870  df-subg 18034  df-cntz 18192  df-lsm 18495  df-cmn 18639  df-abl 18640  df-mgp 18934  df-ur 18946  df-ring 18993  df-oppr 19067  df-dvdsr 19085  df-unit 19086  df-invr 19116  df-dvr 19127  df-drng 19198  df-lmod 19330  df-lss 19398  df-lsp 19438  df-lvec 19569  df-lsatoms 35664  df-lshyp 35665  df-oposet 35864  df-ol 35866  df-oml 35867  df-covers 35954  df-ats 35955  df-atl 35986  df-cvlat 36010  df-hlat 36039  df-llines 36186  df-lplanes 36187  df-lvols 36188  df-lines 36189  df-psubsp 36191  df-pmap 36192  df-padd 36484  df-lhyp 36676  df-laut 36677  df-ldil 36792  df-ltrn 36793  df-trl 36847  df-tgrp 37431  df-tendo 37443  df-edring 37445  df-dveca 37691  df-disoa 37717  df-dvech 37767  df-dib 37827  df-dic 37861  df-dih 37917  df-doch 38036  df-djh 38083

This theorem is referenced by:  dochsatshpb  38140  dochsnshp  38141  dochpolN  38178  lclkrlem2c  38197  lclkrlem2e  38199  mapdordlem2  38325