Step | Hyp | Ref
| Expression |
1 | | wal 134 |
. . . . . . . 8
⊢ ∀:((α
→ ∗) → ∗) |
2 | | ax7.1 |
. . . . . . . . 9
⊢ R:∗ |
3 | 2 | wl 66 |
. . . . . . . 8
⊢
λy:α R:(α
→ ∗) |
4 | 1, 3 | wc 50 |
. . . . . . 7
⊢ (∀λy:α
R):∗ |
5 | 4 | ax4 150 |
. . . . . 6
⊢ (∀λx:α (∀λy:α
R))⊧(∀λy:α
R) |
6 | 2 | ax4 150 |
. . . . . 6
⊢ (∀λy:α
R)⊧R |
7 | 5, 6 | syl 16 |
. . . . 5
⊢ (∀λx:α (∀λy:α
R))⊧R |
8 | 4 | wl 66 |
. . . . . 6
⊢
λx:α (∀λy:α
R):(α → ∗) |
9 | | wv 64 |
. . . . . 6
⊢ z:α:α |
10 | 1, 9 | ax-17 105 |
. . . . . 6
⊢
⊤⊧[(λx:α ∀z:α) = ∀] |
11 | 4, 9 | ax-hbl1 103 |
. . . . . 6
⊢
⊤⊧[(λx:α
λx:α (∀λy:α
R)z:α) =
λx:α (∀λy:α
R)] |
12 | 1, 8, 9, 10, 11 | hbc 110 |
. . . . 5
⊢
⊤⊧[(λx:α (∀λx:α (∀λy:α
R))z:α) =
(∀λx:α (∀λy:α
R))] |
13 | 7, 12 | alrimi 182 |
. . . 4
⊢ (∀λx:α (∀λy:α
R))⊧(∀λx:α
R) |
14 | 1, 9 | ax-17 105 |
. . . . 5
⊢
⊤⊧[(λy:α ∀z:α) = ∀] |
15 | 2, 9 | ax-hbl1 103 |
. . . . . . 7
⊢
⊤⊧[(λy:α
λy:α Rz:α) = λy:α
R] |
16 | 1, 3, 9, 14, 15 | hbc 110 |
. . . . . 6
⊢
⊤⊧[(λy:α (∀λy:α
R)z:α) =
(∀λy:α
R)] |
17 | 4, 9, 16 | hbl 112 |
. . . . 5
⊢
⊤⊧[(λy:α
λx:α (∀λy:α
R)z:α) =
λx:α (∀λy:α
R)] |
18 | 1, 8, 9, 14, 17 | hbc 110 |
. . . 4
⊢
⊤⊧[(λy:α (∀λx:α (∀λy:α
R))z:α) =
(∀λx:α (∀λy:α
R))] |
19 | 13, 18 | alrimi 182 |
. . 3
⊢ (∀λx:α (∀λy:α
R))⊧(∀λy:α (∀λx:α
R)) |
20 | | wtru 43 |
. . 3
⊢
⊤:∗ |
21 | 19, 20 | adantl 56 |
. 2
⊢ (⊤, (∀λx:α (∀λy:α
R)))⊧(∀λy:α (∀λx:α
R)) |
22 | 21 | ex 158 |
1
⊢
⊤⊧[(∀λx:α (∀λy:α
R)) ⇒ (∀λy:α (∀λx:α
R))] |