Step | Hyp | Ref
| Expression |
1 | | exlimdv.1 |
. . . . 5
⊢ (R, A)⊧T |
2 | 1 | ax-cb1 29 |
. . . 4
⊢ (R, A):∗ |
3 | 2 | wctr 34 |
. . 3
⊢ A:∗ |
4 | 3 | wl 66 |
. 2
⊢
λx:α A:(α
→ ∗) |
5 | | wv 64 |
. . . 4
⊢ y:α:α |
6 | 4, 5 | wc 50 |
. . 3
⊢
(λx:α Ay:α):∗ |
7 | 1 | ax-cb2 30 |
. . 3
⊢ T:∗ |
8 | | wim 137 |
. . . . 5
⊢ ⇒ :(∗
→ (∗ → ∗)) |
9 | 8, 6, 7 | wov 72 |
. . . 4
⊢
[(λx:α Ay:α) ⇒ T]:∗ |
10 | 1 | ex 158 |
. . . 4
⊢ R⊧[A
⇒ T] |
11 | | wv 64 |
. . . . 5
⊢ z:α:α |
12 | 8, 11 | ax-17 105 |
. . . . 5
⊢
⊤⊧[(λx:α ⇒
z:α) = ⇒ ] |
13 | 3, 11 | ax-hbl1 103 |
. . . . . 6
⊢
⊤⊧[(λx:α
λx:α Az:α) = λx:α
A] |
14 | 5, 11 | ax-17 105 |
. . . . . 6
⊢
⊤⊧[(λx:α
y:αz:α) =
y:α] |
15 | 4, 5, 11, 13, 14 | hbc 110 |
. . . . 5
⊢
⊤⊧[(λx:α
(λx:α Ay:α)z:α) =
(λx:α Ay:α)] |
16 | 7, 11 | ax-17 105 |
. . . . 5
⊢
⊤⊧[(λx:α
Tz:α) =
T] |
17 | 8, 6, 11, 7, 12, 15, 16 | hbov 111 |
. . . 4
⊢
⊤⊧[(λx:α
[(λx:α Ay:α) ⇒ T]z:α) = [(λx:α
Ay:α)
⇒ T]] |
18 | | wv 64 |
. . . . . . . 8
⊢ x:α:α |
19 | 18, 5 | weqi 76 |
. . . . . . 7
⊢ [x:α =
y:α]:∗ |
20 | 4, 18 | wc 50 |
. . . . . . . 8
⊢
(λx:α Ax:α):∗ |
21 | 3 | beta 92 |
. . . . . . . 8
⊢
⊤⊧[(λx:α
Ax:α) =
A] |
22 | 20, 21 | eqcomi 79 |
. . . . . . 7
⊢
⊤⊧[A =
(λx:α Ax:α)] |
23 | 19, 22 | a1i 28 |
. . . . . 6
⊢ [x:α =
y:α]⊧[A = (λx:α
Ax:α)] |
24 | 19 | id 25 |
. . . . . . 7
⊢ [x:α =
y:α]⊧[x:α =
y:α] |
25 | 4, 18, 24 | ceq2 90 |
. . . . . 6
⊢ [x:α =
y:α]⊧[(λx:α
Ax:α) =
(λx:α Ay:α)] |
26 | 3, 23, 25 | eqtri 95 |
. . . . 5
⊢ [x:α =
y:α]⊧[A = (λx:α
Ay:α)] |
27 | 8, 3, 7, 26 | oveq1 99 |
. . . 4
⊢ [x:α =
y:α]⊧[[A ⇒ T] =
[(λx:α Ay:α) ⇒ T]] |
28 | 5, 9, 10, 17, 27 | insti 114 |
. . 3
⊢ R⊧[(λx:α
Ay:α)
⇒ T] |
29 | 6, 7, 28 | imp 157 |
. 2
⊢ (R, (λx:α
Ay:α))⊧T |
30 | 4, 29 | exlimdv2 166 |
1
⊢ (R, (∃λx:α
A))⊧T |