Theorem axpow 208

Description: Axiom of Power Sets. An axiom of Zermelo-Fraenkel set theory.

Hypothesis

Ref	Expression
axpow.1	⊢ A:(α → ∗)

Assertion

Ref	Expression
axpow	⊢ ⊤⊧(∃λy:((α → ∗) → ∗) (∀λz:(α → ∗) [(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ (y:((α → ∗) → ∗)z:(α → ∗))]))

Distinct variable groups:   x,y   y,A   y,z,α

Proof of Theorem axpow

Dummy variable p is distinct from all other variables.

Step	Hyp	Ref	Expression
1		wtru 40	. . . . 5 ⊢ ⊤:∗
2		wal 124	. . . . . 6 ⊢ ∀:((α → ∗) → ∗)
3		wim 127	. . . . . . . 8 ⊢ ⇒ :(∗ → (∗ → ∗))
4		wv 58	. . . . . . . . 9 ⊢ z:(α → ∗):(α → ∗)
5		wv 58	. . . . . . . . 9 ⊢ x:α:α
6	4, 5	wc 45	. . . . . . . 8 ⊢ (z:(α → ∗)x:α):∗
7		axpow.1	. . . . . . . . 9 ⊢ A:(α → ∗)
8	7, 5	wc 45	. . . . . . . 8 ⊢ (Ax:α):∗
9	3, 6, 8	wov 64	. . . . . . 7 ⊢ [(z:(α → ∗)x:α) ⇒ (Ax:α)]:∗
10	9	wl 59	. . . . . 6 ⊢ λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]:(α → ∗)
11	2, 10	wc 45	. . . . 5 ⊢ (∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]):∗
12	1, 11	simpl 22	. . . 4 ⊢ (⊤, (∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]))⊧⊤
13	12	ex 148	. . 3 ⊢ ⊤⊧[(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ ⊤]
14	13	alrimiv 141	. 2 ⊢ ⊤⊧(∀λz:(α → ∗) [(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ ⊤])
15		wal 124	. . . 4 ⊢ ∀:(((α → ∗) → ∗) → ∗)
16		wv 58	. . . . . . 7 ⊢ y:((α → ∗) → ∗):((α → ∗) → ∗)
17	16, 4	wc 45	. . . . . 6 ⊢ (y:((α → ∗) → ∗)z:(α → ∗)):∗
18	3, 11, 17	wov 64	. . . . 5 ⊢ [(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ (y:((α → ∗) → ∗)z:(α → ∗))]:∗
19	18	wl 59	. . . 4 ⊢ λz:(α → ∗) [(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ (y:((α → ∗) → ∗)z:(α → ∗))]:((α → ∗) → ∗)
20	15, 19	wc 45	. . 3 ⊢ (∀λz:(α → ∗) [(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ (y:((α → ∗) → ∗)z:(α → ∗))]):∗
21	1	wl 59	. . 3 ⊢ λp:(α → ∗) ⊤:((α → ∗) → ∗)
22	16, 21	weqi 68	. . . . . . . . 9 ⊢ [y:((α → ∗) → ∗) = λp:(α → ∗) ⊤]:∗
23	22	id 25	. . . . . . . 8 ⊢ [y:((α → ∗) → ∗) = λp:(α → ∗) ⊤]⊧[y:((α → ∗) → ∗) = λp:(α → ∗) ⊤]
24	16, 4, 23	ceq1 79	. . . . . . 7 ⊢ [y:((α → ∗) → ∗) = λp:(α → ∗) ⊤]⊧[(y:((α → ∗) → ∗)z:(α → ∗)) = (λp:(α → ∗) ⊤z:(α → ∗))]
25		wv 58	. . . . . . . . . . 11 ⊢ p:(α → ∗):(α → ∗)
26	25, 4	weqi 68	. . . . . . . . . 10 ⊢ [p:(α → ∗) = z:(α → ∗)]:∗
27	26, 1	eqid 73	. . . . . . . . 9 ⊢ [p:(α → ∗) = z:(α → ∗)]⊧[⊤ = ⊤]
28	1, 4, 27	cl 106	. . . . . . . 8 ⊢ ⊤⊧[(λp:(α → ∗) ⊤z:(α → ∗)) = ⊤]
29	22, 28	a1i 28	. . . . . . 7 ⊢ [y:((α → ∗) → ∗) = λp:(α → ∗) ⊤]⊧[(λp:(α → ∗) ⊤z:(α → ∗)) = ⊤]
30	17, 24, 29	eqtri 85	. . . . . 6 ⊢ [y:((α → ∗) → ∗) = λp:(α → ∗) ⊤]⊧[(y:((α → ∗) → ∗)z:(α → ∗)) = ⊤]
31	3, 11, 17, 30	oveq2 91	. . . . 5 ⊢ [y:((α → ∗) → ∗) = λp:(α → ∗) ⊤]⊧[[(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ (y:((α → ∗) → ∗)z:(α → ∗))] = [(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ ⊤]]
32	18, 31	leq 81	. . . 4 ⊢ [y:((α → ∗) → ∗) = λp:(α → ∗) ⊤]⊧[λz:(α → ∗) [(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ (y:((α → ∗) → ∗)z:(α → ∗))] = λz:(α → ∗) [(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ ⊤]]
33	15, 19, 32	ceq2 80	. . 3 ⊢ [y:((α → ∗) → ∗) = λp:(α → ∗) ⊤]⊧[(∀λz:(α → ∗) [(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ (y:((α → ∗) → ∗)z:(α → ∗))]) = (∀λz:(α → ∗) [(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ ⊤])]
34	20, 21, 33	cla4ev 159	. 2 ⊢ (∀λz:(α → ∗) [(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ ⊤])⊧(∃λy:((α → ∗) → ∗) (∀λz:(α → ∗) [(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ (y:((α → ∗) → ∗)z:(α → ∗))]))
35	14, 34	syl 16	1 ⊢ ⊤⊧(∃λy:((α → ∗) → ∗) (∀λz:(α → ∗) [(∀λx:α [(z:(α → ∗)x:α) ⇒ (Ax:α)]) ⇒ (y:((α → ∗) → ∗)z:(α → ∗))]))

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-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

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: (None)