Theorem supelti 7119

Description: Supremum membership in a set. (Contributed by Jim Kingdon, 16-Jan-2022.)

Hypotheses

Ref	Expression
supelti.ti	⊢ ((𝜑 ∧ (𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴)) → (𝑢 = 𝑣 ↔ (¬ 𝑢𝑅𝑣 ∧ ¬ 𝑣𝑅𝑢)))
supelti.ex	⊢ (𝜑 → ∃𝑥 ∈ 𝐶 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))
supelti.ss	⊢ (𝜑 → 𝐶 ⊆ 𝐴)

Assertion

Ref	Expression
supelti	⊢ (𝜑 → sup(𝐵, 𝐴, 𝑅) ∈ 𝐶)

Distinct variable groups:   𝑢,𝐴,𝑣,𝑥   𝑦,𝐴,𝑧,𝑥   𝑥,𝐵,𝑦,𝑧   𝑥,𝐶   𝑢,𝑅,𝑣,𝑥   𝑦,𝑅,𝑧   𝜑,𝑢,𝑣,𝑥

Allowed substitution hints:   𝜑(𝑦,𝑧)   𝐵(𝑣,𝑢)   𝐶(𝑦,𝑧,𝑣,𝑢)

Proof of Theorem supelti

Step	Hyp	Ref	Expression
1		supelti.ti	. . . . 5 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴)) → (𝑢 = 𝑣 ↔ (¬ 𝑢𝑅𝑣 ∧ ¬ 𝑣𝑅𝑢)))
2		supelti.ss	. . . . . 6 ⊢ (𝜑 → 𝐶 ⊆ 𝐴)
3		supelti.ex	. . . . . 6 ⊢ (𝜑 → ∃𝑥 ∈ 𝐶 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))
4		ssrexv 3262	. . . . . 6 ⊢ (𝐶 ⊆ 𝐴 → (∃𝑥 ∈ 𝐶 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) → ∃𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))))
5	2, 3, 4	sylc 62	. . . . 5 ⊢ (𝜑 → ∃𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))
6	1, 5	supclti 7115	. . . 4 ⊢ (𝜑 → sup(𝐵, 𝐴, 𝑅) ∈ 𝐴)
7		elisset 2788	. . . 4 ⊢ (sup(𝐵, 𝐴, 𝑅) ∈ 𝐴 → ∃𝑥 𝑥 = sup(𝐵, 𝐴, 𝑅))
8	6, 7	syl 14	. . 3 ⊢ (𝜑 → ∃𝑥 𝑥 = sup(𝐵, 𝐴, 𝑅))
9		eqcom 2208	. . . 4 ⊢ (𝑥 = sup(𝐵, 𝐴, 𝑅) ↔ sup(𝐵, 𝐴, 𝑅) = 𝑥)
10	9	exbii 1629	. . 3 ⊢ (∃𝑥 𝑥 = sup(𝐵, 𝐴, 𝑅) ↔ ∃𝑥sup(𝐵, 𝐴, 𝑅) = 𝑥)
11	8, 10	sylib 122	. 2 ⊢ (𝜑 → ∃𝑥sup(𝐵, 𝐴, 𝑅) = 𝑥)
12		simpr 110	. . 3 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → sup(𝐵, 𝐴, 𝑅) = 𝑥)
13	1, 5	supval2ti 7112	. . . . . . . 8 ⊢ (𝜑 → sup(𝐵, 𝐴, 𝑅) = (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))))
14	13	eqeq1d 2215	. . . . . . 7 ⊢ (𝜑 → (sup(𝐵, 𝐴, 𝑅) = 𝑥 ↔ (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) = 𝑥))
15	14	biimpa 296	. . . . . 6 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) = 𝑥)
16	1, 5	supeuti 7111	. . . . . . . 8 ⊢ (𝜑 → ∃!𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))
17		riota1 5931	. . . . . . . 8 ⊢ (∃!𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) → ((𝑥 ∈ 𝐴 ∧ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) ↔ (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) = 𝑥))
18	16, 17	syl 14	. . . . . . 7 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ∧ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) ↔ (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) = 𝑥))
19	18	adantr 276	. . . . . 6 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → ((𝑥 ∈ 𝐴 ∧ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) ↔ (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) = 𝑥))
20	15, 19	mpbird 167	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → (𝑥 ∈ 𝐴 ∧ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))))
21	20	simpld 112	. . . 4 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → 𝑥 ∈ 𝐴)
22	2, 3, 16	jca32 310	. . . . 5 ⊢ (𝜑 → (𝐶 ⊆ 𝐴 ∧ (∃𝑥 ∈ 𝐶 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) ∧ ∃!𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))))
23	20	simprd 114	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))
24		reupick 3461	. . . . 5 ⊢ (((𝐶 ⊆ 𝐴 ∧ (∃𝑥 ∈ 𝐶 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) ∧ ∃!𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))) ∧ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) → (𝑥 ∈ 𝐶 ↔ 𝑥 ∈ 𝐴))
25	22, 23, 24	syl2an2r 595	. . . 4 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → (𝑥 ∈ 𝐶 ↔ 𝑥 ∈ 𝐴))
26	21, 25	mpbird 167	. . 3 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → 𝑥 ∈ 𝐶)
27	12, 26	eqeltrd 2283	. 2 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → sup(𝐵, 𝐴, 𝑅) ∈ 𝐶)
28	11, 27	exlimddv 1923	1 ⊢ (𝜑 → sup(𝐵, 𝐴, 𝑅) ∈ 𝐶)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   = wceq 1373  ∃wex 1516   ∈ wcel 2177  ∀wral 2485  ∃wrex 2486  ∃!wreu 2487   ⊆ wss 3170   class class class wbr 4051  ℩crio 5911  supcsup 7099

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 711  ax-5 1471  ax-7 1472  ax-gen 1473  ax-ie1 1517  ax-ie2 1518  ax-8 1528  ax-10 1529  ax-11 1530  ax-i12 1531  ax-bndl 1533  ax-4 1534  ax-17 1550  ax-i9 1554  ax-ial 1558  ax-i5r 1559  ax-ext 2188

This theorem depends on definitions:  df-bi 117  df-3an 983  df-tru 1376  df-fal 1379  df-nf 1485  df-sb 1787  df-eu 2058  df-mo 2059  df-clab 2193  df-cleq 2199  df-clel 2202  df-nfc 2338  df-ral 2490  df-rex 2491  df-reu 2492  df-rmo 2493  df-rab 2494  df-v 2775  df-sbc 3003  df-un 3174  df-in 3176  df-ss 3183  df-sn 3644  df-pr 3645  df-op 3647  df-uni 3857  df-br 4052  df-iota 5241  df-riota 5912  df-sup 7101

This theorem is referenced by:  zsupcl  10396