Theorem pmapjat1 40482

Description: The projective map of the join of a lattice element and an atom. (Contributed by NM, 28-Jan-2012.)

Hypotheses

Ref	Expression
pmapjat.b	⊢ 𝐵 = (Base‘𝐾)
pmapjat.j	⊢ ∨ = (join‘𝐾)
pmapjat.a	⊢ 𝐴 = (Atoms‘𝐾)
pmapjat.m	⊢ 𝑀 = (pmap‘𝐾)
pmapjat.p	⊢ + = (+𝑃‘𝐾)

Assertion

Ref	Expression
pmapjat1	⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (𝑀‘(𝑋 ∨ 𝑄)) = ((𝑀‘𝑋) + (𝑀‘𝑄)))

Proof of Theorem pmapjat1

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

Step	Hyp	Ref	Expression
1		simp1 1150	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → 𝐾 ∈ HL)
2		pmapjat.b	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝐾)
3		pmapjat.a	. . . . . . . 8 ⊢ 𝐴 = (Atoms‘𝐾)
4	2, 3	atbase 39918	. . . . . . 7 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ 𝐵)
5	4	3ad2ant3 1149	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → 𝑄 ∈ 𝐵)
6		pmapjat.m	. . . . . . 7 ⊢ 𝑀 = (pmap‘𝐾)
7	2, 3, 6	pmapssat 40388	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑄 ∈ 𝐵) → (𝑀‘𝑄) ⊆ 𝐴)
8	1, 5, 7	syl2anc 593	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (𝑀‘𝑄) ⊆ 𝐴)
9		pmapjat.p	. . . . . 6 ⊢ + = (+𝑃‘𝐾)
10	3, 9	padd02 40441	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑀‘𝑄) ⊆ 𝐴) → (∅ + (𝑀‘𝑄)) = (𝑀‘𝑄))
11	1, 8, 10	syl2anc 593	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (∅ + (𝑀‘𝑄)) = (𝑀‘𝑄))
12	11	adantr 484	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 = (0.‘𝐾)) → (∅ + (𝑀‘𝑄)) = (𝑀‘𝑄))
13		fveq2 6869	. . . . 5 ⊢ (𝑋 = (0.‘𝐾) → (𝑀‘𝑋) = (𝑀‘(0.‘𝐾)))
14		hlatl 39989	. . . . . . 7 ⊢ (𝐾 ∈ HL → 𝐾 ∈ AtLat)
15	14	3ad2ant1 1147	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → 𝐾 ∈ AtLat)
16		eqid 2764	. . . . . . 7 ⊢ (0.‘𝐾) = (0.‘𝐾)
17	16, 6	pmap0 40394	. . . . . 6 ⊢ (𝐾 ∈ AtLat → (𝑀‘(0.‘𝐾)) = ∅)
18	15, 17	syl 17	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (𝑀‘(0.‘𝐾)) = ∅)
19	13, 18	sylan9eqr 2821	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 = (0.‘𝐾)) → (𝑀‘𝑋) = ∅)
20	19	oveq1d 7413	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 = (0.‘𝐾)) → ((𝑀‘𝑋) + (𝑀‘𝑄)) = (∅ + (𝑀‘𝑄)))
21		oveq1 7405	. . . . 5 ⊢ (𝑋 = (0.‘𝐾) → (𝑋 ∨ 𝑄) = ((0.‘𝐾) ∨ 𝑄))
22		hlol 39990	. . . . . . 7 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
23	22	3ad2ant1 1147	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → 𝐾 ∈ OL)
24		pmapjat.j	. . . . . . 7 ⊢ ∨ = (join‘𝐾)
25	2, 24, 16	olj02 39855	. . . . . 6 ⊢ ((𝐾 ∈ OL ∧ 𝑄 ∈ 𝐵) → ((0.‘𝐾) ∨ 𝑄) = 𝑄)
26	23, 5, 25	syl2anc 593	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → ((0.‘𝐾) ∨ 𝑄) = 𝑄)
27	21, 26	sylan9eqr 2821	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 = (0.‘𝐾)) → (𝑋 ∨ 𝑄) = 𝑄)
28	27	fveq2d 6873	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 = (0.‘𝐾)) → (𝑀‘(𝑋 ∨ 𝑄)) = (𝑀‘𝑄))
29	12, 20, 28	3eqtr4rd 2810	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 = (0.‘𝐾)) → (𝑀‘(𝑋 ∨ 𝑄)) = ((𝑀‘𝑋) + (𝑀‘𝑄)))
30		simpll1 1227	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) → 𝐾 ∈ HL)
31	30	adantr 484	. . . . . . . . 9 ⊢ (((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄)) → 𝐾 ∈ HL)
32		simpll2 1228	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) → 𝑋 ∈ 𝐵)
33	32	adantr 484	. . . . . . . . . 10 ⊢ (((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄)) → 𝑋 ∈ 𝐵)
34		simplr 778	. . . . . . . . . 10 ⊢ (((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄)) → 𝑝 ∈ 𝐴)
35		simpll3 1229	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) → 𝑄 ∈ 𝐴)
36	35	adantr 484	. . . . . . . . . 10 ⊢ (((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄)) → 𝑄 ∈ 𝐴)
37	33, 34, 36	3jca 1142	. . . . . . . . 9 ⊢ (((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄)) → (𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴))
38		simpllr 785	. . . . . . . . 9 ⊢ (((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄)) → 𝑋 ≠ (0.‘𝐾))
39		simpr 488	. . . . . . . . 9 ⊢ (((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄)) → 𝑝(le‘𝐾)(𝑋 ∨ 𝑄))
40		eqid 2764	. . . . . . . . . . 11 ⊢ (le‘𝐾) = (le‘𝐾)
41	2, 40, 24, 16, 3	cvrat42 40073	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑋 ≠ (0.‘𝐾) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄)) → ∃𝑞 ∈ 𝐴 (𝑞(le‘𝐾)𝑋 ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄))))
42	41	imp 410	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ (𝑋 ≠ (0.‘𝐾) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄))) → ∃𝑞 ∈ 𝐴 (𝑞(le‘𝐾)𝑋 ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄)))
43	31, 37, 38, 39, 42	syl22anc 849	. . . . . . . 8 ⊢ (((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄)) → ∃𝑞 ∈ 𝐴 (𝑞(le‘𝐾)𝑋 ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄)))
44	43	ex 416	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) → (𝑝(le‘𝐾)(𝑋 ∨ 𝑄) → ∃𝑞 ∈ 𝐴 (𝑞(le‘𝐾)𝑋 ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄))))
45	2, 40, 3, 6	elpmap 40387	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵) → (𝑞 ∈ (𝑀‘𝑋) ↔ (𝑞 ∈ 𝐴 ∧ 𝑞(le‘𝐾)𝑋)))
46	45	3adant3 1146	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (𝑞 ∈ (𝑀‘𝑋) ↔ (𝑞 ∈ 𝐴 ∧ 𝑞(le‘𝐾)𝑋)))
47		df-rex 3089	. . . . . . . . . . . . 13 ⊢ (∃𝑟 ∈ (𝑀‘𝑄)𝑝(le‘𝐾)(𝑞 ∨ 𝑟) ↔ ∃𝑟(𝑟 ∈ (𝑀‘𝑄) ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑟)))
48	3, 6	elpmapat 40393	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ HL ∧ 𝑄 ∈ 𝐴) → (𝑟 ∈ (𝑀‘𝑄) ↔ 𝑟 = 𝑄))
49	48	3adant2 1145	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (𝑟 ∈ (𝑀‘𝑄) ↔ 𝑟 = 𝑄))
50	49	anbi1d 640	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → ((𝑟 ∈ (𝑀‘𝑄) ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑟)) ↔ (𝑟 = 𝑄 ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑟))))
51	50	exbidv 1943	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (∃𝑟(𝑟 ∈ (𝑀‘𝑄) ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑟)) ↔ ∃𝑟(𝑟 = 𝑄 ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑟))))
52	47, 51	bitr2id 286	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (∃𝑟(𝑟 = 𝑄 ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑟)) ↔ ∃𝑟 ∈ (𝑀‘𝑄)𝑝(le‘𝐾)(𝑞 ∨ 𝑟)))
53		oveq2 7406	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = 𝑄 → (𝑞 ∨ 𝑟) = (𝑞 ∨ 𝑄))
54	53	breq2d 5114	. . . . . . . . . . . . . 14 ⊢ (𝑟 = 𝑄 → (𝑝(le‘𝐾)(𝑞 ∨ 𝑟) ↔ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄)))
55	54	ceqsexgv 3615	. . . . . . . . . . . . 13 ⊢ (𝑄 ∈ 𝐴 → (∃𝑟(𝑟 = 𝑄 ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑟)) ↔ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄)))
56	55	3ad2ant3 1149	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (∃𝑟(𝑟 = 𝑄 ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑟)) ↔ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄)))
57	52, 56	bitr3d 283	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (∃𝑟 ∈ (𝑀‘𝑄)𝑝(le‘𝐾)(𝑞 ∨ 𝑟) ↔ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄)))
58	46, 57	anbi12d 641	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → ((𝑞 ∈ (𝑀‘𝑋) ∧ ∃𝑟 ∈ (𝑀‘𝑄)𝑝(le‘𝐾)(𝑞 ∨ 𝑟)) ↔ ((𝑞 ∈ 𝐴 ∧ 𝑞(le‘𝐾)𝑋) ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄))))
59		anass 472	. . . . . . . . . 10 ⊢ (((𝑞 ∈ 𝐴 ∧ 𝑞(le‘𝐾)𝑋) ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄)) ↔ (𝑞 ∈ 𝐴 ∧ (𝑞(le‘𝐾)𝑋 ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄))))
60	58, 59	bitrdi 289	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → ((𝑞 ∈ (𝑀‘𝑋) ∧ ∃𝑟 ∈ (𝑀‘𝑄)𝑝(le‘𝐾)(𝑞 ∨ 𝑟)) ↔ (𝑞 ∈ 𝐴 ∧ (𝑞(le‘𝐾)𝑋 ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄)))))
61	60	rexbidv2 3184	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑄)𝑝(le‘𝐾)(𝑞 ∨ 𝑟) ↔ ∃𝑞 ∈ 𝐴 (𝑞(le‘𝐾)𝑋 ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄))))
62	61	ad2antrr 736	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) → (∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑄)𝑝(le‘𝐾)(𝑞 ∨ 𝑟) ↔ ∃𝑞 ∈ 𝐴 (𝑞(le‘𝐾)𝑋 ∧ 𝑝(le‘𝐾)(𝑞 ∨ 𝑄))))
63	44, 62	sylibrd 261	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) ∧ 𝑝 ∈ 𝐴) → (𝑝(le‘𝐾)(𝑋 ∨ 𝑄) → ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑄)𝑝(le‘𝐾)(𝑞 ∨ 𝑟)))
64	63	imdistanda 579	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) → ((𝑝 ∈ 𝐴 ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄)) → (𝑝 ∈ 𝐴 ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑄)𝑝(le‘𝐾)(𝑞 ∨ 𝑟))))
65		hllat 39992	. . . . . . . . 9 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
66	65	3ad2ant1 1147	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → 𝐾 ∈ Lat)
67		simp2 1151	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → 𝑋 ∈ 𝐵)
68	2, 24	latjcl 18473	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐵) → (𝑋 ∨ 𝑄) ∈ 𝐵)
69	66, 67, 5, 68	syl3anc 1392	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (𝑋 ∨ 𝑄) ∈ 𝐵)
70	2, 40, 3, 6	elpmap 40387	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∨ 𝑄) ∈ 𝐵) → (𝑝 ∈ (𝑀‘(𝑋 ∨ 𝑄)) ↔ (𝑝 ∈ 𝐴 ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄))))
71	1, 69, 70	syl2anc 593	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (𝑝 ∈ (𝑀‘(𝑋 ∨ 𝑄)) ↔ (𝑝 ∈ 𝐴 ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄))))
72	71	adantr 484	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) → (𝑝 ∈ (𝑀‘(𝑋 ∨ 𝑄)) ↔ (𝑝 ∈ 𝐴 ∧ 𝑝(le‘𝐾)(𝑋 ∨ 𝑄))))
73	2, 3, 6	pmapssat 40388	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵) → (𝑀‘𝑋) ⊆ 𝐴)
74	73	3adant3 1146	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (𝑀‘𝑋) ⊆ 𝐴)
75	66, 74, 8	3jca 1142	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (𝐾 ∈ Lat ∧ (𝑀‘𝑋) ⊆ 𝐴 ∧ (𝑀‘𝑄) ⊆ 𝐴))
76	75	adantr 484	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) → (𝐾 ∈ Lat ∧ (𝑀‘𝑋) ⊆ 𝐴 ∧ (𝑀‘𝑄) ⊆ 𝐴))
77	2, 16, 6	pmapeq0 40395	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵) → ((𝑀‘𝑋) = ∅ ↔ 𝑋 = (0.‘𝐾)))
78	77	3adant3 1146	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → ((𝑀‘𝑋) = ∅ ↔ 𝑋 = (0.‘𝐾)))
79	78	necon3bid 3003	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → ((𝑀‘𝑋) ≠ ∅ ↔ 𝑋 ≠ (0.‘𝐾)))
80	79	biimpar 481	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) → (𝑀‘𝑋) ≠ ∅)
81		simp3 1152	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → 𝑄 ∈ 𝐴)
82	16, 3	atn0 39937	. . . . . . . . 9 ⊢ ((𝐾 ∈ AtLat ∧ 𝑄 ∈ 𝐴) → 𝑄 ≠ (0.‘𝐾))
83	15, 81, 82	syl2anc 593	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → 𝑄 ≠ (0.‘𝐾))
84	2, 16, 6	pmapeq0 40395	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ 𝑄 ∈ 𝐵) → ((𝑀‘𝑄) = ∅ ↔ 𝑄 = (0.‘𝐾)))
85	1, 5, 84	syl2anc 593	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → ((𝑀‘𝑄) = ∅ ↔ 𝑄 = (0.‘𝐾)))
86	85	necon3bid 3003	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → ((𝑀‘𝑄) ≠ ∅ ↔ 𝑄 ≠ (0.‘𝐾)))
87	83, 86	mpbird 259	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (𝑀‘𝑄) ≠ ∅)
88	87	adantr 484	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) → (𝑀‘𝑄) ≠ ∅)
89	40, 24, 3, 9	elpaddn0 40429	. . . . . 6 ⊢ (((𝐾 ∈ Lat ∧ (𝑀‘𝑋) ⊆ 𝐴 ∧ (𝑀‘𝑄) ⊆ 𝐴) ∧ ((𝑀‘𝑋) ≠ ∅ ∧ (𝑀‘𝑄) ≠ ∅)) → (𝑝 ∈ ((𝑀‘𝑋) + (𝑀‘𝑄)) ↔ (𝑝 ∈ 𝐴 ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑄)𝑝(le‘𝐾)(𝑞 ∨ 𝑟))))
90	76, 80, 88, 89	syl12anc 847	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) → (𝑝 ∈ ((𝑀‘𝑋) + (𝑀‘𝑄)) ↔ (𝑝 ∈ 𝐴 ∧ ∃𝑞 ∈ (𝑀‘𝑋)∃𝑟 ∈ (𝑀‘𝑄)𝑝(le‘𝐾)(𝑞 ∨ 𝑟))))
91	64, 72, 90	3imtr4d 296	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) → (𝑝 ∈ (𝑀‘(𝑋 ∨ 𝑄)) → 𝑝 ∈ ((𝑀‘𝑋) + (𝑀‘𝑄))))
92	91	ssrdv 3944	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) → (𝑀‘(𝑋 ∨ 𝑄)) ⊆ ((𝑀‘𝑋) + (𝑀‘𝑄)))
93	2, 24, 6, 9	pmapjoin 40481	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐵) → ((𝑀‘𝑋) + (𝑀‘𝑄)) ⊆ (𝑀‘(𝑋 ∨ 𝑄)))
94	66, 67, 5, 93	syl3anc 1392	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → ((𝑀‘𝑋) + (𝑀‘𝑄)) ⊆ (𝑀‘(𝑋 ∨ 𝑄)))
95	94	adantr 484	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) → ((𝑀‘𝑋) + (𝑀‘𝑄)) ⊆ (𝑀‘(𝑋 ∨ 𝑄)))
96	92, 95	eqssd 3955	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) ∧ 𝑋 ≠ (0.‘𝐾)) → (𝑀‘(𝑋 ∨ 𝑄)) = ((𝑀‘𝑋) + (𝑀‘𝑄)))
97	29, 96	pm2.61dane 3046	1 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐴) → (𝑀‘(𝑋 ∨ 𝑄)) = ((𝑀‘𝑋) + (𝑀‘𝑄)))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 399   ∧ w3a 1099   = wceq 1562  ∃wex 1801   ∈ wcel 2144   ≠ wne 2959  ∃wrex 3088   ⊆ wss 3906  ∅c0 4287   class class class wbr 5102  ‘cfv 6523  (class class class)co 7398  Basecbs 17247  lecple 17295  joincjn 18345  0.cp0 18455  Latclat 18465  OLcol 39803  Atomscatm 39892  AtLatcal 39893  HLchlt 39979  pmapcpmap 40126  +_𝑃cpadd 40424

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1817  ax-4 1831  ax-5 1932  ax-6 1989  ax-7 2030  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2214  ax-ext 2736  ax-rep 5229  ax-sep 5248  ax-nul 5258  ax-pow 5324  ax-pr 5392  ax-un 7720

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1101  df-tru 1565  df-fal 1575  df-ex 1802  df-nf 1806  df-sb 2093  df-mo 2568  df-eu 2598  df-clab 2743  df-cleq 2756  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3079  df-rex 3089  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3458  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4288  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5103  df-opab 5165  df-mpt 5184  df-id 5544  df-xp 5655  df-rel 5656  df-cnv 5657  df-co 5658  df-dm 5659  df-rn 5660  df-res 5661  df-ima 5662  df-iota 6479  df-fun 6525  df-fn 6526  df-f 6527  df-f1 6528  df-fo 6529  df-f1o 6530  df-fv 6531  df-riota 7355  df-ov 7401  df-oprab 7402  df-mpo 7403  df-1st 7972  df-2nd 7973  df-proset 18328  df-poset 18347  df-plt 18362  df-lub 18378  df-glb 18379  df-join 18380  df-meet 18381  df-p0 18457  df-lat 18466  df-clat 18533  df-oposet 39805  df-ol 39807  df-oml 39808  df-covers 39895  df-ats 39896  df-atl 39927  df-cvlat 39951  df-hlat 39980  df-pmap 40133  df-padd 40425

This theorem is referenced by:  pmapjat2  40483  pmapjlln1  40484  atmod1i2  40488  paddatclN  40578