Theorem clatl 17726

Description: A complete lattice is a lattice. (Contributed by NM, 18-Sep-2011.) TODO: use eqrelrdv2 5668 to shorten proof and eliminate joindmss 17617 and meetdmss 17631?

Assertion

Ref	Expression
clatl	⊢ (𝐾 ∈ CLat → 𝐾 ∈ Lat)

Proof of Theorem clatl

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2821	. . . . . . 7 ⊢ (Base‘𝐾) = (Base‘𝐾)
2		eqid 2821	. . . . . . 7 ⊢ (join‘𝐾) = (join‘𝐾)
3		simpl 485	. . . . . . 7 ⊢ ((𝐾 ∈ Poset ∧ dom (lub‘𝐾) = 𝒫 (Base‘𝐾)) → 𝐾 ∈ Poset)
4	1, 2, 3	joindmss 17617	. . . . . 6 ⊢ ((𝐾 ∈ Poset ∧ dom (lub‘𝐾) = 𝒫 (Base‘𝐾)) → dom (join‘𝐾) ⊆ ((Base‘𝐾) × (Base‘𝐾)))
5		relxp 5573	. . . . . . . 8 ⊢ Rel ((Base‘𝐾) × (Base‘𝐾))
6	5	a1i 11	. . . . . . 7 ⊢ ((𝐾 ∈ Poset ∧ dom (lub‘𝐾) = 𝒫 (Base‘𝐾)) → Rel ((Base‘𝐾) × (Base‘𝐾)))
7		opelxp 5591	. . . . . . . . . . . 12 ⊢ (⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐾) × (Base‘𝐾)) ↔ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)))
8		vex 3497	. . . . . . . . . . . . 13 ⊢ 𝑥 ∈ V
9		vex 3497	. . . . . . . . . . . . 13 ⊢ 𝑦 ∈ V
10	8, 9	prss 4753	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ↔ {𝑥, 𝑦} ⊆ (Base‘𝐾))
11	7, 10	sylbb 221	. . . . . . . . . . 11 ⊢ (⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐾) × (Base‘𝐾)) → {𝑥, 𝑦} ⊆ (Base‘𝐾))
12		prex 5333	. . . . . . . . . . . 12 ⊢ {𝑥, 𝑦} ∈ V
13	12	elpw 4543	. . . . . . . . . . 11 ⊢ ({𝑥, 𝑦} ∈ 𝒫 (Base‘𝐾) ↔ {𝑥, 𝑦} ⊆ (Base‘𝐾))
14	11, 13	sylibr 236	. . . . . . . . . 10 ⊢ (⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐾) × (Base‘𝐾)) → {𝑥, 𝑦} ∈ 𝒫 (Base‘𝐾))
15		eleq2 2901	. . . . . . . . . 10 ⊢ (dom (lub‘𝐾) = 𝒫 (Base‘𝐾) → ({𝑥, 𝑦} ∈ dom (lub‘𝐾) ↔ {𝑥, 𝑦} ∈ 𝒫 (Base‘𝐾)))
16	14, 15	syl5ibr 248	. . . . . . . . 9 ⊢ (dom (lub‘𝐾) = 𝒫 (Base‘𝐾) → (⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐾) × (Base‘𝐾)) → {𝑥, 𝑦} ∈ dom (lub‘𝐾)))
17	16	adantl 484	. . . . . . . 8 ⊢ ((𝐾 ∈ Poset ∧ dom (lub‘𝐾) = 𝒫 (Base‘𝐾)) → (⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐾) × (Base‘𝐾)) → {𝑥, 𝑦} ∈ dom (lub‘𝐾)))
18		eqid 2821	. . . . . . . . 9 ⊢ (lub‘𝐾) = (lub‘𝐾)
19	8	a1i 11	. . . . . . . . 9 ⊢ ((𝐾 ∈ Poset ∧ dom (lub‘𝐾) = 𝒫 (Base‘𝐾)) → 𝑥 ∈ V)
20	9	a1i 11	. . . . . . . . 9 ⊢ ((𝐾 ∈ Poset ∧ dom (lub‘𝐾) = 𝒫 (Base‘𝐾)) → 𝑦 ∈ V)
21	18, 2, 3, 19, 20	joindef 17614	. . . . . . . 8 ⊢ ((𝐾 ∈ Poset ∧ dom (lub‘𝐾) = 𝒫 (Base‘𝐾)) → (⟨𝑥, 𝑦⟩ ∈ dom (join‘𝐾) ↔ {𝑥, 𝑦} ∈ dom (lub‘𝐾)))
22	17, 21	sylibrd 261	. . . . . . 7 ⊢ ((𝐾 ∈ Poset ∧ dom (lub‘𝐾) = 𝒫 (Base‘𝐾)) → (⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐾) × (Base‘𝐾)) → ⟨𝑥, 𝑦⟩ ∈ dom (join‘𝐾)))
23	6, 22	relssdv 5661	. . . . . 6 ⊢ ((𝐾 ∈ Poset ∧ dom (lub‘𝐾) = 𝒫 (Base‘𝐾)) → ((Base‘𝐾) × (Base‘𝐾)) ⊆ dom (join‘𝐾))
24	4, 23	eqssd 3984	. . . . 5 ⊢ ((𝐾 ∈ Poset ∧ dom (lub‘𝐾) = 𝒫 (Base‘𝐾)) → dom (join‘𝐾) = ((Base‘𝐾) × (Base‘𝐾)))
25	24	ex 415	. . . 4 ⊢ (𝐾 ∈ Poset → (dom (lub‘𝐾) = 𝒫 (Base‘𝐾) → dom (join‘𝐾) = ((Base‘𝐾) × (Base‘𝐾))))
26		eqid 2821	. . . . . . 7 ⊢ (meet‘𝐾) = (meet‘𝐾)
27		simpl 485	. . . . . . 7 ⊢ ((𝐾 ∈ Poset ∧ dom (glb‘𝐾) = 𝒫 (Base‘𝐾)) → 𝐾 ∈ Poset)
28	1, 26, 27	meetdmss 17631	. . . . . 6 ⊢ ((𝐾 ∈ Poset ∧ dom (glb‘𝐾) = 𝒫 (Base‘𝐾)) → dom (meet‘𝐾) ⊆ ((Base‘𝐾) × (Base‘𝐾)))
29	5	a1i 11	. . . . . . 7 ⊢ ((𝐾 ∈ Poset ∧ dom (glb‘𝐾) = 𝒫 (Base‘𝐾)) → Rel ((Base‘𝐾) × (Base‘𝐾)))
30		eleq2 2901	. . . . . . . . . 10 ⊢ (dom (glb‘𝐾) = 𝒫 (Base‘𝐾) → ({𝑥, 𝑦} ∈ dom (glb‘𝐾) ↔ {𝑥, 𝑦} ∈ 𝒫 (Base‘𝐾)))
31	14, 30	syl5ibr 248	. . . . . . . . 9 ⊢ (dom (glb‘𝐾) = 𝒫 (Base‘𝐾) → (⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐾) × (Base‘𝐾)) → {𝑥, 𝑦} ∈ dom (glb‘𝐾)))
32	31	adantl 484	. . . . . . . 8 ⊢ ((𝐾 ∈ Poset ∧ dom (glb‘𝐾) = 𝒫 (Base‘𝐾)) → (⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐾) × (Base‘𝐾)) → {𝑥, 𝑦} ∈ dom (glb‘𝐾)))
33		eqid 2821	. . . . . . . . 9 ⊢ (glb‘𝐾) = (glb‘𝐾)
34	8	a1i 11	. . . . . . . . 9 ⊢ ((𝐾 ∈ Poset ∧ dom (glb‘𝐾) = 𝒫 (Base‘𝐾)) → 𝑥 ∈ V)
35	9	a1i 11	. . . . . . . . 9 ⊢ ((𝐾 ∈ Poset ∧ dom (glb‘𝐾) = 𝒫 (Base‘𝐾)) → 𝑦 ∈ V)
36	33, 26, 27, 34, 35	meetdef 17628	. . . . . . . 8 ⊢ ((𝐾 ∈ Poset ∧ dom (glb‘𝐾) = 𝒫 (Base‘𝐾)) → (⟨𝑥, 𝑦⟩ ∈ dom (meet‘𝐾) ↔ {𝑥, 𝑦} ∈ dom (glb‘𝐾)))
37	32, 36	sylibrd 261	. . . . . . 7 ⊢ ((𝐾 ∈ Poset ∧ dom (glb‘𝐾) = 𝒫 (Base‘𝐾)) → (⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐾) × (Base‘𝐾)) → ⟨𝑥, 𝑦⟩ ∈ dom (meet‘𝐾)))
38	29, 37	relssdv 5661	. . . . . 6 ⊢ ((𝐾 ∈ Poset ∧ dom (glb‘𝐾) = 𝒫 (Base‘𝐾)) → ((Base‘𝐾) × (Base‘𝐾)) ⊆ dom (meet‘𝐾))
39	28, 38	eqssd 3984	. . . . 5 ⊢ ((𝐾 ∈ Poset ∧ dom (glb‘𝐾) = 𝒫 (Base‘𝐾)) → dom (meet‘𝐾) = ((Base‘𝐾) × (Base‘𝐾)))
40	39	ex 415	. . . 4 ⊢ (𝐾 ∈ Poset → (dom (glb‘𝐾) = 𝒫 (Base‘𝐾) → dom (meet‘𝐾) = ((Base‘𝐾) × (Base‘𝐾))))
41	25, 40	anim12d 610	. . 3 ⊢ (𝐾 ∈ Poset → ((dom (lub‘𝐾) = 𝒫 (Base‘𝐾) ∧ dom (glb‘𝐾) = 𝒫 (Base‘𝐾)) → (dom (join‘𝐾) = ((Base‘𝐾) × (Base‘𝐾)) ∧ dom (meet‘𝐾) = ((Base‘𝐾) × (Base‘𝐾)))))
42	41	imdistani 571	. 2 ⊢ ((𝐾 ∈ Poset ∧ (dom (lub‘𝐾) = 𝒫 (Base‘𝐾) ∧ dom (glb‘𝐾) = 𝒫 (Base‘𝐾))) → (𝐾 ∈ Poset ∧ (dom (join‘𝐾) = ((Base‘𝐾) × (Base‘𝐾)) ∧ dom (meet‘𝐾) = ((Base‘𝐾) × (Base‘𝐾)))))
43	1, 18, 33	isclat 17719	. 2 ⊢ (𝐾 ∈ CLat ↔ (𝐾 ∈ Poset ∧ (dom (lub‘𝐾) = 𝒫 (Base‘𝐾) ∧ dom (glb‘𝐾) = 𝒫 (Base‘𝐾))))
44	1, 2, 26	islat 17657	. 2 ⊢ (𝐾 ∈ Lat ↔ (𝐾 ∈ Poset ∧ (dom (join‘𝐾) = ((Base‘𝐾) × (Base‘𝐾)) ∧ dom (meet‘𝐾) = ((Base‘𝐾) × (Base‘𝐾)))))
45	42, 43, 44	3imtr4i 294	1 ⊢ (𝐾 ∈ CLat → 𝐾 ∈ Lat)

Syntax hints:   → wi 4   ∧ wa 398   = wceq 1537   ∈ wcel 2114  Vcvv 3494   ⊆ wss 3936  𝒫 cpw 4539  {cpr 4569  ⟨cop 4573   × cxp 5553  dom cdm 5555  Rel wrel 5560  ‘cfv 6355  Basecbs 16483  Posetcpo 17550  lubclub 17552  glbcglb 17553  joincjn 17554  meetcmee 17555  Latclat 17655  CLatccla 17717

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-rep 5190  ax-sep 5203  ax-nul 5210  ax-pow 5266  ax-pr 5330  ax-un 7461

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-reu 3145  df-rab 3147  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4839  df-iun 4921  df-br 5067  df-opab 5129  df-mpt 5147  df-id 5460  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-iota 6314  df-fun 6357  df-fn 6358  df-f 6359  df-f1 6360  df-fo 6361  df-f1o 6362  df-fv 6363  df-riota 7114  df-oprab 7160  df-lub 17584  df-glb 17585  df-join 17586  df-meet 17587  df-lat 17656  df-clat 17718

This theorem is referenced by:  lubel  17732  lubun  17733  clatleglb  17736