Step | Hyp | Ref
| Expression |
1 | | ax5.2 |
. . . . . 6
⊢ S:∗ |
2 | | ax5.1 |
. . . . . . . 8
⊢ R:∗ |
3 | 2 | ax4 150 |
. . . . . . 7
⊢ (∀λx:α
R)⊧R |
4 | | wal 134 |
. . . . . . . 8
⊢ ∀:((α
→ ∗) → ∗) |
5 | | wim 137 |
. . . . . . . . . 10
⊢ ⇒ :(∗
→ (∗ → ∗)) |
6 | 5, 2, 1 | wov 72 |
. . . . . . . . 9
⊢ [R ⇒ S]:∗ |
7 | 6 | wl 66 |
. . . . . . . 8
⊢
λx:α [R
⇒ S]:(α → ∗) |
8 | 4, 7 | wc 50 |
. . . . . . 7
⊢ (∀λx:α
[R ⇒ S]):∗ |
9 | 3, 8 | adantl 56 |
. . . . . 6
⊢ ((∀λx:α
[R ⇒ S]), (∀λx:α
R))⊧R |
10 | 6 | ax4 150 |
. . . . . . 7
⊢ (∀λx:α
[R ⇒ S])⊧[R
⇒ S] |
11 | 3 | ax-cb1 29 |
. . . . . . 7
⊢ (∀λx:α
R):∗ |
12 | 10, 11 | adantr 55 |
. . . . . 6
⊢ ((∀λx:α
[R ⇒ S]), (∀λx:α
R))⊧[R ⇒ S] |
13 | 1, 9, 12 | mpd 156 |
. . . . 5
⊢ ((∀λx:α
[R ⇒ S]), (∀λx:α
R))⊧S |
14 | | wv 64 |
. . . . . 6
⊢ y:α:α |
15 | 4, 14 | ax-17 105 |
. . . . . . 7
⊢
⊤⊧[(λx:α ∀y:α) = ∀] |
16 | 6, 14 | ax-hbl1 103 |
. . . . . . 7
⊢
⊤⊧[(λx:α
λx:α [R
⇒ S]y:α) =
λx:α [R
⇒ S]] |
17 | 4, 7, 14, 15, 16 | hbc 110 |
. . . . . 6
⊢
⊤⊧[(λx:α (∀λx:α
[R ⇒ S])y:α) = (∀λx:α
[R ⇒ S])] |
18 | 2 | wl 66 |
. . . . . . 7
⊢
λx:α R:(α
→ ∗) |
19 | 2, 14 | ax-hbl1 103 |
. . . . . . 7
⊢
⊤⊧[(λx:α
λx:α Ry:α) = λx:α
R] |
20 | 4, 18, 14, 15, 19 | hbc 110 |
. . . . . 6
⊢
⊤⊧[(λx:α (∀λx:α
R)y:α) =
(∀λx:α
R)] |
21 | 8, 14, 11, 17, 20 | hbct 155 |
. . . . 5
⊢
⊤⊧[(λx:α
((∀λx:α
[R ⇒ S]), (∀λx:α
R))y:α) =
((∀λx:α
[R ⇒ S]), (∀λx:α
R))] |
22 | 13, 21 | alrimi 182 |
. . . 4
⊢ ((∀λx:α
[R ⇒ S]), (∀λx:α
R))⊧(∀λx:α
S) |
23 | 22 | ex 158 |
. . 3
⊢ (∀λx:α
[R ⇒ S])⊧[(∀λx:α
R) ⇒ (∀λx:α
S)] |
24 | | wtru 43 |
. . 3
⊢
⊤:∗ |
25 | 23, 24 | adantl 56 |
. 2
⊢ (⊤, (∀λx:α
[R ⇒ S]))⊧[(∀λx:α
R) ⇒ (∀λx:α
S)] |
26 | 25 | ex 158 |
1
⊢
⊤⊧[(∀λx:α
[R ⇒ S]) ⇒ [(∀λx:α
R) ⇒ (∀λx:α
S)]] |