Theorem leatb 40615

Description: A poset element less than or equal to an atom equals either zero or the atom. (atss 33005 analog.) (Contributed by NM, 17-Nov-2011.)

Hypotheses

Ref	Expression
leatom.b	⊢ 𝐵 = (Base‘𝐾)
leatom.l	⊢ ≤ = (le‘𝐾)
leatom.z	⊢ 0 = (0.‘𝐾)
leatom.a	⊢ 𝐴 = (Atoms‘𝐾)

Assertion

Ref	Expression
leatb	⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴) → (𝑋 ≤ 𝑃 ↔ (𝑋 = 𝑃 ∨ 𝑋 = 0 )))

Proof of Theorem leatb

Step	Hyp	Ref	Expression
1		leatom.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐾)
2		leatom.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
3		leatom.z	. . . . . 6 ⊢ 0 = (0.‘𝐾)
4	1, 2, 3	op0le 40509	. . . . 5 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵) → 0 ≤ 𝑋)
5	4	3adant3 1150	. . . 4 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴) → 0 ≤ 𝑋)
6	5	biantrurd 542	. . 3 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴) → (𝑋 ≤ 𝑃 ↔ ( 0 ≤ 𝑋 ∧ 𝑋 ≤ 𝑃)))
7		opposet 40504	. . . . . 6 ⊢ (𝐾 ∈ OP → 𝐾 ∈ Poset)
8	7	3ad2ant1 1151	. . . . 5 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴) → 𝐾 ∈ Poset)
9	1, 3	op0cl 40507	. . . . . . 7 ⊢ (𝐾 ∈ OP → 0 ∈ 𝐵)
10		leatom.a	. . . . . . . 8 ⊢ 𝐴 = (Atoms‘𝐾)
11	1, 10	atbase 40612	. . . . . . 7 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ 𝐵)
12		id 23	. . . . . . 7 ⊢ (𝑋 ∈ 𝐵 → 𝑋 ∈ 𝐵)
13	9, 11, 12	3anim123i 1169	. . . . . 6 ⊢ ((𝐾 ∈ OP ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → ( 0 ∈ 𝐵 ∧ 𝑃 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵))
14	13	3com23 1144	. . . . 5 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴) → ( 0 ∈ 𝐵 ∧ 𝑃 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵))
15		eqid 2763	. . . . . . 7 ⊢ ( ⋖ ‘𝐾) = ( ⋖ ‘𝐾)
16	3, 15, 10	atcvr0 40611	. . . . . 6 ⊢ ((𝐾 ∈ OP ∧ 𝑃 ∈ 𝐴) → 0 ( ⋖ ‘𝐾)𝑃)
17	16	3adant2 1149	. . . . 5 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴) → 0 ( ⋖ ‘𝐾)𝑃)
18	1, 2, 15	cvrnbtwn4 40602	. . . . 5 ⊢ ((𝐾 ∈ Poset ∧ ( 0 ∈ 𝐵 ∧ 𝑃 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) ∧ 0 ( ⋖ ‘𝐾)𝑃) → (( 0 ≤ 𝑋 ∧ 𝑋 ≤ 𝑃) ↔ ( 0 = 𝑋 ∨ 𝑋 = 𝑃)))
19	8, 14, 17, 18	syl3anc 1399	. . . 4 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴) → (( 0 ≤ 𝑋 ∧ 𝑋 ≤ 𝑃) ↔ ( 0 = 𝑋 ∨ 𝑋 = 𝑃)))
20		eqcom 2770	. . . . 5 ⊢ ( 0 = 𝑋 ↔ 𝑋 = 0 )
21	20	orbi1i 927	. . . 4 ⊢ (( 0 = 𝑋 ∨ 𝑋 = 𝑃) ↔ (𝑋 = 0 ∨ 𝑋 = 𝑃))
22	19, 21	bitrdi 290	. . 3 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴) → (( 0 ≤ 𝑋 ∧ 𝑋 ≤ 𝑃) ↔ (𝑋 = 0 ∨ 𝑋 = 𝑃)))
23	6, 22	bitrd 282	. 2 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴) → (𝑋 ≤ 𝑃 ↔ (𝑋 = 0 ∨ 𝑋 = 𝑃)))
24		orcom 884	. 2 ⊢ ((𝑋 = 0 ∨ 𝑋 = 𝑃) ↔ (𝑋 = 𝑃 ∨ 𝑋 = 0 ))
25	23, 24	bitrdi 290	1 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴) → (𝑋 ≤ 𝑃 ↔ (𝑋 = 𝑃 ∨ 𝑋 = 0 )))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147   class class class wbr 5108  ‘cfv 6566  Basecbs 17431  lecple 17479  Posetcpo 18531  0.cp0 18645  OPcops 40495   ⋖ ccvr 40585  Atomscatm 40586

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5238  ax-sep 5255  ax-nul 5266  ax-pow 5334  ax-pr 5398  ax-un 7783

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4841  df-uni 4873  df-iun 4958  df-br 5109  df-opab 5174  df-mpt 5193  df-id 5553  df-xp 5664  df-rel 5665  df-cnv 5666  df-co 5667  df-dm 5668  df-rn 5669  df-res 5670  df-ima 5671  df-iota 6520  df-fun 6568  df-fn 6569  df-f 6570  df-f1 6571  df-fo 6572  df-f1o 6573  df-fv 6574  df-riota 7408  df-ov 7454  df-proset 18518  df-poset 18537  df-plt 18552  df-glb 18569  df-p0 18647  df-oposet 40499  df-covers 40589  df-ats 40590

This theorem is used by:  leat  40616  leat2  40617  meetat  40619