Theorem atlatmstc 39944

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 32566 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 1207	. . . 4 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → 𝐾 ∈ CLat)
2		ssrab2 4034	. . . . 5 ⊢ {𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋} ⊆ 𝐵
3		atlatmstc.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐾)
4		atlatmstc.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
5	3, 4	atssbase 39915	. . . . . 6 ⊢ 𝐴 ⊆ 𝐵
6		rabss2 4031	. . . . . 6 ⊢ (𝐴 ⊆ 𝐵 → {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ {𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋})
7	5, 6	ax-mp 5	. . . . 5 ⊢ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ {𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}
8		atlatmstc.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
9		atlatmstc.u	. . . . . 6 ⊢ 1 = (lub‘𝐾)
10	3, 8, 9	lubss 18546	. . . . 5 ⊢ ((𝐾 ∈ CLat ∧ {𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋} ⊆ 𝐵 ∧ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ {𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ≤ ( 1 ‘{𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}))
11	2, 7, 10	mp3an23 1475	. . . 4 ⊢ (𝐾 ∈ CLat → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ≤ ( 1 ‘{𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}))
12	1, 11	syl 17	. . 3 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ≤ ( 1 ‘{𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}))
13		atlpos 39926	. . . . 5 ⊢ (𝐾 ∈ AtLat → 𝐾 ∈ Poset)
14	13	3ad2ant3 1149	. . . 4 ⊢ ((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) → 𝐾 ∈ Poset)
15		simpl 486	. . . . 5 ⊢ ((𝐾 ∈ Poset ∧ 𝑋 ∈ 𝐵) → 𝐾 ∈ Poset)
16		simpr 488	. . . . 5 ⊢ ((𝐾 ∈ Poset ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ 𝐵)
17	3, 8, 9, 15, 16	lubid 18393	. . . 4 ⊢ ((𝐾 ∈ Poset ∧ 𝑋 ∈ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}) = 𝑋)
18	14, 17	sylan 589	. . 3 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐵 ∣ 𝑦 ≤ 𝑋}) = 𝑋)
19	12, 18	breqtrd 5127	. 2 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ≤ 𝑋)
20		breq1 5104	. . . . . . . . . 10 ⊢ (𝑦 = 𝑥 → (𝑦 ≤ 𝑋 ↔ 𝑥 ≤ 𝑋))
21	20	elrab 3651	. . . . . . . . 9 ⊢ (𝑥 ∈ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ↔ (𝑥 ∈ 𝐴 ∧ 𝑥 ≤ 𝑋))
22		simpll2 1228	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) → 𝐾 ∈ CLat)
23		ssrab2 4034	. . . . . . . . . . . . 13 ⊢ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ 𝐴
24	23, 5	sstri 3946	. . . . . . . . . . . 12 ⊢ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ 𝐵
25	3, 8, 9	lubel 18547	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ CLat ∧ 𝑥 ∈ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ∧ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ 𝐵) → 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))
26	24, 25	mp3an3 1472	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ CLat ∧ 𝑥 ∈ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) → 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))
27	22, 26	sylancom 597	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) → 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))
28	27	ex 416	. . . . . . . . 9 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → (𝑥 ∈ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} → 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))
29	21, 28	biimtrrid 245	. . . . . . . 8 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ((𝑥 ∈ 𝐴 ∧ 𝑥 ≤ 𝑋) → 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))
30	29	expdimp 456	. . . . . . 7 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → (𝑥 ≤ 𝑋 → 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))
31		simpll3 1229	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → 𝐾 ∈ AtLat)
32		eqid 2763	. . . . . . . . . . . 12 ⊢ (0.‘𝐾) = (0.‘𝐾)
33	32, 4	atn0 39933	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ AtLat ∧ 𝑥 ∈ 𝐴) → 𝑥 ≠ (0.‘𝐾))
34	31, 33	sylancom 597	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → 𝑥 ≠ (0.‘𝐾))
35	34	adantr 484	. . . . . . . . 9 ⊢ (((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) ∧ 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) → 𝑥 ≠ (0.‘𝐾))
36		simpl3 1208	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → 𝐾 ∈ AtLat)
37		atllat 39925	. . . . . . . . . . . . . . . 16 ⊢ (𝐾 ∈ AtLat → 𝐾 ∈ Lat)
38	36, 37	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → 𝐾 ∈ Lat)
39	38	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → 𝐾 ∈ Lat)
40	3, 4	atbase 39914	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ 𝐴 → 𝑥 ∈ 𝐵)
41	40	adantl 485	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ 𝐵)
42	3, 9	clatlubcl 18536	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ CLat ∧ {𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋} ⊆ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵)
43	1, 24, 42	sylancl 595	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵)
44	43	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵)
45		simpl1 1206	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → 𝐾 ∈ OML)
46		omlop 39866	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ OML → 𝐾 ∈ OP)
47	45, 46	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → 𝐾 ∈ OP)
48		eqid 2763	. . . . . . . . . . . . . . . . 17 ⊢ (oc‘𝐾) = (oc‘𝐾)
49	3, 48	opoccl 39819	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ OP ∧ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵) → ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) ∈ 𝐵)
50	47, 43, 49	syl2anc 593	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) ∈ 𝐵)
51	50	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) ∈ 𝐵)
52		eqid 2763	. . . . . . . . . . . . . . 15 ⊢ (meet‘𝐾) = (meet‘𝐾)
53	3, 8, 52	latlem12 18499	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ Lat ∧ (𝑥 ∈ 𝐵 ∧ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵 ∧ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) ∈ 𝐵)) → ((𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 ≤ (( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))))
54	39, 41, 44, 51, 53	syl13anc 1392	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ((𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 ≤ (( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))))
55	3, 48, 52, 32	opnoncon 39833	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ OP ∧ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵) → (( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) = (0.‘𝐾))
56	47, 43, 55	syl2anc 593	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → (( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) = (0.‘𝐾))
57	56	breq2d 5113	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → (𝑥 ≤ (( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 ≤ (0.‘𝐾)))
58	57	adantr 484	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → (𝑥 ≤ (( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 ≤ (0.‘𝐾)))
59	3, 8, 32	ople0 39812	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ OP ∧ 𝑥 ∈ 𝐵) → (𝑥 ≤ (0.‘𝐾) ↔ 𝑥 = (0.‘𝐾)))
60	47, 40, 59	syl2an 605	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → (𝑥 ≤ (0.‘𝐾) ↔ 𝑥 = (0.‘𝐾)))
61	54, 58, 60	3bitrd 307	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ((𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 = (0.‘𝐾)))
62	61	biimpa 480	. . . . . . . . . . 11 ⊢ (((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) ∧ (𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))) → 𝑥 = (0.‘𝐾))
63	62	expr 460	. . . . . . . . . 10 ⊢ (((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) ∧ 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) → (𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) → 𝑥 = (0.‘𝐾)))
64	63	necon3ad 2971	. . . . . . . . 9 ⊢ (((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) ∧ 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) → (𝑥 ≠ (0.‘𝐾) → ¬ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
65	35, 64	mpd 15	. . . . . . . 8 ⊢ (((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) ∧ 𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) → ¬ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))
66	65	ex 416	. . . . . . 7 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → (𝑥 ≤ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) → ¬ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
67	30, 66	syld 47	. . . . . 6 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → (𝑥 ≤ 𝑋 → ¬ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
68		imnan 403	. . . . . 6 ⊢ ((𝑥 ≤ 𝑋 → ¬ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ ¬ (𝑥 ≤ 𝑋 ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
69	67, 68	sylib 220	. . . . 5 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ¬ (𝑥 ≤ 𝑋 ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
70		simplr 778	. . . . . 6 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → 𝑋 ∈ 𝐵)
71	3, 8, 52	latlem12 18499	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑥 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) ∈ 𝐵)) → ((𝑥 ≤ 𝑋 ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))))
72	39, 41, 70, 51, 71	syl13anc 1392	. . . . 5 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ((𝑥 ≤ 𝑋 ∧ 𝑥 ≤ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ↔ 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))))
73	69, 72	mtbid 326	. . . 4 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ 𝑥 ∈ 𝐴) → ¬ 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
74	73	nrexdv 3158	. . 3 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ¬ ∃𝑥 ∈ 𝐴 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
75		simpll3 1229	. . . . . 6 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾)) → 𝐾 ∈ AtLat)
76		simpr 488	. . . . . . . 8 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ 𝐵)
77	3, 52	latmcl 18473	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ ((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})) ∈ 𝐵) → (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ∈ 𝐵)
78	38, 76, 50, 77	syl3anc 1391	. . . . . . 7 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ∈ 𝐵)
79	78	adantr 484	. . . . . 6 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾)) → (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ∈ 𝐵)
80		simpr 488	. . . . . 6 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾)) → (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾))
81	3, 8, 32, 4	atlex 39941	. . . . . 6 ⊢ ((𝐾 ∈ AtLat ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ∈ 𝐵 ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾)) → ∃𝑥 ∈ 𝐴 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
82	75, 79, 80, 81	syl3anc 1391	. . . . 5 ⊢ ((((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾)) → ∃𝑥 ∈ 𝐴 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))))
83	82	ex 416	. . . 4 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ((𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) ≠ (0.‘𝐾) → ∃𝑥 ∈ 𝐴 𝑥 ≤ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋})))))
84	83	necon1bd 2976	. . 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 39870	. . 3 ⊢ ((𝐾 ∈ OML ∧ ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → ((( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ≤ 𝑋 ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) = (0.‘𝐾)) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) = 𝑋))
87	45, 43, 76, 86	syl3anc 1391	. 2 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ((( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) ≤ 𝑋 ∧ (𝑋(meet‘𝐾)((oc‘𝐾)‘( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}))) = (0.‘𝐾)) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) = 𝑋))
88	19, 85, 87	mp2and 709	1 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ 𝑋 ∈ 𝐵) → ( 1 ‘{𝑦 ∈ 𝐴 ∣ 𝑦 ≤ 𝑋}) = 𝑋)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 399   ∧ w3a 1099   = wceq 1561   ∈ wcel 2143   ≠ wne 2958  ∃wrex 3087  {crab 3415   ⊆ wss 3905   class class class wbr 5101  ‘cfv 6522  (class class class)co 7397  Basecbs 17246  lecple 17294  occoc 17295  Posetcpo 18340  lubclub 18342  meetcmee 18345  0.cp0 18454  Latclat 18464  CLatccla 18531  OPcops 39797  OMLcoml 39800  Atomscatm 39888  AtLatcal 39889

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1816  ax-4 1830  ax-5 1931  ax-6 1988  ax-7 2029  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5228  ax-sep 5247  ax-nul 5257  ax-pow 5323  ax-pr 5391  ax-un 7719

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1101  df-tru 1564  df-fal 1574  df-ex 1801  df-nf 1805  df-sb 2092  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3078  df-rex 3088  df-rmo 3368  df-reu 3369  df-rab 3416  df-v 3457  df-sbc 3746  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-iun 4952  df-br 5102  df-opab 5164  df-mpt 5183  df-id 5543  df-xp 5654  df-rel 5655  df-cnv 5656  df-co 5657  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-iota 6478  df-fun 6524  df-fn 6525  df-f 6526  df-f1 6527  df-fo 6528  df-f1o 6529  df-fv 6530  df-riota 7354  df-ov 7400  df-oprab 7401  df-proset 18327  df-poset 18346  df-plt 18361  df-lub 18377  df-glb 18378  df-join 18379  df-meet 18380  df-p0 18456  df-lat 18465  df-clat 18532  df-oposet 39801  df-ol 39803  df-oml 39804  df-covers 39891  df-ats 39892  df-atl 39923

This theorem is referenced by:  atlatle  39945  hlatmstcOLDN  40022  pmaple  40386  pol1N  40535  polpmapN  40537  pmaplubN  40549