Theorem supelti 7061

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 3244	. . . . . 6 ⊢ (𝐶 ⊆ 𝐴 → (∃𝑥 ∈ 𝐶 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) → ∃𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))))
5	2, 3, 4	sylc 62	. . . . 5 ⊢ (𝜑 → ∃𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))
6	1, 5	supclti 7057	. . . 4 ⊢ (𝜑 → sup(𝐵, 𝐴, 𝑅) ∈ 𝐴)
7		elisset 2774	. . . 4 ⊢ (sup(𝐵, 𝐴, 𝑅) ∈ 𝐴 → ∃𝑥 𝑥 = sup(𝐵, 𝐴, 𝑅))
8	6, 7	syl 14	. . 3 ⊢ (𝜑 → ∃𝑥 𝑥 = sup(𝐵, 𝐴, 𝑅))
9		eqcom 2195	. . . 4 ⊢ (𝑥 = sup(𝐵, 𝐴, 𝑅) ↔ sup(𝐵, 𝐴, 𝑅) = 𝑥)
10	9	exbii 1616	. . 3 ⊢ (∃𝑥 𝑥 = sup(𝐵, 𝐴, 𝑅) ↔ ∃𝑥sup(𝐵, 𝐴, 𝑅) = 𝑥)
11	8, 10	sylib 122	. 2 ⊢ (𝜑 → ∃𝑥sup(𝐵, 𝐴, 𝑅) = 𝑥)
12		simpr 110	. . 3 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → sup(𝐵, 𝐴, 𝑅) = 𝑥)
13	1, 5	supval2ti 7054	. . . . . . . 8 ⊢ (𝜑 → sup(𝐵, 𝐴, 𝑅) = (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))))
14	13	eqeq1d 2202	. . . . . . 7 ⊢ (𝜑 → (sup(𝐵, 𝐴, 𝑅) = 𝑥 ↔ (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) = 𝑥))
15	14	biimpa 296	. . . . . 6 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) = 𝑥)
16	1, 5	supeuti 7053	. . . . . . . 8 ⊢ (𝜑 → ∃!𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))
17		riota1 5892	. . . . . . . 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 3443	. . . . 5 ⊢ (((𝐶 ⊆ 𝐴 ∧ (∃𝑥 ∈ 𝐶 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) ∧ ∃!𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))) ∧ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) → (𝑥 ∈ 𝐶 ↔ 𝑥 ∈ 𝐴))
25	22, 23, 24	syl2an2r 595	. . . 4 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → (𝑥 ∈ 𝐶 ↔ 𝑥 ∈ 𝐴))
26	21, 25	mpbird 167	. . 3 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → 𝑥 ∈ 𝐶)
27	12, 26	eqeltrd 2270	. 2 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → sup(𝐵, 𝐴, 𝑅) ∈ 𝐶)
28	11, 27	exlimddv 1910	1 ⊢ (𝜑 → sup(𝐵, 𝐴, 𝑅) ∈ 𝐶)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   = wceq 1364  ∃wex 1503   ∈ wcel 2164  ∀wral 2472  ∃wrex 2473  ∃!wreu 2474   ⊆ wss 3153   class class class wbr 4029  ℩crio 5872  supcsup 7041

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 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-ext 2175

This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1472  df-sb 1774  df-eu 2045  df-mo 2046  df-clab 2180  df-cleq 2186  df-clel 2189  df-nfc 2325  df-ral 2477  df-rex 2478  df-reu 2479  df-rmo 2480  df-rab 2481  df-v 2762  df-sbc 2986  df-un 3157  df-in 3159  df-ss 3166  df-sn 3624  df-pr 3625  df-op 3627  df-uni 3836  df-br 4030  df-iota 5215  df-riota 5873  df-sup 7043

This theorem is referenced by:  zsupcl  12084