Theorem dihlsscpre 37763

Description: Closure of isomorphism H for a lattice 𝐾 when ¬ 𝑋 ≤ 𝑊. (Contributed by NM, 6-Mar-2014.)

Hypotheses

Ref	Expression
dihval.b	⊢ 𝐵 = (Base‘𝐾)
dihval.l	⊢ ≤ = (le‘𝐾)
dihval.j	⊢ ∨ = (join‘𝐾)
dihval.m	⊢ ∧ = (meet‘𝐾)
dihval.a	⊢ 𝐴 = (Atoms‘𝐾)
dihval.h	⊢ 𝐻 = (LHyp‘𝐾)
dihval.i	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
dihval.d	⊢ 𝐷 = ((DIsoB‘𝐾)‘𝑊)
dihval.c	⊢ 𝐶 = ((DIsoC‘𝐾)‘𝑊)
dihval.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
dihval.s	⊢ 𝑆 = (LSubSp‘𝑈)
dihval.p	⊢ ⊕ = (LSSum‘𝑈)

Assertion

Ref	Expression
dihlsscpre	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐼‘𝑋) ∈ 𝑆)

Proof of Theorem dihlsscpre

Dummy variables 𝑞 𝑢 𝑟 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dihval.b	. . 3 ⊢ 𝐵 = (Base‘𝐾)
2		dihval.l	. . 3 ⊢ ≤ = (le‘𝐾)
3		dihval.j	. . 3 ⊢ ∨ = (join‘𝐾)
4		dihval.m	. . 3 ⊢ ∧ = (meet‘𝐾)
5		dihval.a	. . 3 ⊢ 𝐴 = (Atoms‘𝐾)
6		dihval.h	. . 3 ⊢ 𝐻 = (LHyp‘𝐾)
7		dihval.i	. . 3 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
8		dihval.d	. . 3 ⊢ 𝐷 = ((DIsoB‘𝐾)‘𝑊)
9		dihval.c	. . 3 ⊢ 𝐶 = ((DIsoC‘𝐾)‘𝑊)
10		dihval.u	. . 3 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
11		dihval.s	. . 3 ⊢ 𝑆 = (LSubSp‘𝑈)
12		dihval.p	. . 3 ⊢ ⊕ = (LSSum‘𝑈)
13	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12	dihvalc 37762	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐼‘𝑋) = (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))))
14		simp1l 1177	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) ∧ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
15		simp2l 1179	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) ∧ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → 𝑞 ∈ 𝐴)
16		simp3ll 1224	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) ∧ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → ¬ 𝑞 ≤ 𝑊)
17	15, 16	jca 504	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) ∧ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊))
18		simp2r 1180	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) ∧ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → 𝑟 ∈ 𝐴)
19		simp3rl 1226	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) ∧ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → ¬ 𝑟 ≤ 𝑊)
20	18, 19	jca 504	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) ∧ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝑟 ∈ 𝐴 ∧ ¬ 𝑟 ≤ 𝑊))
21		simp1rl 1218	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) ∧ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → 𝑋 ∈ 𝐵)
22		simp3lr 1225	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) ∧ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)
23		simp3rr 1227	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) ∧ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋)
24	22, 23	eqtr4d 2811	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) ∧ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝑞 ∨ (𝑋 ∧ 𝑊)) = (𝑟 ∨ (𝑋 ∧ 𝑊)))
25	1, 2, 3, 4, 5, 6, 8, 9, 10, 12	dihjust 37746	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑟 ∈ 𝐴 ∧ ¬ 𝑟 ≤ 𝑊) ∧ 𝑋 ∈ 𝐵) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = (𝑟 ∨ (𝑋 ∧ 𝑊))) → ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) = ((𝐶‘𝑟) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))
26	14, 17, 20, 21, 24, 25	syl131anc 1363	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) ∧ ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) = ((𝐶‘𝑟) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))
27	26	3exp 1099	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ((𝑞 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) → (((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) = ((𝐶‘𝑟) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))))
28	27	ralrimivv 3134	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ∀𝑞 ∈ 𝐴 ∀𝑟 ∈ 𝐴 (((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) = ((𝐶‘𝑟) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))))
29	1, 2, 3, 4, 5, 6	lhpmcvr2 36553	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ∃𝑞 ∈ 𝐴 (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))
30		simpll 754	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
31	6, 10, 30	dvhlmod 37639	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → 𝑈 ∈ LMod)
32	2, 5, 6, 10, 9, 11	diclss 37722	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → (𝐶‘𝑞) ∈ 𝑆)
33	32	adantlr 702	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → (𝐶‘𝑞) ∈ 𝑆)
34		hllat 35892	. . . . . . . . . . . . . . . 16 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
35	34	ad3antrrr 717	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → 𝐾 ∈ Lat)
36		simplrl 764	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → 𝑋 ∈ 𝐵)
37	1, 6	lhpbase 36527	. . . . . . . . . . . . . . . 16 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
38	37	ad3antlr 718	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → 𝑊 ∈ 𝐵)
39	1, 4	latmcl 17510	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑋 ∧ 𝑊) ∈ 𝐵)
40	35, 36, 38, 39	syl3anc 1351	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → (𝑋 ∧ 𝑊) ∈ 𝐵)
41	1, 2, 4	latmle2 17535	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑋 ∧ 𝑊) ≤ 𝑊)
42	35, 36, 38, 41	syl3anc 1351	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → (𝑋 ∧ 𝑊) ≤ 𝑊)
43	1, 2, 6, 10, 8, 11	diblss 37699	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑋 ∧ 𝑊) ∈ 𝐵 ∧ (𝑋 ∧ 𝑊) ≤ 𝑊)) → (𝐷‘(𝑋 ∧ 𝑊)) ∈ 𝑆)
44	30, 40, 42, 43	syl12anc 824	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → (𝐷‘(𝑋 ∧ 𝑊)) ∈ 𝑆)
45	11, 12	lsmcl 19567	. . . . . . . . . . . . 13 ⊢ ((𝑈 ∈ LMod ∧ (𝐶‘𝑞) ∈ 𝑆 ∧ (𝐷‘(𝑋 ∧ 𝑊)) ∈ 𝑆) → ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) ∈ 𝑆)
46	31, 33, 44, 45	syl3anc 1351	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) ∈ 𝑆)
47	46	a1d 25	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → ((𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋 → ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) ∈ 𝑆))
48	47	expr 449	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ 𝑞 ∈ 𝐴) → (¬ 𝑞 ≤ 𝑊 → ((𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋 → ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) ∈ 𝑆)))
49	48	impd 402	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ 𝑞 ∈ 𝐴) → ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) ∈ 𝑆))
50	49	ancld 543	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) ∧ 𝑞 ∈ 𝐴) → ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) ∈ 𝑆)))
51	50	reximdva 3213	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (∃𝑞 ∈ 𝐴 (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → ∃𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) ∈ 𝑆)))
52	29, 51	mpd 15	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ∃𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) ∈ 𝑆))
53		breq1 4926	. . . . . . . . 9 ⊢ (𝑞 = 𝑟 → (𝑞 ≤ 𝑊 ↔ 𝑟 ≤ 𝑊))
54	53	notbid 310	. . . . . . . 8 ⊢ (𝑞 = 𝑟 → (¬ 𝑞 ≤ 𝑊 ↔ ¬ 𝑟 ≤ 𝑊))
55		oveq1 6977	. . . . . . . . 9 ⊢ (𝑞 = 𝑟 → (𝑞 ∨ (𝑋 ∧ 𝑊)) = (𝑟 ∨ (𝑋 ∧ 𝑊)))
56	55	eqeq1d 2774	. . . . . . . 8 ⊢ (𝑞 = 𝑟 → ((𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ↔ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋))
57	54, 56	anbi12d 621	. . . . . . 7 ⊢ (𝑞 = 𝑟 → ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ↔ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋)))
58		fveq2 6493	. . . . . . . 8 ⊢ (𝑞 = 𝑟 → (𝐶‘𝑞) = (𝐶‘𝑟))
59	58	oveq1d 6985	. . . . . . 7 ⊢ (𝑞 = 𝑟 → ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) = ((𝐶‘𝑟) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))
60	57, 59	reusv3 5153	. . . . . 6 ⊢ (∃𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) ∈ 𝑆) → (∀𝑞 ∈ 𝐴 ∀𝑟 ∈ 𝐴 (((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) = ((𝐶‘𝑟) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))) ↔ ∃𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))))
61	52, 60	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (∀𝑞 ∈ 𝐴 ∀𝑟 ∈ 𝐴 (((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) ∧ (¬ 𝑟 ≤ 𝑊 ∧ (𝑟 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))) = ((𝐶‘𝑟) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))) ↔ ∃𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))))
62	28, 61	mpbid 224	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ∃𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))))
63		reusv1 5145	. . . . 5 ⊢ (∃𝑞 ∈ 𝐴 (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → (∃!𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))) ↔ ∃𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))))
64	29, 63	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (∃!𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))) ↔ ∃𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))))
65	62, 64	mpbird 249	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ∃!𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))))
66		riotacl 6945	. . 3 ⊢ (∃!𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊)))) → (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))) ∈ 𝑆)
67	65, 66	syl 17	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (℩𝑢 ∈ 𝑆 ∀𝑞 ∈ 𝐴 ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → 𝑢 = ((𝐶‘𝑞) ⊕ (𝐷‘(𝑋 ∧ 𝑊))))) ∈ 𝑆)
68	13, 67	eqeltrd 2860	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐼‘𝑋) ∈ 𝑆)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 198   ∧ wa 387   ∧ w3a 1068   = wceq 1507   ∈ wcel 2048  ∀wral 3082  ∃wrex 3083  ∃!wreu 3084   class class class wbr 4923  ‘cfv 6182  ℩crio 6930  (class class class)co 6970  Basecbs 16329  lecple 16418  joincjn 17402  meetcmee 17403  Latclat 17503  LSSumclsm 18510  LModclmod 19346  LSubSpclss 19415  Atomscatm 35792  HLchlt 35879  LHypclh 36513  DVecHcdvh 37607  DIsoBcdib 37667  DIsoCcdic 37701  DIsoHcdih 37757

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1964  ax-8 2050  ax-9 2057  ax-10 2077  ax-11 2091  ax-12 2104  ax-13 2299  ax-ext 2745  ax-rep 5043  ax-sep 5054  ax-nul 5061  ax-pow 5113  ax-pr 5180  ax-un 7273  ax-cnex 10383  ax-resscn 10384  ax-1cn 10385  ax-icn 10386  ax-addcl 10387  ax-addrcl 10388  ax-mulcl 10389  ax-mulrcl 10390  ax-mulcom 10391  ax-addass 10392  ax-mulass 10393  ax-distr 10394  ax-i2m1 10395  ax-1ne0 10396  ax-1rid 10397  ax-rnegex 10398  ax-rrecex 10399  ax-cnre 10400  ax-pre-lttri 10401  ax-pre-lttrn 10402  ax-pre-ltadd 10403  ax-pre-mulgt0 10404  ax-riotaBAD 35482

