Theorem lhpat 38360

Description: Create an atom under a co-atom. Part of proof of Lemma B in [Crawley] p. 112. (Contributed by NM, 23-May-2012.)

Hypotheses

Ref	Expression
lhpat.l	⊢ ≤ = (le‘𝐾)
lhpat.j	⊢ ∨ = (join‘𝐾)
lhpat.m	⊢ ∧ = (meet‘𝐾)
lhpat.a	⊢ 𝐴 = (Atoms‘𝐾)
lhpat.h	⊢ 𝐻 = (LHyp‘𝐾)

Assertion

Ref	Expression
lhpat	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ 𝐴)

Proof of Theorem lhpat

Step	Hyp	Ref	Expression
1		simp1l 1197	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝐾 ∈ HL)
2		simp2l 1199	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝑃 ∈ 𝐴)
3		simp3l 1201	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝑄 ∈ 𝐴)
4		simp1r 1198	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝑊 ∈ 𝐻)
5		eqid 2737	. . . 4 ⊢ (Base‘𝐾) = (Base‘𝐾)
6		lhpat.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
7	5, 6	lhpbase 38315	. . 3 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾))
8	4, 7	syl 17	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝑊 ∈ (Base‘𝐾))
9		simp3r 1202	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝑃 ≠ 𝑄)
10		eqid 2737	. . . 4 ⊢ (1.‘𝐾) = (1.‘𝐾)
11		eqid 2737	. . . 4 ⊢ ( ⋖ ‘𝐾) = ( ⋖ ‘𝐾)
12	10, 11, 6	lhp1cvr 38316	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑊( ⋖ ‘𝐾)(1.‘𝐾))
13	12	3ad2ant1 1133	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝑊( ⋖ ‘𝐾)(1.‘𝐾))
14		simp2r 1200	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → ¬ 𝑃 ≤ 𝑊)
15		lhpat.l	. . 3 ⊢ ≤ = (le‘𝐾)
16		lhpat.j	. . 3 ⊢ ∨ = (join‘𝐾)
17		lhpat.m	. . 3 ⊢ ∧ = (meet‘𝐾)
18		lhpat.a	. . 3 ⊢ 𝐴 = (Atoms‘𝐾)
19	5, 15, 16, 17, 10, 11, 18	1cvrat 37793	. 2 ⊢ ((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑊 ∈ (Base‘𝐾)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑊( ⋖ ‘𝐾)(1.‘𝐾) ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ 𝐴)
20	1, 2, 3, 8, 9, 13, 14, 19	syl133anc 1393	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ 𝐴)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 397   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106   ≠ wne 2941   class class class wbr 5097  ‘cfv 6484  (class class class)co 7342  Basecbs 17010  lecple 17067  joincjn 18127  meetcmee 18128  1.cp1 18240   ⋖ ccvr 37578  Atomscatm 37579  HLchlt 37666  LHypclh 38301

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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2708  ax-rep 5234  ax-sep 5248  ax-nul 5255  ax-pow 5313  ax-pr 5377  ax-un 7655

This theorem depends on definitions:  df-bi 206  df-an 398  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-ral 3063  df-rex 3072  df-reu 3351  df-rab 3405  df-v 3444  df-sbc 3732  df-csb 3848  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4275  df-if 4479  df-pw 4554  df-sn 4579  df-pr 4581  df-op 4585  df-uni 4858  df-iun 4948  df-br 5098  df-opab 5160  df-mpt 5181  df-id 5523  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-iota 6436  df-fun 6486  df-fn 6487  df-f 6488  df-f1 6489  df-fo 6490  df-f1o 6491  df-fv 6492  df-riota 7298  df-ov 7345  df-oprab 7346  df-proset 18111  df-poset 18129  df-plt 18146  df-lub 18162  df-glb 18163  df-join 18164  df-meet 18165  df-p0 18241  df-p1 18242  df-lat 18248  df-clat 18315  df-oposet 37492  df-ol 37494  df-oml 37495  df-covers 37582  df-ats 37583  df-atl 37614  df-cvlat 37638  df-hlat 37667  df-lhyp 38305

This theorem is referenced by:  lhpat2  38362  4atexlemex6  38391  trlat  38486  cdlemc5  38512  cdleme3e  38549  cdleme7b  38561  cdleme11k  38585  cdleme16e  38599  cdleme16f  38600  cdlemeda  38615  cdleme22cN  38659  cdleme22d  38660  cdleme23b  38667  cdlemf2  38879  cdlemg12g  38966  cdlemg17dALTN  38981  cdlemg19a  39000