Theorem ishlat1 39859

Description: The predicate "is a Hilbert lattice", which is: is orthomodular (𝐾 ∈ OML), complete (𝐾 ∈ CLat), atomic and satisfies the exchange (or covering) property (𝐾 ∈ CvLat), satisfies the superposition principle, and has a minimum height of 4 (witnessed here by 0, x, y, z, 1). (Contributed by NM, 5-Nov-2012.)

Hypotheses

Ref	Expression
ishlat.b	⊢ 𝐵 = (Base‘𝐾)
ishlat.l	⊢ ≤ = (le‘𝐾)
ishlat.s	⊢ < = (lt‘𝐾)
ishlat.j	⊢ ∨ = (join‘𝐾)
ishlat.z	⊢ 0 = (0.‘𝐾)
ishlat.u	⊢ 1 = (1.‘𝐾)
ishlat.a	⊢ 𝐴 = (Atoms‘𝐾)

Assertion

Ref	Expression
ishlat1	⊢ (𝐾 ∈ HL ↔ ((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ CvLat) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≠ 𝑦 → ∃𝑧 ∈ 𝐴 (𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧 ≤ (𝑥 ∨ 𝑦))) ∧ ∃𝑥 ∈ 𝐵 ∃𝑦 ∈ 𝐵 ∃𝑧 ∈ 𝐵 (( 0 < 𝑥 ∧ 𝑥 < 𝑦) ∧ (𝑦 < 𝑧 ∧ 𝑧 < 1 )))))

Distinct variable groups:   𝑥,𝑦,𝑧,𝐴   𝑥,𝐵,𝑦,𝑧   𝑥,𝐾,𝑦,𝑧

Allowed substitution hints:   < (𝑥,𝑦,𝑧)   1 (𝑥,𝑦,𝑧)   ∨ (𝑥,𝑦,𝑧)   ≤ (𝑥,𝑦,𝑧)   0 (𝑥,𝑦,𝑧)

