Theorem exval 133

Description: Value of the 'there exists' predicate.

Hypothesis

Ref	Expression
alval.1	⊢ F:(α → ∗)

Assertion

Ref	Expression
exval	⊢ ⊤⊧[(∃F) = (∀λq:∗ [(∀λx:α [(Fx:α) ⇒ q:∗]) ⇒ q:∗])]

Distinct variable groups:   x,q,α   q,F,x

Proof of Theorem exval

Dummy variable p is distinct from all other variables.

Step	Hyp	Ref	Expression
1		wex 129	. . 3 ⊢ ∃:((α → ∗) → ∗)
2		alval.1	. . 3 ⊢ F:(α → ∗)
3	1, 2	wc 45	. 2 ⊢ (∃F):∗
4		df-ex 121	. . 3 ⊢ ⊤⊧[∃ = λp:(α → ∗) (∀λq:∗ [(∀λx:α [(p:(α → ∗)x:α) ⇒ q:∗]) ⇒ q:∗])]
5	1, 2, 4	ceq1 79	. 2 ⊢ ⊤⊧[(∃F) = (λp:(α → ∗) (∀λq:∗ [(∀λx:α [(p:(α → ∗)x:α) ⇒ q:∗]) ⇒ q:∗])F)]
6		wal 124	. . . 4 ⊢ ∀:((∗ → ∗) → ∗)
7		wim 127	. . . . . 6 ⊢ ⇒ :(∗ → (∗ → ∗))
8		wal 124	. . . . . . 7 ⊢ ∀:((α → ∗) → ∗)
9		wv 58	. . . . . . . . . 10 ⊢ p:(α → ∗):(α → ∗)
10		wv 58	. . . . . . . . . 10 ⊢ x:α:α
11	9, 10	wc 45	. . . . . . . . 9 ⊢ (p:(α → ∗)x:α):∗
12		wv 58	. . . . . . . . 9 ⊢ q:∗:∗
13	7, 11, 12	wov 64	. . . . . . . 8 ⊢ [(p:(α → ∗)x:α) ⇒ q:∗]:∗
14	13	wl 59	. . . . . . 7 ⊢ λx:α [(p:(α → ∗)x:α) ⇒ q:∗]:(α → ∗)
15	8, 14	wc 45	. . . . . 6 ⊢ (∀λx:α [(p:(α → ∗)x:α) ⇒ q:∗]):∗
16	7, 15, 12	wov 64	. . . . 5 ⊢ [(∀λx:α [(p:(α → ∗)x:α) ⇒ q:∗]) ⇒ q:∗]:∗
17	16	wl 59	. . . 4 ⊢ λq:∗ [(∀λx:α [(p:(α → ∗)x:α) ⇒ q:∗]) ⇒ q:∗]:(∗ → ∗)
18	6, 17	wc 45	. . 3 ⊢ (∀λq:∗ [(∀λx:α [(p:(α → ∗)x:α) ⇒ q:∗]) ⇒ q:∗]):∗
19	9, 2	weqi 68	. . . . . . . . . . 11 ⊢ [p:(α → ∗) = F]:∗
20	19	id 25	. . . . . . . . . 10 ⊢ [p:(α → ∗) = F]⊧[p:(α → ∗) = F]
21	9, 10, 20	ceq1 79	. . . . . . . . 9 ⊢ [p:(α → ∗) = F]⊧[(p:(α → ∗)x:α) = (Fx:α)]
22	7, 11, 12, 21	oveq1 89	. . . . . . . 8 ⊢ [p:(α → ∗) = F]⊧[[(p:(α → ∗)x:α) ⇒ q:∗] = [(Fx:α) ⇒ q:∗]]
23	13, 22	leq 81	. . . . . . 7 ⊢ [p:(α → ∗) = F]⊧[λx:α [(p:(α → ∗)x:α) ⇒ q:∗] = λx:α [(Fx:α) ⇒ q:∗]]
24	8, 14, 23	ceq2 80	. . . . . 6 ⊢ [p:(α → ∗) = F]⊧[(∀λx:α [(p:(α → ∗)x:α) ⇒ q:∗]) = (∀λx:α [(Fx:α) ⇒ q:∗])]
25	7, 15, 12, 24	oveq1 89	. . . . 5 ⊢ [p:(α → ∗) = F]⊧[[(∀λx:α [(p:(α → ∗)x:α) ⇒ q:∗]) ⇒ q:∗] = [(∀λx:α [(Fx:α) ⇒ q:∗]) ⇒ q:∗]]
26	16, 25	leq 81	. . . 4 ⊢ [p:(α → ∗) = F]⊧[λq:∗ [(∀λx:α [(p:(α → ∗)x:α) ⇒ q:∗]) ⇒ q:∗] = λq:∗ [(∀λx:α [(Fx:α) ⇒ q:∗]) ⇒ q:∗]]
27	6, 17, 26	ceq2 80	. . 3 ⊢ [p:(α → ∗) = F]⊧[(∀λq:∗ [(∀λx:α [(p:(α → ∗)x:α) ⇒ q:∗]) ⇒ q:∗]) = (∀λq:∗ [(∀λx:α [(Fx:α) ⇒ q:∗]) ⇒ q:∗])]
28	18, 2, 27	cl 106	. 2 ⊢ ⊤⊧[(λp:(α → ∗) (∀λq:∗ [(∀λx:α [(p:(α → ∗)x:α) ⇒ q:∗]) ⇒ q:∗])F) = (∀λq:∗ [(∀λx:α [(Fx:α) ⇒ q:∗]) ⇒ q:∗])]
29	3, 5, 28	eqtri 85	1 ⊢ ⊤⊧[(∃F) = (∀λq:∗ [(∀λx:α [(Fx:α) ⇒ q:∗]) ⇒ q:∗])]

Syntax hints:  tv 1   → ht 2  ∗hb 3  kc 5  λkl 6   = ke 7  ⊤kt 8  [kbr 9  ⊧wffMMJ2 11  wffMMJ2t 12   ⇒ tim 111  ∀tal 112  ∃tex 113

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-ceq 46  ax-beta 60  ax-distrc 61  ax-leq 62  ax-hbl1 93  ax-17 95  ax-inst 103

This theorem depends on definitions:  df-ov 65  df-al 116  df-an 118  df-im 119  df-ex 121

This theorem is referenced by:  exlimdv2  156  ax4e  158  exlimd  171