Step | Hyp | Ref
| Expression |
1 | | wal 134 |
. . . 4
⊢ ∀:((∗ → ∗) →
∗) |
2 | | wim 137 |
. . . . . 6
⊢ ⇒ :(∗
→ (∗ → ∗)) |
3 | | wal 134 |
. . . . . . 7
⊢ ∀:((α
→ ∗) → ∗) |
4 | | wv 64 |
. . . . . . . . . 10
⊢ p:(α
→ ∗):(α →
∗) |
5 | | wv 64 |
. . . . . . . . . 10
⊢ x:α:α |
6 | 4, 5 | wc 50 |
. . . . . . . . 9
⊢ (p:(α
→ ∗)x:α):∗ |
7 | | wv 64 |
. . . . . . . . 9
⊢ q:∗:∗ |
8 | 2, 6, 7 | wov 72 |
. . . . . . . 8
⊢ [(p:(α
→ ∗)x:α) ⇒ q:∗]:∗ |
9 | 8 | wl 66 |
. . . . . . 7
⊢
λx:α [(p:(α
→ ∗)x:α) ⇒ q:∗]:(α → ∗) |
10 | 3, 9 | wc 50 |
. . . . . 6
⊢ (∀λx:α
[(p:(α → ∗)x:α)
⇒ q:∗]):∗ |
11 | 2, 10, 7 | wov 72 |
. . . . 5
⊢ [(∀λx:α
[(p:(α → ∗)x:α)
⇒ q:∗]) ⇒ q:∗]:∗ |
12 | 11 | wl 66 |
. . . 4
⊢
λq:∗ [(∀λx:α
[(p:(α → ∗)x:α)
⇒ q:∗]) ⇒ q:∗]:(∗ →
∗) |
13 | 1, 12 | wc 50 |
. . 3
⊢ (∀λq:∗ [(∀λx:α
[(p:(α → ∗)x:α)
⇒ q:∗]) ⇒ q:∗]):∗ |
14 | 13 | wl 66 |
. 2
⊢
λp:(α → ∗) (∀λq:∗ [(∀λx:α
[(p:(α → ∗)x:α)
⇒ q:∗]) ⇒ q:∗]):((α → ∗) →
∗) |
15 | | df-ex 131 |
. 2
⊢
⊤⊧[∃ =
λp:(α → ∗) (∀λq:∗ [(∀λx:α
[(p:(α → ∗)x:α)
⇒ q:∗]) ⇒ q:∗])] |
16 | 14, 15 | eqtypri 81 |
1
⊢ ∃:((α
→ ∗) → ∗) |