Theorem atlatmstc 39820

Description: An atomic, complete, orthomodular lattice is atomistic i.e. every element is the join of the atoms under it. See remark before Proposition 1 in [Kalmbach] p. 140; also remark in [BeltramettiCassinelli] p. 98. (hatomistici 32452 analog.) (Contributed by NM, 5-Nov-2012.)

Hypotheses

Ref	Expression
atlatmstc.b	⊢ 𝐵 = (Base‘𝐾)
atlatmstc.l	⊢ ≤ = (le‘𝐾)
atlatmstc.u	⊢ 1 = (lub‘𝐾)
atlatmstc.a	⊢ 𝐴 = (Atoms‘𝐾)

Assertion

Ref	Expression
atlatmstc	⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) = 𝑋)

Distinct variable groups:   𝑦, ≤   𝑦,𝐴   𝑦,𝐵   𝑦,𝑋

Allowed substitution hints:   1 (𝑦)   𝐾(𝑦)

Proof of Theorem atlatmstc

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl2 1199	. . . 4 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → 𝐾 ∈ CLat)
2		ssrab2 4012	. . . . 5 ⊢ {𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋} ⊆ 𝐵
3		atlatmstc.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐾)
4		atlatmstc.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
5	3, 4	atssbase 39791	. . . . . 6 ⊢ 𝐴 ⊆ 𝐵
6		rabss2 4009	. . . . . 6 ⊢ (𝐴 ⊆ 𝐵 → {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ {𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋})
7	5, 6	ax-mp 5	. . . . 5 ⊢ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ {𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}
8		atlatmstc.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
9		atlatmstc.u	. . . . . 6 ⊢ 1 = (lub‘𝐾)
10	3, 8, 9	lubss 18471	. . . . 5 ⊢ ((𝐾 ∈ CLat ∧ {𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋} ⊆ 𝐵 ∧ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ {𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ≤ ( 1 ‘{𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}))
11	2, 7, 10	mp3an23 1461	. . . 4 ⊢ (𝐾 ∈ CLat → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ≤ ( 1 ‘{𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}))
12	1, 11	syl 17	. . 3 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ≤ ( 1 ‘{𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}))
13		atlpos 39802	. . . . 5 ⊢ (𝐾 ∈ AtLat → 𝐾 ∈ Poset)
14	13	3ad2ant3 1141	. . . 4 ⊢ ((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) → 𝐾 ∈ Poset)
15		simpl 483	. . . . 5 ⊢ ((𝐾 ∈ Poset ∧ 𝑋 ∈ 𝐵) → 𝐾 ∈ Poset)
16		simpr 485	. . . . 5 ⊢ ((𝐾 ∈ Poset ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ 𝐵)
17	3, 8, 9, 15, 16	lubid 18318	. . . 4 ⊢ ((𝐾 ∈ Poset ∧ 𝑋 ∈ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}) = 𝑋)
18	14, 17	sylan 586	. . 3 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}) = 𝑋)
19	12, 18	breqtrd 5099	. 2 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ≤ 𝑋)
20		breq1 5076	. . . . . . . . . 10 ⊢ (𝑦 = 𝑥 → (𝑦 ≤ 𝑋 ↔ 𝑥 ≤ 𝑋))
21	20	elrab 3629	. . . . . . . . 9 ⊢ (𝑥 ∈ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ↔ (𝑥 ∈ 𝐴 ∧ 𝑥 ≤ 𝑋))
22		simpll2 1220	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) → 𝐾 ∈ CLat)
23		ssrab2 4012	. . . . . . . . . . . . 13 ⊢ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ 𝐴
24	23, 5	sstri 3924	. . . . . . . . . . . 12 ⊢ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ 𝐵
25	3, 8, 9	lubel 18472	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ CLat ∧ 𝑥 ∈ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ∧ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ 𝐵) → 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))
26	24, 25	mp3an3 1458	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ CLat ∧ 𝑥 ∈ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) → 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))
27	22, 26	sylancom 594	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) → 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))
28	27	ex 413	. . . . . . . . 9 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → (𝑥 ∈ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} → 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))
29	21, 28	biimtrrid 244	. . . . . . . 8 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ((𝑥 ∈ 𝐴 ∧ 𝑥 ≤ 𝑋) → 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))
30	29	expdimp 453	. . . . . . 7 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → (𝑥 ≤ 𝑋 → 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))
31		simpll3 1221	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → 𝐾 ∈ AtLat)
32		eqid 2739	. . . . . . . . . . . 12 ⊢ (0.‘𝐾) = (0.‘𝐾)
33	32, 4	atn0 39809	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ AtLat ∧ 𝑥 ∈ 𝐴) → 𝑥 ≠ (0.‘𝐾))
34	31, 33	sylancom 594	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → 𝑥 ≠ (0.‘𝐾))
35	34	adantr 481	. . . . . . . . 9 ⊢ (((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) ∧ 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) → 𝑥 ≠ (0.‘𝐾))
36		simpl3 1200	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → 𝐾 ∈ AtLat)
37		atllat 39801	. . . . . . . . . . . . . . . 16 ⊢ (𝐾 ∈ AtLat → 𝐾 ∈ Lat)
38	36, 37	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → 𝐾 ∈ Lat)
39	38	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → 𝐾 ∈ Lat)
40	3, 4	atbase 39790	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ 𝐴 → 𝑥 ∈ 𝐵)
41	40	adantl 482	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ 𝐵)
42	3, 9	clatlubcl 18461	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ CLat ∧ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵)
43	1, 24, 42	sylancl 592	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵)
44	43	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵)
45		simpl1 1198	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → 𝐾 ∈ OML)
46		omlop 39742	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ OML → 𝐾 ∈ OP)
47	45, 46	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → 𝐾 ∈ OP)
48		eqid 2739	. . . . . . . . . . . . . . . . 17 ⊢ (oc‘𝐾) = (oc‘𝐾)
49	3, 48	opoccl 39695	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ OP ∧ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵) → ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) ∈ 𝐵)
50	47, 43, 49	syl2anc 590	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) ∈ 𝐵)
51	50	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) ∈ 𝐵)
52		eqid 2739	. . . . . . . . . . . . . . 15 ⊢ (meet‘𝐾) = (meet‘𝐾)
53	3, 8, 52	latlem12 18424	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ Lat ∧ (𝑥 ∈ 𝐵 ∧ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵 ∧ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) ∈ 𝐵)) → ((𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 ≤ (( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))))
54	39, 41, 44, 51, 53	syl13anc 1380	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ((𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 ≤ (( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))))
55	3, 48, 52, 32	opnoncon 39709	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ OP ∧ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵) → (( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) = (0.‘𝐾))
56	47, 43, 55	syl2anc 590	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → (( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) = (0.‘𝐾))
57	56	breq2d 5085	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → (𝑥 ≤ (( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 ≤ (0.‘𝐾)))
58	57	adantr 481	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → (𝑥 ≤ (( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 ≤ (0.‘𝐾)))
59	3, 8, 32	ople0 39688	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ OP ∧ 𝑥 ∈ 𝐵) → (𝑥 ≤ (0.‘𝐾) ↔ 𝑥 = (0.‘𝐾)))
60	47, 40, 59	syl2an 602	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → (𝑥 ≤ (0.‘𝐾) ↔ 𝑥 = (0.‘𝐾)))
61	54, 58, 60	3bitrd 306	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ((𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 = (0.‘𝐾)))
62	61	biimpa 477	. . . . . . . . . . 11 ⊢ (((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) ∧ (𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))) → 𝑥 = (0.‘𝐾))
63	62	expr 457	. . . . . . . . . 10 ⊢ (((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) ∧ 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) → (𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) → 𝑥 = (0.‘𝐾)))
64	63	necon3ad 2947	. . . . . . . . 9 ⊢ (((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) ∧ 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) → (𝑥 ≠ (0.‘𝐾) → ¬ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
65	35, 64	mpd 15	. . . . . . . 8 ⊢ (((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) ∧ 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) → ¬ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))
66	65	ex 413	. . . . . . 7 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → (𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) → ¬ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
67	30, 66	syld 47	. . . . . 6 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → (𝑥 ≤ 𝑋 → ¬ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
68		imnan 400	. . . . . 6 ⊢ ((𝑥 ≤ 𝑋 → ¬ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ ¬ (𝑥 ≤ 𝑋 ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
69	67, 68	sylib 219	. . . . 5 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ¬ (𝑥 ≤ 𝑋 ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
70		simplr 774	. . . . . 6 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → 𝑋 ∈ 𝐵)
71	3, 8, 52	latlem12 18424	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑥 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) ∈ 𝐵)) → ((𝑥 ≤ 𝑋 ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))))
72	39, 41, 70, 51, 71	syl13anc 1380	. . . . 5 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ((𝑥 ≤ 𝑋 ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))))
73	69, 72	mtbid 325	. . . 4 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ¬ 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
74	73	nrexdv 3134	. . 3 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ¬ ∃𝑥 ∈ 𝐴 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
75		simpll3 1221	. . . . . 6 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾)) → 𝐾 ∈ AtLat)
76		simpr 485	. . . . . . . 8 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ 𝐵)
77	3, 52	latmcl 18398	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) ∈ 𝐵) → (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ∈ 𝐵)
78	38, 76, 50, 77	syl3anc 1379	. . . . . . 7 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ∈ 𝐵)
79	78	adantr 481	. . . . . 6 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾)) → (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ∈ 𝐵)
80		simpr 485	. . . . . 6 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾)) → (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾))
81	3, 8, 32, 4	atlex 39817	. . . . . 6 ⊢ ((𝐾 ∈ AtLat ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ∈ 𝐵 ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾)) → ∃𝑥 ∈ 𝐴 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
82	75, 79, 80, 81	syl3anc 1379	. . . . 5 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾)) → ∃𝑥 ∈ 𝐴 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
83	82	ex 413	. . . 4 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ((𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾) → ∃𝑥 ∈ 𝐴 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))))
84	83	necon1bd 2952	. . 3 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → (¬ ∃𝑥 ∈ 𝐴 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) → (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) = (0.‘𝐾)))
85	74, 84	mpd 15	. 2 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) = (0.‘𝐾))
86	3, 8, 52, 48, 32	omllaw3 39746	. . 3 ⊢ ((𝐾 ∈ OML ∧ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → ((( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ≤ 𝑋 ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) = (0.‘𝐾)) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) = 𝑋))
87	45, 43, 76, 86	syl3anc 1379	. 2 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ((( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ≤ 𝑋 ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) = (0.‘𝐾)) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) = 𝑋))
88	19, 85, 87	mp2and 705	1 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) = 𝑋)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1092   = wceq 1547   ∈ wcel 2119   ≠ wne 2934  ∃wrex 3063  {crab 3391   ⊆ wss 3883   class class class wbr 5073  ‘cfv 6486  (class class class)co 7357  Basecbs 17171  lecple 17219  occoc 17220  Posetcpo 18265  lubclub 18267  meetcmee 18270  0.cp0 18379  Latclat 18389  CLatccla 18456  OPcops 39673  OMLcoml 39676  Atomscatm 39764  AtLatcal 39765

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5200  ax-sep 5219  ax-nul 5229  ax-pow 5295  ax-pr 5363  ax-un 7679

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4263  df-if 4456  df-pw 4532  df-sn 4557  df-pr 4559  df-op 4563  df-uni 4840  df-iun 4924  df-br 5074  df-opab 5136  df-mpt 5155  df-id 5514  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-riota 7314  df-ov 7360  df-oprab 7361  df-proset 18252  df-poset 18271  df-plt 18286  df-lub 18302  df-glb 18303  df-join 18304  df-meet 18305  df-p0 18381  df-lat 18390  df-clat 18457  df-oposet 39677  df-ol 39679  df-oml 39680  df-covers 39767  df-ats 39768  df-atl 39799

This theorem is referenced by:  atlatle  39821  hlatmstcOLDN  39898  pmaple  40262  pol1N  40411  polpmapN  40413  pmaplubN  40425