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

Theorem alnex 186
Description: Theorem 19.7 of [Margaris] p. 89. (Contributed by Mario Carneiro, 10-Oct-2014.)
Hypothesis
Ref Expression
alnex1.1 ⊢ A:∗
Assertion
Ref Expression
alnex ⊢ ⊤⊧[(∀λx:α (¬ A)) = (¬ (∃λx:α A))]
Distinct variable group:   α,x

Proof of Theorem alnex
Dummy variable y is distinct from all other variables.
StepHypRef Expression
1 alnex1.1 . . . . . 6 ⊢ A:∗
2 wfal 135 . . . . . 6 ⊢ ⊥:∗
3 wnot 138 . . . . . . . . 9 ⊢ ¬ :(∗ → ∗)
43, 1wc 50 . . . . . . . 8 ⊢ (¬ A):∗
54ax4 150 . . . . . . 7 ⊢ (∀λx:α (¬ A))⊧(¬ A)
65ax-cb1 29 . . . . . . . 8 ⊢ (∀λx:α (¬ A)):∗
71notval 145 . . . . . . . 8 ⊢ ⊤⊧[(¬ A) = [A ⇒ ⊥]]
86, 7a1i 28 . . . . . . 7 ⊢ (∀λx:α (¬ A))⊧[(¬ A) = [A ⇒ ⊥]]
95, 8mpbi 82 . . . . . 6 ⊢ (∀λx:α (¬ A))⊧[A ⇒ ⊥]
101, 2, 9imp 157 . . . . 5 ⊢ ((∀λx:α (¬ A)), A)⊧⊥
11 wal 134 . . . . . 6 ⊢ ∀:((α → ∗) → ∗)
124wl 66 . . . . . 6 ⊢ λx:α (¬ A):(α → ∗)
13 wv 64 . . . . . 6 ⊢ y:α:α
1411, 13ax-17 105 . . . . . 6 ⊢ ⊤⊧[(λx:α ∀y:α) = ∀]
154, 13ax-hbl1 103 . . . . . 6 ⊢ ⊤⊧[(λx:α λx:α (¬ A)y:α) = λx:α (¬ A)]
1611, 12, 13, 14, 15hbc 110 . . . . 5 ⊢ ⊤⊧[(λx:α (∀λx:α (¬ A))y:α) = (∀λx:α (¬ A))]
172, 13ax-17 105 . . . . 5 ⊢ ⊤⊧[(λx:α ⊥y:α) = ⊥]
1810, 16, 17exlimd 183 . . . 4 ⊢ ((∀λx:α (¬ A)), (∃λx:α A))⊧⊥
1918ex 158 . . 3 ⊢ (∀λx:α (¬ A))⊧[(∃λx:α A) ⇒ ⊥]
20 wex 139 . . . . . 6 ⊢ ∃:((α → ∗) → ∗)
211wl 66 . . . . . 6 ⊢ λx:α A:(α → ∗)
2220, 21wc 50 . . . . 5 ⊢ (∃λx:α A):∗
2322notval 145 . . . 4 ⊢ ⊤⊧[(¬ (∃λx:α A)) = [(∃λx:α A) ⇒ ⊥]]
246, 23a1i 28 . . 3 ⊢ (∀λx:α (¬ A))⊧[(¬ (∃λx:α A)) = [(∃λx:α A) ⇒ ⊥]]
2519, 24mpbir 87 . 2 ⊢ (∀λx:α (¬ A))⊧(¬ (∃λx:α A))
26119.8a 170 . . . . . 6 ⊢ A⊧(∃λx:α A)
27 wtru 43 . . . . . 6 ⊢ ⊤:∗
2826, 27adantl 56 . . . . 5 ⊢ (⊤, A)⊧(∃λx:α A)
2928con3d 162 . . . 4 ⊢ (⊤, (¬ (∃λx:α A)))⊧(¬ A)
3029trul 39 . . 3 ⊢ (¬ (∃λx:α A))⊧(¬ A)
313, 13ax-17 105 . . . 4 ⊢ ⊤⊧[(λx:α ¬ y:α) = ¬ ]
3220, 13ax-17 105 . . . . 5 ⊢ ⊤⊧[(λx:α ∃y:α) = ∃]
331, 13ax-hbl1 103 . . . . 5 ⊢ ⊤⊧[(λx:α λx:α Ay:α) = λx:α A]
3420, 21, 13, 32, 33hbc 110 . . . 4 ⊢ ⊤⊧[(λx:α (∃λx:α A)y:α) = (∃λx:α A)]
353, 22, 13, 31, 34hbc 110 . . 3 ⊢ ⊤⊧[(λx:α (¬ (∃λx:α A))y:α) = (¬ (∃λx:α A))]
3630, 35alrimi 182 . 2 ⊢ (¬ (∃λx:α A))⊧(∀λx:α (¬ A))
3725, 36dedi 85 1 ⊢ ⊤⊧[(∀λx:α (¬ A)) = (¬ (∃λx:α A))]
Colors of variables:    type var term
This proof depends on syntax axioms:  tv 1   → ht 2  ∗hb 3  kc 5  λkl 6   = ke 7  ⊤kt 8  [kbr 9  ⊧wffMMJ2 11  wffMMJ2t 12  ⊥tfal 118  ¬ tne 120   ⇒ tim 121  ∀tal 122  ∃tex 123
This proof depends on 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-wctl 31  ax-wctr 32  ax-weq 40  ax-refl 42  ax-eqmp 45  ax-ded 46  ax-wct 47  ax-wc 49  ax-ceq 51  ax-wv 63  ax-wl 65  ax-beta 67  ax-distrc 68  ax-leq 69  ax-distrl 70  ax-wov 71  ax-eqtypi 77  ax-eqtypri 80  ax-hbl1 103  ax-17 105  ax-inst 113  ax-eta 177
This proof depends on definitions:  df-ov 73  df-al 126  df-fal 127  df-an 128  df-im 129  df-not 130  df-ex 131
This theorem is used by:  exnal1  187  exnal  201  ax9  212
  Copyright terms: Public domain W3C validator