Theorem supub 9374

Description: A supremum is an upper bound. See also supcl 9373 and suplub 9375.

This proof demonstrates how to expand an iota-based definition (df-iota 6456) using riotacl2 7341.

(Contributed by NM, 12-Oct-2004.) (Proof shortened by Mario Carneiro, 24-Dec-2016.)

Hypotheses

Ref	Expression
supmo.1	⊢ (𝜑 → 𝑅 Or 𝐴)
supcl.2	⊢ (𝜑 → ∃𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))

Assertion

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

Distinct variable groups:   𝑥,𝑦,𝑧,𝐴   𝑥,𝑅,𝑦,𝑧   𝑥,𝐵,𝑦,𝑧

Allowed substitution hints:   𝜑(𝑥,𝑦,𝑧)   𝐶(𝑥,𝑦,𝑧)

Proof of Theorem supub

Dummy variable 𝑤 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl 482	. . . . . 6 ⊢ ((∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) → ∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦)
2	1	a1i 11	. . . . 5 ⊢ (𝑥 ∈ 𝐴 → ((∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) → ∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦))
3	2	ss2rabi 4030	. . . 4 ⊢ {𝑥 ∈ 𝐴 ∣ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))} ⊆ {𝑥 ∈ 𝐴 ∣ ∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦}
4		supmo.1	. . . . . 6 ⊢ (𝜑 → 𝑅 Or 𝐴)
5	4	supval2 9370	. . . . 5 ⊢ (𝜑 → sup(𝐵, 𝐴, 𝑅) = (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))))
6		supcl.2	. . . . . . 7 ⊢ (𝜑 → ∃𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))
7	4, 6	supeu 9369	. . . . . 6 ⊢ (𝜑 → ∃!𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))
8		riotacl2 7341	. . . . . 6 ⊢ (∃!𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) → (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) ∈ {𝑥 ∈ 𝐴 ∣ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))})
9	7, 8	syl 17	. . . . 5 ⊢ (𝜑 → (℩𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))) ∈ {𝑥 ∈ 𝐴 ∣ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))})
10	5, 9	eqeltrd 2837	. . . 4 ⊢ (𝜑 → sup(𝐵, 𝐴, 𝑅) ∈ {𝑥 ∈ 𝐴 ∣ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))})
11	3, 10	sselid 3933	. . 3 ⊢ (𝜑 → sup(𝐵, 𝐴, 𝑅) ∈ {𝑥 ∈ 𝐴 ∣ ∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦})
12		breq2 5104	. . . . . . . 8 ⊢ (𝑦 = 𝑤 → (𝑥𝑅𝑦 ↔ 𝑥𝑅𝑤))
13	12	notbid 318	. . . . . . 7 ⊢ (𝑦 = 𝑤 → (¬ 𝑥𝑅𝑦 ↔ ¬ 𝑥𝑅𝑤))
14	13	cbvralvw 3216	. . . . . 6 ⊢ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ↔ ∀𝑤 ∈ 𝐵 ¬ 𝑥𝑅𝑤)
15		breq1 5103	. . . . . . . 8 ⊢ (𝑥 = sup(𝐵, 𝐴, 𝑅) → (𝑥𝑅𝑤 ↔ sup(𝐵, 𝐴, 𝑅)𝑅𝑤))
16	15	notbid 318	. . . . . . 7 ⊢ (𝑥 = sup(𝐵, 𝐴, 𝑅) → (¬ 𝑥𝑅𝑤 ↔ ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤))
17	16	ralbidv 3161	. . . . . 6 ⊢ (𝑥 = sup(𝐵, 𝐴, 𝑅) → (∀𝑤 ∈ 𝐵 ¬ 𝑥𝑅𝑤 ↔ ∀𝑤 ∈ 𝐵 ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤))
18	14, 17	bitrid 283	. . . . 5 ⊢ (𝑥 = sup(𝐵, 𝐴, 𝑅) → (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ↔ ∀𝑤 ∈ 𝐵 ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤))
19	18	elrab 3648	. . . 4 ⊢ (sup(𝐵, 𝐴, 𝑅) ∈ {𝑥 ∈ 𝐴 ∣ ∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦} ↔ (sup(𝐵, 𝐴, 𝑅) ∈ 𝐴 ∧ ∀𝑤 ∈ 𝐵 ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤))
20	19	simprbi 497	. . 3 ⊢ (sup(𝐵, 𝐴, 𝑅) ∈ {𝑥 ∈ 𝐴 ∣ ∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦} → ∀𝑤 ∈ 𝐵 ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤)
21	11, 20	syl 17	. 2 ⊢ (𝜑 → ∀𝑤 ∈ 𝐵 ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤)
22		breq2 5104	. . . 4 ⊢ (𝑤 = 𝐶 → (sup(𝐵, 𝐴, 𝑅)𝑅𝑤 ↔ sup(𝐵, 𝐴, 𝑅)𝑅𝐶))
23	22	notbid 318	. . 3 ⊢ (𝑤 = 𝐶 → (¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤 ↔ ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝐶))
24	23	rspccv 3575	. 2 ⊢ (∀𝑤 ∈ 𝐵 ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤 → (𝐶 ∈ 𝐵 → ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝐶))
25	21, 24	syl 17	1 ⊢ (𝜑 → (𝐶 ∈ 𝐵 → ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝐶))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   = wceq 1542   ∈ wcel 2114  ∀wral 3052  ∃wrex 3062  ∃!wreu 3350  {crab 3401   class class class wbr 5100   Or wor 5539  ℩crio 7324  supcsup 9355

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-dif 3906  df-un 3908  df-ss 3920  df-nul 4288  df-if 4482  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-br 5101  df-po 5540  df-so 5541  df-iota 6456  df-riota 7325  df-sup 9357

This theorem is referenced by:  suplub2  9376  supssd  9378  supgtoreq  9386  supiso  9391  inflb  9405  suprub  12115  suprzub  12864  supxrun  13243  supxrub  13251  dgrub  26207  ssnnssfz  32877  oddpwdc  34531  itg2addnclem  37916  supubt  37984  supinf  42606  sn-suprubd  42858  ssnn0ssfz  48703