Theorem lhpat 41020

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 1216	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝐾 ∈ HL)
2		simp2l 1218	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝑃 ∈ 𝐴)
3		simp3l 1220	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝑄 ∈ 𝐴)
4		simp1r 1217	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝑊 ∈ 𝐻)
5		eqid 2760	. . . 4 ⊢ (Base‘𝐾) = (Base‘𝐾)
6		lhpat.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
7	5, 6	lhpbase 40975	. . 3 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾))
8	4, 7	syl 18	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝑊 ∈ (Base‘𝐾))
9		simp3r 1221	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝑃 ≠ 𝑄)
10		eqid 2760	. . . 4 ⊢ (1.‘𝐾) = (1.‘𝐾)
11		eqid 2760	. . . 4 ⊢ ( ⋖ ‘𝐾) = ( ⋖ ‘𝐾)
12	10, 11, 6	lhp1cvr 40976	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑊( ⋖ ‘𝐾)(1.‘𝐾))
13	12	3ad2ant1 1151	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝑊( ⋖ ‘𝐾)(1.‘𝐾))
14		simp2r 1219	. 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 40453	. 2 ⊢ ((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑊 ∈ (Base‘𝐾)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑊( ⋖ ‘𝐾)(1.‘𝐾) ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ 𝐴)
20	1, 2, 3, 8, 9, 13, 14, 19	syl133anc 1420	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ 𝐴)

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145   ≠ wne 2955   class class class wbr 5102  ‘cfv 6527  (class class class)co 7408  Basecbs 17349  lecple 17397  joincjn 18447  meetcmee 18448  1.cp1 18558   ⋖ ccvr 40239  Atomscatm 40240  HLchlt 40327  LHypclh 40961

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 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7734

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 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-id 5542  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-iota 6483  df-fun 6529  df-fn 6530  df-f 6531  df-f1 6532  df-fo 6533  df-f1o 6534  df-fv 6535  df-riota 7365  df-ov 7411  df-oprab 7412  df-proset 18430  df-poset 18449  df-plt 18464  df-lub 18480  df-glb 18481  df-join 18482  df-meet 18483  df-p0 18559  df-p1 18560  df-lat 18568  df-clat 18635  df-oposet 40153  df-ol 40155  df-oml 40156  df-covers 40243  df-ats 40244  df-atl 40275  df-cvlat 40299  df-hlat 40328  df-lhyp 40965

This theorem is used by:  lhpat2  41022  4atexlemex6  41051  trlat  41146  cdlemc5  41172  cdleme3e  41209  cdleme7b  41221  cdleme11k  41245  cdleme16e  41259  cdleme16f  41260  cdlemeda  41275  cdleme22cN  41319  cdleme22d  41320  cdleme23b  41327  cdlemf2  41539  cdlemg12g  41626  cdlemg17dALTN  41641  cdlemg19a  41660