Step | Hyp | Ref
| Expression |
1 | | wv 64 |
. . . . 5
⊢ p:∗:∗ |
2 | | ax4e.1 |
. . . . . . 7
⊢ F:(α
→ ∗) |
3 | | ax4e.2 |
. . . . . . 7
⊢ A:α |
4 | 2, 3 | wc 50 |
. . . . . 6
⊢ (FA):∗ |
5 | | wal 134 |
. . . . . . 7
⊢ ∀:((α
→ ∗) → ∗) |
6 | | wim 137 |
. . . . . . . . 9
⊢ ⇒ :(∗
→ (∗ → ∗)) |
7 | | wv 64 |
. . . . . . . . . 10
⊢ x:α:α |
8 | 2, 7 | wc 50 |
. . . . . . . . 9
⊢ (Fx:α):∗ |
9 | 6, 8, 1 | wov 72 |
. . . . . . . 8
⊢ [(Fx:α) ⇒ p:∗]:∗ |
10 | 9 | wl 66 |
. . . . . . 7
⊢
λx:α [(Fx:α) ⇒ p:∗]:(α → ∗) |
11 | 5, 10 | wc 50 |
. . . . . 6
⊢ (∀λx:α
[(Fx:α)
⇒ p:∗]):∗ |
12 | 4, 11 | simpl 22 |
. . . . 5
⊢ ((FA), (∀λx:α
[(Fx:α)
⇒ p:∗]))⊧(FA) |
13 | 7, 3 | weqi 76 |
. . . . . . . . . 10
⊢ [x:α =
A]:∗ |
14 | 13 | id 25 |
. . . . . . . . 9
⊢ [x:α =
A]⊧[x:α =
A] |
15 | 2, 7, 14 | ceq2 90 |
. . . . . . . 8
⊢ [x:α =
A]⊧[(Fx:α) = (FA)] |
16 | 6, 8, 1, 15 | oveq1 99 |
. . . . . . 7
⊢ [x:α =
A]⊧[[(Fx:α) ⇒ p:∗] = [(FA) ⇒
p:∗]] |
17 | 9, 3, 16 | cla4v 152 |
. . . . . 6
⊢ (∀λx:α
[(Fx:α)
⇒ p:∗])⊧[(FA) ⇒
p:∗] |
18 | 17, 4 | adantl 56 |
. . . . 5
⊢ ((FA), (∀λx:α
[(Fx:α)
⇒ p:∗]))⊧[(FA) ⇒
p:∗] |
19 | 1, 12, 18 | mpd 156 |
. . . 4
⊢ ((FA), (∀λx:α
[(Fx:α)
⇒ p:∗]))⊧p:∗ |
20 | 19 | ex 158 |
. . 3
⊢ (FA)⊧[(∀λx:α
[(Fx:α)
⇒ p:∗]) ⇒ p:∗] |
21 | 20 | alrimiv 151 |
. 2
⊢ (FA)⊧(∀λp:∗ [(∀λx:α
[(Fx:α)
⇒ p:∗]) ⇒ p:∗]) |
22 | 2 | exval 143 |
. . 3
⊢
⊤⊧[(∃F) = (∀λp:∗ [(∀λx:α
[(Fx:α)
⇒ p:∗]) ⇒ p:∗])] |
23 | 4, 22 | a1i 28 |
. 2
⊢ (FA)⊧[(∃F) = (∀λp:∗ [(∀λx:α
[(Fx:α)
⇒ p:∗]) ⇒ p:∗])] |
24 | 21, 23 | mpbir 87 |
1
⊢ (FA)⊧(∃F) |