This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3or 1069  df-3an 1070  df-tru 1510  df-fal 1520  df-ex 1743  df-nf 1747  df-sb 2014  df-mo 2544  df-eu 2580  df-clab 2754  df-cleq 2765  df-clel 2840  df-nfc 2912  df-ne 2962  df-nel 3068  df-ral 3087  df-rex 3088  df-reu 3089  df-rmo 3090  df-rab 3091  df-v 3411  df-sbc 3678  df-csb 3783  df-dif 3828  df-un 3830  df-in 3832  df-ss 3839  df-pss 3841  df-nul 4174  df-if 4345  df-pw 4418  df-sn 4436  df-pr 4438  df-tp 4440  df-op 4442  df-uni 4707  df-int 4744  df-iun 4788  df-iin 4789  df-br 4924  df-opab 4986  df-mpt 5003  df-tr 5025  df-id 5305  df-eprel 5310  df-po 5319  df-so 5320  df-fr 5359  df-we 5361  df-xp 5406  df-rel 5407  df-cnv 5408  df-co 5409  df-dm 5410  df-rn 5411  df-res 5412  df-ima 5413  df-pred 5980  df-ord 6026  df-on 6027  df-lim 6028  df-suc 6029  df-iota 6146  df-fun 6184  df-fn 6185  df-f 6186  df-f1 6187  df-fo 6188  df-f1o 6189  df-fv 6190  df-riota 6931  df-ov 6973  df-oprab 6974  df-mpo 6975  df-om 7391  df-1st 7494  df-2nd 7495  df-tpos 7688  df-undef 7735  df-wrecs 7743  df-recs 7805  df-rdg 7843  df-1o 7897  df-oadd 7901  df-er 8081  df-map 8200  df-en 8299  df-dom 8300  df-sdom 8301  df-fin 8302  df-pnf 10468  df-mnf 10469  df-xr 10470  df-ltxr 10471  df-le 10472  df-sub 10664  df-neg 10665  df-nn 11432  df-2 11496  df-3 11497  df-4 11498  df-5 11499  df-6 11500  df-n0 11701  df-z 11787  df-uz 12052  df-fz 12702  df-struct 16331  df-ndx 16332  df-slot 16333  df-base 16335  df-sets 16336  df-ress 16337  df-plusg 16424  df-mulr 16425  df-sca 16427  df-vsca 16428  df-0g 16561  df-proset 17386  df-poset 17404  df-plt 17416  df-lub 17432  df-glb 17433  df-join 17434  df-meet 17435  df-p0 17497  df-p1 17498  df-lat 17504  df-clat 17566  df-mgm 17700  df-sgrp 17742  df-mnd 17753  df-submnd 17794  df-grp 17884  df-minusg 17885  df-sbg 17886  df-subg 18050  df-cntz 18208  df-lsm 18512  df-cmn 18658  df-abl 18659  df-mgp 18953  df-ur 18965  df-ring 19012  df-oppr 19086  df-dvdsr 19104  df-unit 19105  df-invr 19135  df-dvr 19146  df-drng 19217  df-lmod 19348  df-lss 19416  df-lsp 19456  df-lvec 19587  df-oposet 35705  df-ol 35707  df-oml 35708  df-covers 35795  df-ats 35796  df-atl 35827  df-cvlat 35851  df-hlat 35880  df-llines 36027  df-lplanes 36028  df-lvols 36029  df-lines 36030  df-psubsp 36032  df-pmap 36033  df-padd 36325  df-lhyp 36517  df-laut 36518  df-ldil 36633  df-ltrn 36634  df-trl 36688  df-tendo 37284  df-edring 37286  df-disoa 37558  df-dvech 37608  df-dib 37668  df-dic 37702  df-dih 37758

This theorem is referenced by:  dihvalcqpre  37764  dihlss  37779