Proof of Theorem ishlat1

Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq2 6831	. . . . . 6 ⊢ (𝑘 = 𝐾 → (Atoms‘𝑘) = (Atoms‘𝐾))
2		ishlat.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
3	1, 2	eqtr4di 2794	. . . . 5 ⊢ (𝑘 = 𝐾 → (Atoms‘𝑘) = 𝐴)
4		fveq2 6831	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = (le‘𝐾))
5		ishlat.l	. . . . . . . . . . . 12 ⊢ ≤ = (le‘𝐾)
6	4, 5	eqtr4di 2794	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = ≤ )
7	6	breqd 5086	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (𝑧(le‘𝑘)(𝑥(join‘𝑘)𝑦) ↔ 𝑧 ≤ (𝑥(join‘𝑘)𝑦)))
8		fveq2 6831	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = (join‘𝐾))
9		ishlat.j	. . . . . . . . . . . . 13 ⊢ ∨ = (join‘𝐾)
10	8, 9	eqtr4di 2794	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = ∨ )
11	10	oveqd 7377	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (𝑥(join‘𝑘)𝑦) = (𝑥 ∨ 𝑦))
12	11	breq2d 5087	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (𝑧 ≤ (𝑥(join‘𝑘)𝑦) ↔ 𝑧 ≤ (𝑥 ∨ 𝑦)))
13	7, 12	bitrd 281	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (𝑧(le‘𝑘)(𝑥(join‘𝑘)𝑦) ↔ 𝑧 ≤ (𝑥 ∨ 𝑦)))
14	13	3anbi3d 1451	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → ((𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧(le‘𝑘)(𝑥(join‘𝑘)𝑦)) ↔ (𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧 ≤ (𝑥 ∨ 𝑦))))
15	3, 14	rexeqbidv 3316	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (∃𝑧 ∈ (Atoms‘𝑘)(𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧(le‘𝑘)(𝑥(join‘𝑘)𝑦)) ↔ ∃𝑧 ∈ 𝐴 (𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧 ≤ (𝑥 ∨ 𝑦))))
16	15	imbi2d 342	. . . . . 6 ⊢ (𝑘 = 𝐾 → ((𝑥 ≠ 𝑦 → ∃𝑧 ∈ (Atoms‘𝑘)(𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧(le‘𝑘)(𝑥(join‘𝑘)𝑦))) ↔ (𝑥 ≠ 𝑦 → ∃𝑧 ∈ 𝐴 (𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧 ≤ (𝑥 ∨ 𝑦)))))
17	3, 16	raleqbidv 3315	. . . . 5 ⊢ (𝑘 = 𝐾 → (∀𝑦 ∈ (Atoms‘𝑘)(𝑥 ≠ 𝑦 → ∃𝑧 ∈ (Atoms‘𝑘)(𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧(le‘𝑘)(𝑥(join‘𝑘)𝑦))) ↔ ∀𝑦 ∈ 𝐴 (𝑥 ≠ 𝑦 → ∃𝑧 ∈ 𝐴 (𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧 ≤ (𝑥 ∨ 𝑦)))))
18	3, 17	raleqbidv 3315	. . . 4 ⊢ (𝑘 = 𝐾 → (∀𝑥 ∈ (Atoms‘𝑘)∀𝑦 ∈ (Atoms‘𝑘)(𝑥 ≠ 𝑦 → ∃𝑧 ∈ (Atoms‘𝑘)(𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧(le‘𝑘)(𝑥(join‘𝑘)𝑦))) ↔ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≠ 𝑦 → ∃𝑧 ∈ 𝐴 (𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧 ≤ (𝑥 ∨ 𝑦)))))
19		fveq2 6831	. . . . . 6 ⊢ (𝑘 = 𝐾 → (Base‘𝑘) = (Base‘𝐾))
20		ishlat.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐾)
21	19, 20	eqtr4di 2794	. . . . 5 ⊢ (𝑘 = 𝐾 → (Base‘𝑘) = 𝐵)
22		fveq2 6831	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝐾 → (lt‘𝑘) = (lt‘𝐾))
23		ishlat.s	. . . . . . . . . . . 12 ⊢ < = (lt‘𝐾)
24	22, 23	eqtr4di 2794	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (lt‘𝑘) = < )
25	24	breqd 5086	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → ((0.‘𝑘)(lt‘𝑘)𝑥 ↔ (0.‘𝑘) < 𝑥))
26		fveq2 6831	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝐾 → (0.‘𝑘) = (0.‘𝐾))
27		ishlat.z	. . . . . . . . . . . 12 ⊢ 0 = (0.‘𝐾)
28	26, 27	eqtr4di 2794	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (0.‘𝑘) = 0 )
29	28	breq1d 5085	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → ((0.‘𝑘) < 𝑥 ↔ 0 < 𝑥))
30	25, 29	bitrd 281	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → ((0.‘𝑘)(lt‘𝑘)𝑥 ↔ 0 < 𝑥))
31	24	breqd 5086	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (𝑥(lt‘𝑘)𝑦 ↔ 𝑥 < 𝑦))
32	30, 31	anbi12d 639	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (((0.‘𝑘)(lt‘𝑘)𝑥 ∧ 𝑥(lt‘𝑘)𝑦) ↔ ( 0 < 𝑥 ∧ 𝑥 < 𝑦)))
33	24	breqd 5086	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (𝑦(lt‘𝑘)𝑧 ↔ 𝑦 < 𝑧))
34	24	breqd 5086	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (𝑧(lt‘𝑘)(1.‘𝑘) ↔ 𝑧 < (1.‘𝑘)))
35		fveq2 6831	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝐾 → (1.‘𝑘) = (1.‘𝐾))
36		ishlat.u	. . . . . . . . . . . 12 ⊢ 1 = (1.‘𝐾)
37	35, 36	eqtr4di 2794	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (1.‘𝑘) = 1 )
38	37	breq2d 5087	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (𝑧 < (1.‘𝑘) ↔ 𝑧 < 1 ))
39	34, 38	bitrd 281	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (𝑧(lt‘𝑘)(1.‘𝑘) ↔ 𝑧 < 1 ))
40	33, 39	anbi12d 639	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → ((𝑦(lt‘𝑘)𝑧 ∧ 𝑧(lt‘𝑘)(1.‘𝑘)) ↔ (𝑦 < 𝑧 ∧ 𝑧 < 1 )))
41	32, 40	anbi12d 639	. . . . . . 7 ⊢ (𝑘 = 𝐾 → ((((0.‘𝑘)(lt‘𝑘)𝑥 ∧ 𝑥(lt‘𝑘)𝑦) ∧ (𝑦(lt‘𝑘)𝑧 ∧ 𝑧(lt‘𝑘)(1.‘𝑘))) ↔ (( 0 < 𝑥 ∧ 𝑥 < 𝑦) ∧ (𝑦 < 𝑧 ∧ 𝑧 < 1 ))))
42	21, 41	rexeqbidv 3316	. . . . . 6 ⊢ (𝑘 = 𝐾 → (∃𝑧 ∈ (Base‘𝑘)(((0.‘𝑘)(lt‘𝑘)𝑥 ∧ 𝑥(lt‘𝑘)𝑦) ∧ (𝑦(lt‘𝑘)𝑧 ∧ 𝑧(lt‘𝑘)(1.‘𝑘))) ↔ ∃𝑧 ∈ 𝐵 (( 0 < 𝑥 ∧ 𝑥 < 𝑦) ∧ (𝑦 < 𝑧 ∧ 𝑧 < 1 ))))
43	21, 42	rexeqbidv 3316	. . . . 5 ⊢ (𝑘 = 𝐾 → (∃𝑦 ∈ (Base‘𝑘)∃𝑧 ∈ (Base‘𝑘)(((0.‘𝑘)(lt‘𝑘)𝑥 ∧ 𝑥(lt‘𝑘)𝑦) ∧ (𝑦(lt‘𝑘)𝑧 ∧ 𝑧(lt‘𝑘)(1.‘𝑘))) ↔ ∃𝑦 ∈ 𝐵 ∃𝑧 ∈ 𝐵 (( 0 < 𝑥 ∧ 𝑥 < 𝑦) ∧ (𝑦 < 𝑧 ∧ 𝑧 < 1 ))))
44	21, 43	rexeqbidv 3316	. . . 4 ⊢ (𝑘 = 𝐾 → (∃𝑥 ∈ (Base‘𝑘)∃𝑦 ∈ (Base‘𝑘)∃𝑧 ∈ (Base‘𝑘)(((0.‘𝑘)(lt‘𝑘)𝑥 ∧ 𝑥(lt‘𝑘)𝑦) ∧ (𝑦(lt‘𝑘)𝑧 ∧ 𝑧(lt‘𝑘)(1.‘𝑘))) ↔ ∃𝑥 ∈ 𝐵 ∃𝑦 ∈ 𝐵 ∃𝑧 ∈ 𝐵 (( 0 < 𝑥 ∧ 𝑥 < 𝑦) ∧ (𝑦 < 𝑧 ∧ 𝑧 < 1 ))))
45	18, 44	anbi12d 639	. . 3 ⊢ (𝑘 = 𝐾 → ((∀𝑥 ∈ (Atoms‘𝑘)∀𝑦 ∈ (Atoms‘𝑘)(𝑥 ≠ 𝑦 → ∃𝑧 ∈ (Atoms‘𝑘)(𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧(le‘𝑘)(𝑥(join‘𝑘)𝑦))) ∧ ∃𝑥 ∈ (Base‘𝑘)∃𝑦 ∈ (Base‘𝑘)∃𝑧 ∈ (Base‘𝑘)(((0.‘𝑘)(lt‘𝑘)𝑥 ∧ 𝑥(lt‘𝑘)𝑦) ∧ (𝑦(lt‘𝑘)𝑧 ∧ 𝑧(lt‘𝑘)(1.‘𝑘)))) ↔ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≠ 𝑦 → ∃𝑧 ∈ 𝐴 (𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧 ≤ (𝑥 ∨ 𝑦))) ∧ ∃𝑥 ∈ 𝐵 ∃𝑦 ∈ 𝐵 ∃𝑧 ∈ 𝐵 (( 0 < 𝑥 ∧ 𝑥 < 𝑦) ∧ (𝑦 < 𝑧 ∧ 𝑧 < 1 )))))
46		df-hlat 39858	. . 3 ⊢ HL = {𝑘 ∈ ((OML ∩ CLat) ∩ CvLat) ∣ (∀𝑥 ∈ (Atoms‘𝑘)∀𝑦 ∈ (Atoms‘𝑘)(𝑥 ≠ 𝑦 → ∃𝑧 ∈ (Atoms‘𝑘)(𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧(le‘𝑘)(𝑥(join‘𝑘)𝑦))) ∧ ∃𝑥 ∈ (Base‘𝑘)∃𝑦 ∈ (Base‘𝑘)∃𝑧 ∈ (Base‘𝑘)(((0.‘𝑘)(lt‘𝑘)𝑥 ∧ 𝑥(lt‘𝑘)𝑦) ∧ (𝑦(lt‘𝑘)𝑧 ∧ 𝑧(lt‘𝑘)(1.‘𝑘))))}
47	45, 46	elrab2 3634	. 2 ⊢ (𝐾 ∈ HL ↔ (𝐾 ∈ ((OML ∩ CLat) ∩ CvLat) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≠ 𝑦 → ∃𝑧 ∈ 𝐴 (𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧 ≤ (𝑥 ∨ 𝑦))) ∧ ∃𝑥 ∈ 𝐵 ∃𝑦 ∈ 𝐵 ∃𝑧 ∈ 𝐵 (( 0 < 𝑥 ∧ 𝑥 < 𝑦) ∧ (𝑦 < 𝑧 ∧ 𝑧 < 1 )))))
48		elin 3901	. . . . 5 ⊢ (𝐾 ∈ (OML ∩ CLat) ↔ (𝐾 ∈ OML ∧ 𝐾 ∈ CLat))
49	48	anbi1i 631	. . . 4 ⊢ ((𝐾 ∈ (OML ∩ CLat) ∧ 𝐾 ∈ CvLat) ↔ ((𝐾 ∈ OML ∧ 𝐾 ∈ CLat) ∧ 𝐾 ∈ CvLat))
50		elin 3901	. . . 4 ⊢ (𝐾 ∈ ((OML ∩ CLat) ∩ CvLat) ↔ (𝐾 ∈ (OML ∩ CLat) ∧ 𝐾 ∈ CvLat))
51		df-3an 1095	. . . 4 ⊢ ((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ CvLat) ↔ ((𝐾 ∈ OML ∧ 𝐾 ∈ CLat) ∧ 𝐾 ∈ CvLat))
52	49, 50, 51	3bitr4ri 306	. . 3 ⊢ ((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ CvLat) ↔ 𝐾 ∈ ((OML ∩ CLat) ∩ CvLat))
53	52	anbi1i 631	. 2 ⊢ (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ CvLat) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≠ 𝑦 → ∃𝑧 ∈ 𝐴 (𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧 ≤ (𝑥 ∨ 𝑦))) ∧ ∃𝑥 ∈ 𝐵 ∃𝑦 ∈ 𝐵 ∃𝑧 ∈ 𝐵 (( 0 < 𝑥 ∧ 𝑥 < 𝑦) ∧ (𝑦 < 𝑧 ∧ 𝑧 < 1 )))) ↔ (𝐾 ∈ ((OML ∩ CLat) ∩ CvLat) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≠ 𝑦 → ∃𝑧 ∈ 𝐴 (𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧 ≤ (𝑥 ∨ 𝑦))) ∧ ∃𝑥 ∈ 𝐵 ∃𝑦 ∈ 𝐵 ∃𝑧 ∈ 𝐵 (( 0 < 𝑥 ∧ 𝑥 < 𝑦) ∧ (𝑦 < 𝑧 ∧ 𝑧 < 1 )))))
54	47, 53	bitr4i 280	1 ⊢ (𝐾 ∈ HL ↔ ((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ CvLat) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≠ 𝑦 → ∃𝑧 ∈ 𝐴 (𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧 ≤ (𝑥 ∨ 𝑦))) ∧ ∃𝑥 ∈ 𝐵 ∃𝑦 ∈ 𝐵 ∃𝑧 ∈ 𝐵 (( 0 < 𝑥 ∧ 𝑥 < 𝑦) ∧ (𝑦 < 𝑧 ∧ 𝑧 < 1 )))))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 397   ∧ w3a 1093   = wceq 1548   ∈ wcel 2121   ≠ wne 2936  ∀wral 3055  ∃wrex 3065   ∩ cin 3884   class class class wbr 5075  ‘cfv 6489  (class class class)co 7360  Basecbs 17174  lecple 17222  ltcplt 18269  joincjn 18272  0.cp0 18382  1.cp1 18383  CLatccla 18459  OMLcoml 39682  Atomscatm 39770  CvLatclc 39772  HLchlt 39857

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-ext 2713

This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-sb 2075  df-clab 2720  df-cleq 2733  df-clel 2816  df-ral 3056  df-rex 3066  df-rab 3394  df-v 3435  df-dif 3888  df-un 3890  df-in 3892  df-ss 3902  df-nul 4265  df-if 4458  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4842  df-br 5076  df-iota 6445  df-fv 6497  df-ov 7363  df-hlat 39858

This theorem is referenced by:  ishlat2  39860  ishlat3N  39861  hlomcmcv  39863