HOLE Home Higher-Order Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  HOLE Home  >  Th. List  >  ax11 GIF version

Theorem ax11 201
Description: Axiom of Variable Substitution. It is based on Lemma 16 of [Tarski] p. 70 and Axiom C8 of [Monk2] p. 105, from which it can be proved by cases.
Hypothesis
Ref Expression
ax11.1 A:∗
Assertion
Ref Expression
ax11 ⊤⊧[[x:α = y:α] ⇒ [(λy:α A) ⇒ (λx:α [[x:α = y:α] ⇒ A])]]
Distinct variable groups:   x,A   x,y,α

Proof of Theorem ax11
StepHypRef Expression
1 wal 124 . . . . . . . 8 :((α → ∗) → ∗)
2 ax11.1 . . . . . . . . 9 A:∗
32wl 59 . . . . . . . 8 λy:α A:(α → ∗)
41, 3wc 45 . . . . . . 7 (λy:α A):∗
54id 25 . . . . . 6 (λy:α A)⊧(λy:α A)
6 wv 58 . . . . . . . . . 10 x:α:α
73, 6wc 45 . . . . . . . . 9 (λy:α Ax:α):∗
87wl 59 . . . . . . . 8 λx:α (λy:α Ax:α):(α → ∗)
93eta 166 . . . . . . . 8 ⊤⊧[λx:α (λy:α Ax:α) = λy:α A]
101, 8, 9ceq2 80 . . . . . . 7 ⊤⊧[(λx:α (λy:α Ax:α)) = (λy:α A)]
114, 10a1i 28 . . . . . 6 (λy:α A)⊧[(λx:α (λy:α Ax:α)) = (λy:α A)]
125, 11mpbir 77 . . . . 5 (λy:α A)⊧(λx:α (λy:α Ax:α))
13 wim 127 . . . . . . . . 9 ⇒ :(∗ → (∗ → ∗))
14 wv 58 . . . . . . . . . 10 y:α:α
156, 14weqi 68 . . . . . . . . 9 [x:α = y:α]:∗
1613, 15, 2wov 64 . . . . . . . 8 [[x:α = y:α] ⇒ A]:∗
1716wl 59 . . . . . . 7 λx:α [[x:α = y:α] ⇒ A]:(α → ∗)
181, 17wc 45 . . . . . 6 (λx:α [[x:α = y:α] ⇒ A]):∗
191, 8wc 45 . . . . . . 7 (λx:α (λy:α Ax:α)):∗
2019id 25 . . . . . 6 (λx:α (λy:α Ax:α))⊧(λx:α (λy:α Ax:α))
2115, 4simpr 23 . . . . . . . . . . 11 ([x:α = y:α], (λy:α A))⊧(λy:α A)
2221ax-cb1 29 . . . . . . . . . . . 12 ([x:α = y:α], (λy:α A)):∗
2322, 10a1i 28 . . . . . . . . . . 11 ([x:α = y:α], (λy:α A))⊧[(λx:α (λy:α Ax:α)) = (λy:α A)]
2421, 23mpbir 77 . . . . . . . . . 10 ([x:α = y:α], (λy:α A))⊧(λx:α (λy:α Ax:α))
2524ax-cb2 30 . . . . . . . . 9 (λx:α (λy:α Ax:α)):∗
2613, 25, 18wov 64 . . . . . . . 8 [(λx:α (λy:α Ax:α)) ⇒ (λx:α [[x:α = y:α] ⇒ A])]:∗
277, 15simpl 22 . . . . . . . . . . . . 13 ((λy:α Ax:α), [x:α = y:α])⊧(λy:α Ax:α)
287, 15simpr 23 . . . . . . . . . . . . . . 15 ((λy:α Ax:α), [x:α = y:α])⊧[x:α = y:α]
293, 6, 28ceq2 80 . . . . . . . . . . . . . 14 ((λy:α Ax:α), [x:α = y:α])⊧[(λy:α Ax:α) = (λy:α Ay:α)]
307, 15wct 44 . . . . . . . . . . . . . . 15 ((λy:α Ax:α), [x:α = y:α]):∗
312beta 82 . . . . . . . . . . . . . . 15 ⊤⊧[(λy:α Ay:α) = A]
3230, 31a1i 28 . . . . . . . . . . . . . 14 ((λy:α Ax:α), [x:α = y:α])⊧[(λy:α Ay:α) = A]
337, 29, 32eqtri 85 . . . . . . . . . . . . 13 ((λy:α Ax:α), [x:α = y:α])⊧[(λy:α Ax:α) = A]
3427, 33mpbi 72 . . . . . . . . . . . 12 ((λy:α Ax:α), [x:α = y:α])⊧A
3534ex 148 . . . . . . . . . . 11 (λy:α Ax:α)⊧[[x:α = y:α] ⇒ A]
36 wtru 40 . . . . . . . . . . 11 ⊤:∗
3735, 36adantl 51 . . . . . . . . . 10 (⊤, (λy:α Ax:α))⊧[[x:α = y:α] ⇒ A]
3837ex 148 . . . . . . . . 9 ⊤⊧[(λy:α Ax:α) ⇒ [[x:α = y:α] ⇒ A]]
3938alrimiv 141 . . . . . . . 8 ⊤⊧(λx:α [(λy:α Ax:α) ⇒ [[x:α = y:α] ⇒ A]])
407, 16ax5 194 . . . . . . . 8 ⊤⊧[(λx:α [(λy:α Ax:α) ⇒ [[x:α = y:α] ⇒ A]]) ⇒ [(λx:α (λy:α Ax:α)) ⇒ (λx:α [[x:α = y:α] ⇒ A])]]
4126, 39, 40mpd 146 . . . . . . 7 ⊤⊧[(λx:α (λy:α Ax:α)) ⇒ (λx:α [[x:α = y:α] ⇒ A])]
4219, 41a1i 28 . . . . . 6 (λx:α (λy:α Ax:α))⊧[(λx:α (λy:α Ax:α)) ⇒ (λx:α [[x:α = y:α] ⇒ A])]
4318, 20, 42mpd 146 . . . . 5 (λx:α (λy:α Ax:α))⊧(λx:α [[x:α = y:α] ⇒ A])
4412, 43syl 16 . . . 4 (λy:α A)⊧(λx:α [[x:α = y:α] ⇒ A])
4536, 15wct 44 . . . 4 (⊤, [x:α = y:α]):∗
4644, 45adantl 51 . . 3 ((⊤, [x:α = y:α]), (λy:α A))⊧(λx:α [[x:α = y:α] ⇒ A])
4746ex 148 . 2 (⊤, [x:α = y:α])⊧[(λy:α A) ⇒ (λx:α [[x:α = y:α] ⇒ A])]
4847ex 148 1 ⊤⊧[[x:α = y:α] ⇒ [(λy:α A) ⇒ (λx:α [[x:α = y:α] ⇒ A])]]
Colors of variables: type var term
Syntax hints:  tv 1  ht 2  hb 3  kc 5  λkl 6   = ke 7  kt 8  [kbr 9  kct 10  wffMMJ2 11  wffMMJ2t 12  tim 111  tal 112
This theorem was proved from axioms:  ax-syl 15  ax-jca 17  ax-simpl 20  ax-simpr 21  ax-id 24  ax-trud 26  ax-cb1 29  ax-cb2 30  ax-refl 39  ax-eqmp 42  ax-ded 43  ax-ceq 46  ax-beta 60  ax-distrc 61  ax-leq 62  ax-distrl 63  ax-hbl1 93  ax-17 95  ax-inst 103  ax-eta 165
This theorem depends on definitions:  df-ov 65  df-al 116  df-an 118  df-im 119
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator