Mathbox for Norm Megill < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  isat3 Structured version   Visualization version   GIF version

Theorem isat3 36596
 Description: The predicate "is an atom". (elat2 30126 analog.) (Contributed by NM, 27-Apr-2014.)
Hypotheses
Ref Expression
isat3.b 𝐵 = (Base‘𝐾)
isat3.l = (le‘𝐾)
isat3.z 0 = (0.‘𝐾)
isat3.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
isat3 (𝐾 ∈ AtLat → (𝑃𝐴 ↔ (𝑃𝐵𝑃0 ∧ ∀𝑥𝐵 (𝑥 𝑃 → (𝑥 = 𝑃𝑥 = 0 )))))
Distinct variable groups:   𝑥,𝐵   𝑥,𝐾   𝑥,𝑃   𝑥, 0
Allowed substitution hints:   𝐴(𝑥)   (𝑥)

Proof of Theorem isat3
StepHypRef Expression
1 isat3.b . . . 4 𝐵 = (Base‘𝐾)
2 isat3.z . . . 4 0 = (0.‘𝐾)
3 eqid 2801 . . . 4 ( ⋖ ‘𝐾) = ( ⋖ ‘𝐾)
4 isat3.a . . . 4 𝐴 = (Atoms‘𝐾)
51, 2, 3, 4isat 36575 . . 3 (𝐾 ∈ AtLat → (𝑃𝐴 ↔ (𝑃𝐵0 ( ⋖ ‘𝐾)𝑃)))
6 simpl 486 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑃𝐵) → 𝐾 ∈ AtLat)
71, 2atl0cl 36592 . . . . . . 7 (𝐾 ∈ AtLat → 0𝐵)
87adantr 484 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑃𝐵) → 0𝐵)
9 simpr 488 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑃𝐵) → 𝑃𝐵)
10 isat3.l . . . . . . 7 = (le‘𝐾)
11 eqid 2801 . . . . . . 7 (lt‘𝐾) = (lt‘𝐾)
121, 10, 11, 3cvrval2 36563 . . . . . 6 ((𝐾 ∈ AtLat ∧ 0𝐵𝑃𝐵) → ( 0 ( ⋖ ‘𝐾)𝑃 ↔ ( 0 (lt‘𝐾)𝑃 ∧ ∀𝑥𝐵 (( 0 (lt‘𝐾)𝑥𝑥 𝑃) → 𝑥 = 𝑃))))
136, 8, 9, 12syl3anc 1368 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑃𝐵) → ( 0 ( ⋖ ‘𝐾)𝑃 ↔ ( 0 (lt‘𝐾)𝑃 ∧ ∀𝑥𝐵 (( 0 (lt‘𝐾)𝑥𝑥 𝑃) → 𝑥 = 𝑃))))
141, 11, 2atlltn0 36595 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑃𝐵) → ( 0 (lt‘𝐾)𝑃𝑃0 ))
151, 11, 2atlltn0 36595 . . . . . . . . . . 11 ((𝐾 ∈ AtLat ∧ 𝑥𝐵) → ( 0 (lt‘𝐾)𝑥𝑥0 ))
1615adantlr 714 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑃𝐵) ∧ 𝑥𝐵) → ( 0 (lt‘𝐾)𝑥𝑥0 ))
1716imbi1d 345 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑃𝐵) ∧ 𝑥𝐵) → (( 0 (lt‘𝐾)𝑥𝑥 = 𝑃) ↔ (𝑥0𝑥 = 𝑃)))
1817imbi2d 344 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑃𝐵) ∧ 𝑥𝐵) → ((𝑥 𝑃 → ( 0 (lt‘𝐾)𝑥𝑥 = 𝑃)) ↔ (𝑥 𝑃 → (𝑥0𝑥 = 𝑃))))
19 impexp 454 . . . . . . . . 9 ((( 0 (lt‘𝐾)𝑥𝑥 𝑃) → 𝑥 = 𝑃) ↔ ( 0 (lt‘𝐾)𝑥 → (𝑥 𝑃𝑥 = 𝑃)))
20 bi2.04 392 . . . . . . . . 9 (( 0 (lt‘𝐾)𝑥 → (𝑥 𝑃𝑥 = 𝑃)) ↔ (𝑥 𝑃 → ( 0 (lt‘𝐾)𝑥𝑥 = 𝑃)))
2119, 20bitri 278 . . . . . . . 8 ((( 0 (lt‘𝐾)𝑥𝑥 𝑃) → 𝑥 = 𝑃) ↔ (𝑥 𝑃 → ( 0 (lt‘𝐾)𝑥𝑥 = 𝑃)))
22 orcom 867 . . . . . . . . . 10 ((𝑥 = 𝑃𝑥 = 0 ) ↔ (𝑥 = 0𝑥 = 𝑃))
23 neor 3081 . . . . . . . . . 10 ((𝑥 = 0𝑥 = 𝑃) ↔ (𝑥0𝑥 = 𝑃))
2422, 23bitri 278 . . . . . . . . 9 ((𝑥 = 𝑃𝑥 = 0 ) ↔ (𝑥0𝑥 = 𝑃))
2524imbi2i 339 . . . . . . . 8 ((𝑥 𝑃 → (𝑥 = 𝑃𝑥 = 0 )) ↔ (𝑥 𝑃 → (𝑥0𝑥 = 𝑃)))
2618, 21, 253bitr4g 317 . . . . . . 7 (((𝐾 ∈ AtLat ∧ 𝑃𝐵) ∧ 𝑥𝐵) → ((( 0 (lt‘𝐾)𝑥𝑥 𝑃) → 𝑥 = 𝑃) ↔ (𝑥 𝑃 → (𝑥 = 𝑃𝑥 = 0 ))))
2726ralbidva 3164 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑃𝐵) → (∀𝑥𝐵 (( 0 (lt‘𝐾)𝑥𝑥 𝑃) → 𝑥 = 𝑃) ↔ ∀𝑥𝐵 (𝑥 𝑃 → (𝑥 = 𝑃𝑥 = 0 ))))
2814, 27anbi12d 633 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑃𝐵) → (( 0 (lt‘𝐾)𝑃 ∧ ∀𝑥𝐵 (( 0 (lt‘𝐾)𝑥𝑥 𝑃) → 𝑥 = 𝑃)) ↔ (𝑃0 ∧ ∀𝑥𝐵 (𝑥 𝑃 → (𝑥 = 𝑃𝑥 = 0 )))))
2913, 28bitr2d 283 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑃𝐵) → ((𝑃0 ∧ ∀𝑥𝐵 (𝑥 𝑃 → (𝑥 = 𝑃𝑥 = 0 ))) ↔ 0 ( ⋖ ‘𝐾)𝑃))
3029pm5.32da 582 . . 3 (𝐾 ∈ AtLat → ((𝑃𝐵 ∧ (𝑃0 ∧ ∀𝑥𝐵 (𝑥 𝑃 → (𝑥 = 𝑃𝑥 = 0 )))) ↔ (𝑃𝐵0 ( ⋖ ‘𝐾)𝑃)))
315, 30bitr4d 285 . 2 (𝐾 ∈ AtLat → (𝑃𝐴 ↔ (𝑃𝐵 ∧ (𝑃0 ∧ ∀𝑥𝐵 (𝑥 𝑃 → (𝑥 = 𝑃𝑥 = 0 ))))))
32 3anass 1092 . 2 ((𝑃𝐵𝑃0 ∧ ∀𝑥𝐵 (𝑥 𝑃 → (𝑥 = 𝑃𝑥 = 0 ))) ↔ (𝑃𝐵 ∧ (𝑃0 ∧ ∀𝑥𝐵 (𝑥 𝑃 → (𝑥 = 𝑃𝑥 = 0 )))))
3331, 32syl6bbr 292 1 (𝐾 ∈ AtLat → (𝑃𝐴 ↔ (𝑃𝐵𝑃0 ∧ ∀𝑥𝐵 (𝑥 𝑃 → (𝑥 = 𝑃𝑥 = 0 )))))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399   ∨ wo 844   ∧ w3a 1084   = wceq 1538   ∈ wcel 2112   ≠ wne 2990  ∀wral 3109   class class class wbr 5033  ‘cfv 6328  Basecbs 16478  lecple 16567  ltcplt 17546  0.cp0 17642   ⋖ ccvr 36551  Atomscatm 36552  AtLatcal 36553 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2159  ax-12 2176  ax-ext 2773  ax-rep 5157  ax-sep 5170  ax-nul 5177  ax-pow 5234  ax-pr 5298  ax-un 7445 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2601  df-eu 2632  df-clab 2780  df-cleq 2794  df-clel 2873  df-nfc 2941  df-ne 2991  df-ral 3114  df-rex 3115  df-reu 3116  df-rab 3118  df-v 3446  df-sbc 3724  df-csb 3832  df-dif 3887  df-un 3889  df-in 3891  df-ss 3901  df-nul 4247  df-if 4429  df-pw 4502  df-sn 4529  df-pr 4531  df-op 4535  df-uni 4804  df-iun 4886  df-br 5034  df-opab 5096  df-mpt 5114  df-id 5428  df-xp 5529  df-rel 5530  df-cnv 5531  df-co 5532  df-dm 5533  df-rn 5534  df-res 5535  df-ima 5536  df-iota 6287  df-fun 6330  df-fn 6331  df-f 6332  df-f1 6333  df-fo 6334  df-f1o 6335  df-fv 6336  df-riota 7097  df-plt 17563  df-glb 17580  df-p0 17644  df-covers 36555  df-ats 36556  df-atl 36587 This theorem is referenced by:  atn0  36597  dihlspsnat  38622
 Copyright terms: Public domain W3C validator