Proof of Theorem stelt
| Step | Hyp | Ref
| Expression |
| 1 | | elisset 1354 |
. 2
⊢ (S
∈ States → S ∈
V) |
| 2 | | chex 5130 |
. . . 4
⊢ Cℋ ∈
V |
| 3 | | fex 2771 |
. . . 4
⊢ ( Cℋ ∈
V → (S:
Cℋ –→ℝ → S ∈ V)) |
| 4 | 2, 3 | ax-mp 6 |
. . 3
⊢ (S:
Cℋ –→ℝ → S ∈ V) |
| 5 | 4 | ad2antll 320 |
. 2
⊢ (((S:
Cℋ –→ℝ ∧ ∀x ∈ Cℋ (0 ≤
(S ‘x) ∧ (S
‘x) ≤ 1)) ∧ ((S ‘ ℋ ) = 1 ∧ ∀x ∈ Cℋ ∀y ∈ Cℋ (x ⊆ (⊥ ‘y) → (S
‘(x ∨ℋ y)) = ((S
‘x) + (S ‘y)))))
→ S ∈ V) |
| 6 | | feq1 2748 |
. . . . 5
⊢ (f =
S → (f: Cℋ –→ℝ
↔ S: Cℋ
–→ℝ)) |
| 7 | | fveq1 2831 |
. . . . . . . 8
⊢ (f =
S → (f ‘x) =
(S ‘x)) |
| 8 | 7 | breq2d 2072 |
. . . . . . 7
⊢ (f =
S → (0 ≤ (f ‘x)
↔ 0 ≤ (S ‘x))) |
| 9 | 7 | breq1d 2071 |
. . . . . . 7
⊢ (f =
S → ((f ‘x) ≤
1 ↔ (S ‘x) ≤ 1)) |
| 10 | 8, 9 | anbi12d 476 |
. . . . . 6
⊢ (f =
S → ((0 ≤ (f ‘x)
∧ (f ‘x) ≤ 1) ↔ (0 ≤ (S ‘x)
∧ (S ‘x) ≤ 1))) |
| 11 | 10 | biraldv 1219 |
. . . . 5
⊢ (f =
S → (∀x ∈ Cℋ (0 ≤
(f ‘x) ∧ (f
‘x) ≤ 1) ↔ ∀x ∈ Cℋ (0 ≤
(S ‘x) ∧ (S
‘x) ≤ 1))) |
| 12 | 6, 11 | anbi12d 476 |
. . . 4
⊢ (f =
S → ((f: Cℋ –→ℝ
∧ ∀x ∈
Cℋ (0 ≤ (f
‘x) ∧ (f ‘x) ≤
1)) ↔ (S: Cℋ
–→ℝ ∧ ∀x ∈
Cℋ (0 ≤ (S
‘x) ∧ (S ‘x) ≤
1)))) |
| 13 | | fveq1 2831 |
. . . . . 6
⊢ (f =
S → (f ‘ ℋ ) = (S ‘ ℋ )) |
| 14 | 13 | cleq1d 1109 |
. . . . 5
⊢ (f =
S → ((f ‘ ℋ ) = 1 ↔ (S ‘ ℋ ) = 1)) |
| 15 | | fveq1 2831 |
. . . . . . . . 9
⊢ (f =
S → (f ‘(x
∨ℋ y)) = (S ‘(x
∨ℋ y))) |
| 16 | | fveq1 2831 |
. . . . . . . . . 10
⊢ (f =
S → (f ‘y) =
(S ‘y)) |
| 17 | 7, 16 | opreq12d 3014 |
. . . . . . . . 9
⊢ (f =
S → ((f ‘x) +
(f ‘y)) = ((S
‘x) + (S ‘y))) |
| 18 | 15, 17 | cleq12d 1115 |
. . . . . . . 8
⊢ (f =
S → ((f ‘(x
∨ℋ y)) = ((f ‘x) +
(f ‘y)) ↔ (S
‘(x ∨ℋ y)) = ((S
‘x) + (S ‘y)))) |
| 19 | 18 | imbi2d 464 |
. . . . . . 7
⊢ (f =
S → ((x ⊆ (⊥ ‘y) → (f
‘(x ∨ℋ y)) = ((f
‘x) + (f ‘y)))
↔ (x ⊆ (⊥ ‘y) → (S
‘(x ∨ℋ y)) = ((S
‘x) + (S ‘y))))) |
| 20 | 19 | biraldv 1219 |
. . . . . 6
⊢ (f =
S → (∀y ∈ Cℋ (x ⊆ (⊥ ‘y) → (f
‘(x ∨ℋ y)) = ((f
‘x) + (f ‘y)))
↔ ∀y ∈
Cℋ (x ⊆
(⊥ ‘y) → (S ‘(x
∨ℋ y)) = ((S ‘x) +
(S ‘y))))) |
| 21 | 20 | biraldv 1219 |
. . . . 5
⊢ (f =
S → (∀x ∈ Cℋ ∀y ∈ Cℋ (x ⊆ (⊥ ‘y) → (f
‘(x ∨ℋ y)) = ((f
‘x) + (f ‘y)))
↔ ∀x ∈
Cℋ ∀y ∈
Cℋ (x ⊆
(⊥ ‘y) → (S ‘(x
∨ℋ y)) = ((S ‘x) +
(S ‘y))))) |
| 22 | 14, 21 | anbi12d 476 |
. . . 4
⊢ (f =
S → (((f ‘ ℋ ) = 1 ∧ ∀x ∈ Cℋ ∀y ∈ Cℋ (x ⊆ (⊥ ‘y) → (f
‘(x ∨ℋ y)) = ((f
‘x) + (f ‘y))))
↔ ((S ‘ ℋ ) = 1 ∧
∀x ∈ Cℋ
∀y ∈ Cℋ
(x ⊆ (⊥ ‘y) → (S
‘(x ∨ℋ y)) = ((S
‘x) + (S ‘y)))))) |
| 23 | 12, 22 | anbi12d 476 |
. . 3
⊢ (f =
S → (((f: Cℋ –→ℝ
∧ ∀x ∈
Cℋ (0 ≤ (f
‘x) ∧ (f ‘x) ≤
1)) ∧ ((f ‘ ℋ ) = 1 ∧
∀x ∈ Cℋ
∀y ∈ Cℋ
(x ⊆ (⊥ ‘y) → (f
‘(x ∨ℋ y)) = ((f
‘x) + (f ‘y)))))
↔ ((S: Cℋ
–→ℝ ∧ ∀x ∈
Cℋ (0 ≤ (S
‘x) ∧ (S ‘x) ≤
1)) ∧ ((S ‘ ℋ ) = 1 ∧
∀x ∈ Cℋ
∀y ∈ Cℋ
(x ⊆ (⊥ ‘y) → (S
‘(x ∨ℋ y)) = ((S
‘x) + (S ‘y))))))) |
| 24 | | df-st 5670 |
. . 3
⊢ States = {f∣((f:
Cℋ –→ℝ ∧ ∀x ∈ Cℋ (0 ≤
(f ‘x) ∧ (f
‘x) ≤ 1)) ∧ ((f ‘ ℋ ) = 1 ∧ ∀x ∈ Cℋ ∀y ∈ Cℋ (x ⊆ (⊥ ‘y) → (f
‘(x ∨ℋ y)) = ((f
‘x) + (f ‘y)))))} |
| 25 | 23, 24 | elab2g 1418 |
. 2
⊢ (S
∈ V → (S ∈ States
↔ ((S: Cℋ
–→ℝ ∧ ∀x ∈
Cℋ (0 ≤ (S
‘x) ∧ (S ‘x) ≤
1)) ∧ ((S ‘ ℋ ) = 1 ∧
∀x ∈ Cℋ
∀y ∈ Cℋ
(x ⊆ (⊥ ‘y) → (S
‘(x ∨ℋ y)) = ((S
‘x) + (S ‘y))))))) |
| 26 | 1, 5, 25 | pm5.21nii 504 |
1
⊢ (S
∈ States ↔ ((S:
Cℋ –→ℝ ∧ ∀x ∈ Cℋ (0 ≤
(S ‘x) ∧ (S
‘x) ≤ 1)) ∧ ((S ‘ ℋ ) = 1 ∧ ∀x ∈ Cℋ ∀y ∈ Cℋ (x ⊆ (⊥ ‘y) → (S
‘(x ∨ℋ y)) = ((S
‘x) + (S ‘y)))))) |