Theorem supelti 7332

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 3313	. . . . . 6 ⊢ (𝐶 ⊆ 𝐴 → (∃𝑥 ∈ 𝐶 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) → ∃𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))))
5	2, 3, 4	sylc 62	. . . . 5 ⊢ (𝜑 → ∃𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))
6	1, 5	supclti 7328	. . . 4 ⊢ (𝜑 → sup(𝐵, 𝐴, 𝑅) ∈ 𝐴)
7		elisset 2836	. . . 4 ⊢ (sup(𝐵, 𝐴, 𝑅) ∈ 𝐴 → ∃𝑥 𝑥 = sup(𝐵, 𝐴, 𝑅))
8	6, 7	syl 14	. . 3 ⊢ (𝜑 → ∃𝑥 𝑥 = sup(𝐵, 𝐴, 𝑅))
9		eqcom 2240	. . . 4 ⊢ (𝑥 = sup(𝐵, 𝐴, 𝑅) ↔ sup(𝐵, 𝐴, 𝑅) = 𝑥)
10	9	exbii 1658	. . 3 ⊢ (∃𝑥 𝑥 = sup(𝐵, 𝐴, 𝑅) ↔ ∃𝑥sup(𝐵, 𝐴, 𝑅) = 𝑥)
11	8, 10	sylib 122	. 2 ⊢ (𝜑 → ∃𝑥sup(𝐵, 𝐴, 𝑅) = 𝑥)
12		simpr 110	. . 3 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → sup(𝐵, 𝐴, 𝑅) = 𝑥)
13	1, 5	supval2ti 7325	. . . . . . . 8 ⊢ (𝜑 → sup(𝐵, 𝐴, 𝑅) = (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))))
14	13	eqeq1d 2247	. . . . . . 7 ⊢ (𝜑 → (sup(𝐵, 𝐴, 𝑅) = 𝑥 ↔ (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) = 𝑥))
15	14	biimpa 296	. . . . . 6 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) = 𝑥)
16	1, 5	supeuti 7324	. . . . . . . 8 ⊢ (𝜑 → ∃!𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))
17		riota1 6048	. . . . . . . 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 3517	. . . . 5 ⊢ (((𝐶 ⊆ 𝐴 ∧ (∃𝑥 ∈ 𝐶 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) ∧ ∃!𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))) ∧ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) → (𝑥 ∈ 𝐶 ↔ 𝑥 ∈ 𝐴))
25	22, 23, 24	syl2an2r 603	. . . 4 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → (𝑥 ∈ 𝐶 ↔ 𝑥 ∈ 𝐴))
26	21, 25	mpbird 167	. . 3 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → 𝑥 ∈ 𝐶)
27	12, 26	eqeltrd 2315	. 2 ⊢ ((𝜑 ∧ sup(𝐵, 𝐴, 𝑅) = 𝑥) → sup(𝐵, 𝐴, 𝑅) ∈ 𝐶)
28	11, 27	exlimddv 1954	1 ⊢ (𝜑 → sup(𝐵, 𝐴, 𝑅) ∈ 𝐶)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   = wceq 1402  ∃wex 1545   ∈ wcel 2209  ∀wral 2528  ∃wrex 2529  ∃!wreu 2530   ⊆ wss 3220   class class class wbr 4125  ℩crio 6027  supcsup 7312

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 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-ext 2220

This theorem depends on definitions:  df-bi 117  df-3an 1011  df-tru 1405  df-fal 1408  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ral 2533  df-rex 2534  df-reu 2535  df-rmo 2536  df-rab 2537  df-v 2823  df-sbc 3052  df-un 3224  df-in 3226  df-ss 3233  df-sn 3711  df-pr 3712  df-op 3714  df-uni 3931  df-br 4126  df-iota 5332  df-riota 6028  df-sup 7314

This theorem is referenced by:  zsupcl  10642