Theorem thlval 21662

Description: Value of the Hilbert lattice. (Contributed by Mario Carneiro, 25-Oct-2015.)

Hypotheses

Ref	Expression
thlval.k	⊢ 𝐾 = (toHL‘𝑊)
thlval.c	⊢ 𝐶 = (ClSubSp‘𝑊)
thlval.i	⊢ 𝐼 = (toInc‘𝐶)
thlval.o	⊢ ⊥ = (ocv‘𝑊)

Assertion

Ref	Expression
thlval	⊢ (𝑊 ∈ 𝑉 → 𝐾 = (𝐼 sSet ⟨(oc‘ndx), ⊥ ⟩))

Proof of Theorem thlval

Dummy variable ℎ is distinct from all other variables.

Step	Hyp	Ref	Expression
1		elex 3463	. 2 ⊢ (𝑊 ∈ 𝑉 → 𝑊 ∈ V)
2		thlval.k	. . 3 ⊢ 𝐾 = (toHL‘𝑊)
3		fveq2 6842	. . . . . . . 8 ⊢ (ℎ = 𝑊 → (ClSubSp‘ℎ) = (ClSubSp‘𝑊))
4		thlval.c	. . . . . . . 8 ⊢ 𝐶 = (ClSubSp‘𝑊)
5	3, 4	eqtr4di 2790	. . . . . . 7 ⊢ (ℎ = 𝑊 → (ClSubSp‘ℎ) = 𝐶)
6	5	fveq2d 6846	. . . . . 6 ⊢ (ℎ = 𝑊 → (toInc‘(ClSubSp‘ℎ)) = (toInc‘𝐶))
7		thlval.i	. . . . . 6 ⊢ 𝐼 = (toInc‘𝐶)
8	6, 7	eqtr4di 2790	. . . . 5 ⊢ (ℎ = 𝑊 → (toInc‘(ClSubSp‘ℎ)) = 𝐼)
9		fveq2 6842	. . . . . . 7 ⊢ (ℎ = 𝑊 → (ocv‘ℎ) = (ocv‘𝑊))
10		thlval.o	. . . . . . 7 ⊢ ⊥ = (ocv‘𝑊)
11	9, 10	eqtr4di 2790	. . . . . 6 ⊢ (ℎ = 𝑊 → (ocv‘ℎ) = ⊥ )
12	11	opeq2d 4838	. . . . 5 ⊢ (ℎ = 𝑊 → ⟨(oc‘ndx), (ocv‘ℎ)⟩ = ⟨(oc‘ndx), ⊥ ⟩)
13	8, 12	oveq12d 7386	. . . 4 ⊢ (ℎ = 𝑊 → ((toInc‘(ClSubSp‘ℎ)) sSet ⟨(oc‘ndx), (ocv‘ℎ)⟩) = (𝐼 sSet ⟨(oc‘ndx), ⊥ ⟩))
14		df-thl 21632	. . . 4 ⊢ toHL = (ℎ ∈ V ↦ ((toInc‘(ClSubSp‘ℎ)) sSet ⟨(oc‘ndx), (ocv‘ℎ)⟩))
15		ovex 7401	. . . 4 ⊢ (𝐼 sSet ⟨(oc‘ndx), ⊥ ⟩) ∈ V
16	13, 14, 15	fvmpt 6949	. . 3 ⊢ (𝑊 ∈ V → (toHL‘𝑊) = (𝐼 sSet ⟨(oc‘ndx), ⊥ ⟩))
17	2, 16	eqtrid 2784	. 2 ⊢ (𝑊 ∈ V → 𝐾 = (𝐼 sSet ⟨(oc‘ndx), ⊥ ⟩))
18	1, 17	syl 17	1 ⊢ (𝑊 ∈ 𝑉 → 𝐾 = (𝐼 sSet ⟨(oc‘ndx), ⊥ ⟩))

Syntax hints:   → wi 4   = wceq 1542   ∈ wcel 2114  Vcvv 3442  ⟨cop 4588  ‘cfv 6500  (class class class)co 7368   sSet csts 17102  ndxcnx 17132  occoc 17197  toInccipo 18462  ocvcocv 21627  ClSubSpccss 21628  toHLcthl 21629

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5243  ax-nul 5253  ax-pr 5379

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rab 3402  df-v 3444  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4288  df-if 4482  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5527  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-iota 6456  df-fun 6502  df-fv 6508  df-ov 7371  df-thl 21632

This theorem is referenced by:  thlbas  21663  thlle  21664  thloc  21666