Theorem axprlem4 5304

Description: Lemma for axpr 5306. The first element of the pair is included in any superset of the set whose existence is asserted by the axiom of replacement. (Contributed by Rohan Ridenour, 10-Aug-2023.) (Revised by BJ, 13-Aug-2023.)

Assertion

Ref	Expression
axprlem4	⊢ ((∀𝑠(∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑠 ∈ 𝑝) ∧ 𝑤 = 𝑥) → ∃𝑠(𝑠 ∈ 𝑝 ∧ if-(∃𝑛 𝑛 ∈ 𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))

Distinct variable groups:   𝑥,𝑠   𝑤,𝑠   𝑡,𝑛,𝑠

Proof of Theorem axprlem4

Step	Hyp	Ref	Expression
1		axprlem1 5301	. . 3 ⊢ ∃𝑠∀𝑛(∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑛 ∈ 𝑠)
2	1	bm1.3ii 5180	. 2 ⊢ ∃𝑠∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛)
3		nfa1 2154	. . . 4 ⊢ Ⅎ𝑠∀𝑠(∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑠 ∈ 𝑝)
4		nfv 1922	. . . 4 ⊢ Ⅎ𝑠 𝑤 = 𝑥
5	3, 4	nfan 1907	. . 3 ⊢ Ⅎ𝑠(∀𝑠(∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑠 ∈ 𝑝) ∧ 𝑤 = 𝑥)
6		biimp 218	. . . . . . . . 9 ⊢ ((𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) → (𝑛 ∈ 𝑠 → ∀𝑡 ¬ 𝑡 ∈ 𝑛))
7	6	alimi 1819	. . . . . . . 8 ⊢ (∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) → ∀𝑛(𝑛 ∈ 𝑠 → ∀𝑡 ¬ 𝑡 ∈ 𝑛))
8		df-ral 3056	. . . . . . . 8 ⊢ (∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 ↔ ∀𝑛(𝑛 ∈ 𝑠 → ∀𝑡 ¬ 𝑡 ∈ 𝑛))
9	7, 8	sylibr 237	. . . . . . 7 ⊢ (∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) → ∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛)
10		sp 2182	. . . . . . 7 ⊢ (∀𝑠(∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑠 ∈ 𝑝) → (∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑠 ∈ 𝑝))
11	9, 10	mpan9 510	. . . . . 6 ⊢ ((∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) ∧ ∀𝑠(∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑠 ∈ 𝑝)) → 𝑠 ∈ 𝑝)
12	11	adantrr 717	. . . . 5 ⊢ ((∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) ∧ (∀𝑠(∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑠 ∈ 𝑝) ∧ 𝑤 = 𝑥)) → 𝑠 ∈ 𝑝)
13		ax-nul 5184	. . . . . . 7 ⊢ ∃𝑛∀𝑡 ¬ 𝑡 ∈ 𝑛
14		nfa1 2154	. . . . . . . 8 ⊢ Ⅎ𝑛∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛)
15		sp 2182	. . . . . . . . 9 ⊢ (∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) → (𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛))
16	15	biimprd 251	. . . . . . . 8 ⊢ (∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) → (∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑛 ∈ 𝑠))
17	14, 16	eximd 2216	. . . . . . 7 ⊢ (∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) → (∃𝑛∀𝑡 ¬ 𝑡 ∈ 𝑛 → ∃𝑛 𝑛 ∈ 𝑠))
18	13, 17	mpi 20	. . . . . 6 ⊢ (∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) → ∃𝑛 𝑛 ∈ 𝑠)
19		simprr 773	. . . . . 6 ⊢ ((∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) ∧ (∀𝑠(∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑠 ∈ 𝑝) ∧ 𝑤 = 𝑥)) → 𝑤 = 𝑥)
20		ifptru 1076	. . . . . . 7 ⊢ (∃𝑛 𝑛 ∈ 𝑠 → (if-(∃𝑛 𝑛 ∈ 𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦) ↔ 𝑤 = 𝑥))
21	20	biimpar 481	. . . . . 6 ⊢ ((∃𝑛 𝑛 ∈ 𝑠 ∧ 𝑤 = 𝑥) → if-(∃𝑛 𝑛 ∈ 𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))
22	18, 19, 21	syl2an2r 685	. . . . 5 ⊢ ((∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) ∧ (∀𝑠(∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑠 ∈ 𝑝) ∧ 𝑤 = 𝑥)) → if-(∃𝑛 𝑛 ∈ 𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))
23	12, 22	jca 515	. . . 4 ⊢ ((∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) ∧ (∀𝑠(∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑠 ∈ 𝑝) ∧ 𝑤 = 𝑥)) → (𝑠 ∈ 𝑝 ∧ if-(∃𝑛 𝑛 ∈ 𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))
24	23	expcom 417	. . 3 ⊢ ((∀𝑠(∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑠 ∈ 𝑝) ∧ 𝑤 = 𝑥) → (∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) → (𝑠 ∈ 𝑝 ∧ if-(∃𝑛 𝑛 ∈ 𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
25	5, 24	eximd 2216	. 2 ⊢ ((∀𝑠(∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑠 ∈ 𝑝) ∧ 𝑤 = 𝑥) → (∃𝑠∀𝑛(𝑛 ∈ 𝑠 ↔ ∀𝑡 ¬ 𝑡 ∈ 𝑛) → ∃𝑠(𝑠 ∈ 𝑝 ∧ if-(∃𝑛 𝑛 ∈ 𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
26	2, 25	mpi 20	1 ⊢ ((∀𝑠(∀𝑛 ∈ 𝑠 ∀𝑡 ¬ 𝑡 ∈ 𝑛 → 𝑠 ∈ 𝑝) ∧ 𝑤 = 𝑥) → ∃𝑠(𝑠 ∈ 𝑝 ∧ if-(∃𝑛 𝑛 ∈ 𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 399  if-wif 1063  ∀wal 1541  ∃wex 1787  ∀wral 3051

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2018  ax-9 2122  ax-10 2143  ax-12 2177  ax-sep 5177  ax-nul 5184  ax-pow 5243

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-ifp 1064  df-tru 1546  df-ex 1788  df-nf 1792  df-ral 3056

This theorem is referenced by:  axpr  5306