Theorem snatpsubN 40998

Description: The singleton of an atom is a projective subspace. (Contributed by NM, 9-Sep-2013.) (New usage is discouraged.)

Hypotheses

Ref	Expression
snpsub.a	⊢ 𝐴 = (Atoms‘𝐾)
snpsub.s	⊢ 𝑆 = (PSubSp‘𝐾)

Assertion

Ref	Expression
snatpsubN	⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) → {𝑃} ∈ 𝑆)

Proof of Theorem snatpsubN

Dummy variables 𝑞 𝑝 𝑟 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		snssi 4746	. . . . . 6 ⊢ (𝑃 ∈ 𝐴 → {𝑃} ⊆ 𝐴)
2	1	adantl 487	. . . . 5 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) → {𝑃} ⊆ 𝐴)
3		atllat 40548	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ∈ AtLat → 𝐾 ∈ Lat)
4		eqid 2763	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝐾) = (Base‘𝐾)
5		snpsub.a	. . . . . . . . . . . . . . . 16 ⊢ 𝐴 = (Atoms‘𝐾)
6	4, 5	atbase 40537	. . . . . . . . . . . . . . 15 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ (Base‘𝐾))
7		eqid 2763	. . . . . . . . . . . . . . . 16 ⊢ (join‘𝐾) = (join‘𝐾)
8	4, 7	latjidm 18662	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾)) → (𝑃(join‘𝐾)𝑃) = 𝑃)
9	3, 6, 8	syl2an 608	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) → (𝑃(join‘𝐾)𝑃) = 𝑃)
10	9	adantr 486	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) → (𝑃(join‘𝐾)𝑃) = 𝑃)
11	10	breq2d 5118	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) → (𝑟(le‘𝐾)(𝑃(join‘𝐾)𝑃) ↔ 𝑟(le‘𝐾)𝑃))
12		eqid 2763	. . . . . . . . . . . . . . . 16 ⊢ (le‘𝐾) = (le‘𝐾)
13	12, 5	atcmp 40559	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ AtLat ∧ 𝑟 ∈ 𝐴 ∧ 𝑃 ∈ 𝐴) → (𝑟(le‘𝐾)𝑃 ↔ 𝑟 = 𝑃))
14	13	3com23 1144	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) → (𝑟(le‘𝐾)𝑃 ↔ 𝑟 = 𝑃))
15	14	3expa 1136	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) → (𝑟(le‘𝐾)𝑃 ↔ 𝑟 = 𝑃))
16	15	biimpd 232	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) → (𝑟(le‘𝐾)𝑃 → 𝑟 = 𝑃))
17	11, 16	sylbid 243	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) → (𝑟(le‘𝐾)(𝑃(join‘𝐾)𝑃) → 𝑟 = 𝑃))
18	17	adantld 496	. . . . . . . . . 10 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) → (((𝑝 = 𝑃 ∧ 𝑞 = 𝑃) ∧ 𝑟(le‘𝐾)(𝑃(join‘𝐾)𝑃)) → 𝑟 = 𝑃))
19		velsn 4600	. . . . . . . . . . . . 13 ⊢ (𝑝 ∈ {𝑃} ↔ 𝑝 = 𝑃)
20		velsn 4600	. . . . . . . . . . . . 13 ⊢ (𝑞 ∈ {𝑃} ↔ 𝑞 = 𝑃)
21	19, 20	anbi12i 640	. . . . . . . . . . . 12 ⊢ ((𝑝 ∈ {𝑃} ∧ 𝑞 ∈ {𝑃}) ↔ (𝑝 = 𝑃 ∧ 𝑞 = 𝑃))
22	21	anbi1i 636	. . . . . . . . . . 11 ⊢ (((𝑝 ∈ {𝑃} ∧ 𝑞 ∈ {𝑃}) ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞)) ↔ ((𝑝 = 𝑃 ∧ 𝑞 = 𝑃) ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞)))
23		oveq12 7449	. . . . . . . . . . . . 13 ⊢ ((𝑝 = 𝑃 ∧ 𝑞 = 𝑃) → (𝑝(join‘𝐾)𝑞) = (𝑃(join‘𝐾)𝑃))
24	23	breq2d 5118	. . . . . . . . . . . 12 ⊢ ((𝑝 = 𝑃 ∧ 𝑞 = 𝑃) → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) ↔ 𝑟(le‘𝐾)(𝑃(join‘𝐾)𝑃)))
25	24	pm5.32i 585	. . . . . . . . . . 11 ⊢ (((𝑝 = 𝑃 ∧ 𝑞 = 𝑃) ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞)) ↔ ((𝑝 = 𝑃 ∧ 𝑞 = 𝑃) ∧ 𝑟(le‘𝐾)(𝑃(join‘𝐾)𝑃)))
26	22, 25	bitri 278	. . . . . . . . . 10 ⊢ (((𝑝 ∈ {𝑃} ∧ 𝑞 ∈ {𝑃}) ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞)) ↔ ((𝑝 = 𝑃 ∧ 𝑞 = 𝑃) ∧ 𝑟(le‘𝐾)(𝑃(join‘𝐾)𝑃)))
27		velsn 4600	. . . . . . . . . 10 ⊢ (𝑟 ∈ {𝑃} ↔ 𝑟 = 𝑃)
28	18, 26, 27	3imtr4g 299	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) → (((𝑝 ∈ {𝑃} ∧ 𝑞 ∈ {𝑃}) ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞)) → 𝑟 ∈ {𝑃}))
29	28	exp4b 436	. . . . . . . 8 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) → (𝑟 ∈ 𝐴 → ((𝑝 ∈ {𝑃} ∧ 𝑞 ∈ {𝑃}) → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑃}))))
30	29	com23 87	. . . . . . 7 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) → ((𝑝 ∈ {𝑃} ∧ 𝑞 ∈ {𝑃}) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑃}))))
31	30	ralrimdv 3164	. . . . . 6 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) → ((𝑝 ∈ {𝑃} ∧ 𝑞 ∈ {𝑃}) → ∀𝑟 ∈ 𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑃})))
32	31	ralrimivv 3207	. . . . 5 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) → ∀𝑝 ∈ {𝑃}∀𝑞 ∈ {𝑃}∀𝑟 ∈ 𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑃}))
33	2, 32	jca 521	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) → ({𝑃} ⊆ 𝐴 ∧ ∀𝑝 ∈ {𝑃}∀𝑞 ∈ {𝑃}∀𝑟 ∈ 𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑃})))
34	33	ex 418	. . 3 ⊢ (𝐾 ∈ AtLat → (𝑃 ∈ 𝐴 → ({𝑃} ⊆ 𝐴 ∧ ∀𝑝 ∈ {𝑃}∀𝑞 ∈ {𝑃}∀𝑟 ∈ 𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑃}))))
35		snpsub.s	. . . 4 ⊢ 𝑆 = (PSubSp‘𝐾)
36	12, 7, 5, 35	ispsubsp 40993	. . 3 ⊢ (𝐾 ∈ AtLat → ({𝑃} ∈ 𝑆 ↔ ({𝑃} ⊆ 𝐴 ∧ ∀𝑝 ∈ {𝑃}∀𝑞 ∈ {𝑃}∀𝑟 ∈ 𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑃}))))
37	34, 36	sylibrd 262	. 2 ⊢ (𝐾 ∈ AtLat → (𝑃 ∈ 𝐴 → {𝑃} ∈ 𝑆))
38	37	imp 412	1 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) → {𝑃} ∈ 𝑆)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2147  ∀wral 3080   ⊆ wss 3900  {csn 4588   class class class wbr 5106  ‘cfv 6555  (class class class)co 7440  Basecbs 17413  lecple 17461  joincjn 18511  Latclat 18631  Atomscatm 40511  AtLatcal 40512  PSubSpcpsubsp 40744

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 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7772

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 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-iota 6509  df-fun 6557  df-fn 6558  df-f 6559  df-f1 6560  df-fo 6561  df-f1o 6562  df-fv 6563  df-riota 7397  df-ov 7443  df-oprab 7444  df-proset 18494  df-poset 18513  df-plt 18528  df-lub 18544  df-glb 18545  df-join 18546  df-meet 18547  df-p0 18623  df-lat 18632  df-covers 40514  df-ats 40515  df-atl 40546  df-psubsp 40751

This theorem is used by:  pointpsubN  40999  pclfinN  41148  pclfinclN  41198