Theorem dfsup2 8625

Description: Quantifier free definition of supremum. (Contributed by Scott Fenton, 19-Feb-2013.)

Assertion

Ref	Expression
dfsup2	⊢ sup(𝐵, 𝐴, 𝑅) = ∪ (𝐴 ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))))

Proof of Theorem dfsup2

Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-sup 8623	. 2 ⊢ sup(𝐵, 𝐴, 𝑅) = ∪ {𝑥 ∈ 𝐴 ∣ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))}
2		dfrab3 4133	. . . 4 ⊢ {𝑥 ∈ 𝐴 ∣ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))} = (𝐴 ∩ {𝑥 ∣ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))})
3		abeq1 2938	. . . . . . 7 ⊢ ({𝑥 ∣ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))} = (V ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵))))) ↔ ∀𝑥((∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) ↔ 𝑥 ∈ (V ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))))))
4		vex 3417	. . . . . . . . 9 ⊢ 𝑥 ∈ V
5		eldif 3808	. . . . . . . . 9 ⊢ (𝑥 ∈ (V ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵))))) ↔ (𝑥 ∈ V ∧ ¬ 𝑥 ∈ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵))))))
6	4, 5	mpbiran 700	. . . . . . . 8 ⊢ (𝑥 ∈ (V ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵))))) ↔ ¬ 𝑥 ∈ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))))
7	4	elima 5716	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (◡𝑅 “ 𝐵) ↔ ∃𝑦 ∈ 𝐵 𝑦◡𝑅𝑥)
8		dfrex2 3204	. . . . . . . . . . . 12 ⊢ (∃𝑦 ∈ 𝐵 𝑦◡𝑅𝑥 ↔ ¬ ∀𝑦 ∈ 𝐵 ¬ 𝑦◡𝑅𝑥)
9	7, 8	bitri 267	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (◡𝑅 “ 𝐵) ↔ ¬ ∀𝑦 ∈ 𝐵 ¬ 𝑦◡𝑅𝑥)
10	4	elima 5716	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵))) ↔ ∃𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵))𝑦𝑅𝑥)
11		dfrex2 3204	. . . . . . . . . . . 12 ⊢ (∃𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵))𝑦𝑅𝑥 ↔ ¬ ∀𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵)) ¬ 𝑦𝑅𝑥)
12	10, 11	bitri 267	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵))) ↔ ¬ ∀𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵)) ¬ 𝑦𝑅𝑥)
13	9, 12	orbi12i 943	. . . . . . . . . 10 ⊢ ((𝑥 ∈ (◡𝑅 “ 𝐵) ∨ 𝑥 ∈ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))) ↔ (¬ ∀𝑦 ∈ 𝐵 ¬ 𝑦◡𝑅𝑥 ∨ ¬ ∀𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵)) ¬ 𝑦𝑅𝑥))
14		elun 3982	. . . . . . . . . 10 ⊢ (𝑥 ∈ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))) ↔ (𝑥 ∈ (◡𝑅 “ 𝐵) ∨ 𝑥 ∈ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))))
15		ianor 1009	. . . . . . . . . 10 ⊢ (¬ (∀𝑦 ∈ 𝐵 ¬ 𝑦◡𝑅𝑥 ∧ ∀𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵)) ¬ 𝑦𝑅𝑥) ↔ (¬ ∀𝑦 ∈ 𝐵 ¬ 𝑦◡𝑅𝑥 ∨ ¬ ∀𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵)) ¬ 𝑦𝑅𝑥))
16	13, 14, 15	3bitr4i 295	. . . . . . . . 9 ⊢ (𝑥 ∈ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))) ↔ ¬ (∀𝑦 ∈ 𝐵 ¬ 𝑦◡𝑅𝑥 ∧ ∀𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵)) ¬ 𝑦𝑅𝑥))
17	16	con2bii 349	. . . . . . . 8 ⊢ ((∀𝑦 ∈ 𝐵 ¬ 𝑦◡𝑅𝑥 ∧ ∀𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵)) ¬ 𝑦𝑅𝑥) ↔ ¬ 𝑥 ∈ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))))
18		vex 3417	. . . . . . . . . . . 12 ⊢ 𝑦 ∈ V
19	18, 4	brcnv 5541	. . . . . . . . . . 11 ⊢ (𝑦◡𝑅𝑥 ↔ 𝑥𝑅𝑦)
20	19	notbii 312	. . . . . . . . . 10 ⊢ (¬ 𝑦◡𝑅𝑥 ↔ ¬ 𝑥𝑅𝑦)
21	20	ralbii 3189	. . . . . . . . 9 ⊢ (∀𝑦 ∈ 𝐵 ¬ 𝑦◡𝑅𝑥 ↔ ∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦)
22		impexp 443	. . . . . . . . . . 11 ⊢ (((𝑦 ∈ 𝐴 ∧ ¬ 𝑦 ∈ (◡𝑅 “ 𝐵)) → ¬ 𝑦𝑅𝑥) ↔ (𝑦 ∈ 𝐴 → (¬ 𝑦 ∈ (◡𝑅 “ 𝐵) → ¬ 𝑦𝑅𝑥)))
23		eldif 3808	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵)) ↔ (𝑦 ∈ 𝐴 ∧ ¬ 𝑦 ∈ (◡𝑅 “ 𝐵)))
24	23	imbi1i 341	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵)) → ¬ 𝑦𝑅𝑥) ↔ ((𝑦 ∈ 𝐴 ∧ ¬ 𝑦 ∈ (◡𝑅 “ 𝐵)) → ¬ 𝑦𝑅𝑥))
25	18	elima 5716	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ (◡𝑅 “ 𝐵) ↔ ∃𝑧 ∈ 𝐵 𝑧◡𝑅𝑦)
26		vex 3417	. . . . . . . . . . . . . . . . 17 ⊢ 𝑧 ∈ V
27	26, 18	brcnv 5541	. . . . . . . . . . . . . . . 16 ⊢ (𝑧◡𝑅𝑦 ↔ 𝑦𝑅𝑧)
28	27	rexbii 3251	. . . . . . . . . . . . . . 15 ⊢ (∃𝑧 ∈ 𝐵 𝑧◡𝑅𝑦 ↔ ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)
29	25, 28	bitri 267	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ (◡𝑅 “ 𝐵) ↔ ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)
30	29	imbi2i 328	. . . . . . . . . . . . 13 ⊢ ((𝑦𝑅𝑥 → 𝑦 ∈ (◡𝑅 “ 𝐵)) ↔ (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))
31		con34b 308	. . . . . . . . . . . . 13 ⊢ ((𝑦𝑅𝑥 → 𝑦 ∈ (◡𝑅 “ 𝐵)) ↔ (¬ 𝑦 ∈ (◡𝑅 “ 𝐵) → ¬ 𝑦𝑅𝑥))
32	30, 31	bitr3i 269	. . . . . . . . . . . 12 ⊢ ((𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧) ↔ (¬ 𝑦 ∈ (◡𝑅 “ 𝐵) → ¬ 𝑦𝑅𝑥))
33	32	imbi2i 328	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ 𝐴 → (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) ↔ (𝑦 ∈ 𝐴 → (¬ 𝑦 ∈ (◡𝑅 “ 𝐵) → ¬ 𝑦𝑅𝑥)))
34	22, 24, 33	3bitr4i 295	. . . . . . . . . 10 ⊢ ((𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵)) → ¬ 𝑦𝑅𝑥) ↔ (𝑦 ∈ 𝐴 → (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))
35	34	ralbii2 3187	. . . . . . . . 9 ⊢ (∀𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵)) ¬ 𝑦𝑅𝑥 ↔ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))
36	21, 35	anbi12i 620	. . . . . . . 8 ⊢ ((∀𝑦 ∈ 𝐵 ¬ 𝑦◡𝑅𝑥 ∧ ∀𝑦 ∈ (𝐴 ∖ (◡𝑅 “ 𝐵)) ¬ 𝑦𝑅𝑥) ↔ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)))
37	6, 17, 36	3bitr2ri 292	. . . . . . 7 ⊢ ((∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧)) ↔ 𝑥 ∈ (V ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵))))))
38	3, 37	mpgbir 1898	. . . . . 6 ⊢ {𝑥 ∣ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))} = (V ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))))
39	38	ineq2i 4040	. . . . 5 ⊢ (𝐴 ∩ {𝑥 ∣ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))}) = (𝐴 ∩ (V ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵))))))
40		invdif 4100	. . . . 5 ⊢ (𝐴 ∩ (V ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))))) = (𝐴 ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))))
41	39, 40	eqtri 2849	. . . 4 ⊢ (𝐴 ∩ {𝑥 ∣ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))}) = (𝐴 ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))))
42	2, 41	eqtri 2849	. . 3 ⊢ {𝑥 ∈ 𝐴 ∣ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))} = (𝐴 ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))))
43	42	unieqi 4669	. 2 ⊢ ∪ {𝑥 ∈ 𝐴 ∣ (∀𝑦 ∈ 𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦𝑅𝑧))} = ∪ (𝐴 ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))))
44	1, 43	eqtri 2849	1 ⊢ sup(𝐵, 𝐴, 𝑅) = ∪ (𝐴 ∖ ((◡𝑅 “ 𝐵) ∪ (𝑅 “ (𝐴 ∖ (◡𝑅 “ 𝐵)))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 198   ∧ wa 386   ∨ wo 878   = wceq 1656   ∈ wcel 2164  {cab 2811  ∀wral 3117  ∃wrex 3118  {crab 3121  Vcvv 3414   ∖ cdif 3795   ∪ cun 3796   ∩ cin 3797  ∪ cuni 4660   class class class wbr 4875  ^◡ccnv 5345   “ cima 5349  supcsup 8621

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1894  ax-4 1908  ax-5 2009  ax-6 2075  ax-7 2112  ax-9 2173  ax-10 2192  ax-11 2207  ax-12 2220  ax-13 2389  ax-ext 2803  ax-sep 5007  ax-nul 5015  ax-pr 5129

This theorem depends on definitions:  df-bi 199  df-an 387  df-or 879  df-3an 1113  df-tru 1660  df-ex 1879  df-nf 1883  df-sb 2068  df-mo 2605  df-eu 2640  df-clab 2812  df-cleq 2818  df-clel 2821  df-nfc 2958  df-ral 3122  df-rex 3123  df-rab 3126  df-v 3416  df-dif 3801  df-un 3803  df-in 3805  df-ss 3812  df-nul 4147  df-if 4309  df-sn 4400  df-pr 4402  df-op 4406  df-uni 4661  df-br 4876  df-opab 4938  df-xp 5352  df-cnv 5354  df-dm 5356  df-rn 5357  df-res 5358  df-ima 5359  df-sup 8623

This theorem is referenced by:  nfsup  8632