Theorem brdom3 4773

Description: Equivalence to a dominance relation.

Hypotheses

Ref	Expression
brdom3.1	|- A e. V
brdom3.2	|- B e. V

Assertion

Ref	Expression
brdom3	|- (A ~<_ B <-> E.f(A.xE*y xfy /\ A.x e. A E.y e. B yfx))

Distinct variable groups:   x,f,y,A   B,f,x,y

Proof of Theorem brdom3

Step	Hyp	Ref	Expression
1		brdom3.2	. . . . . . 7 |- B e. V
2		fodomr 4463	. . . . . . 7 |- ((B e. V /\ (/) ~< A /\ A ~<_ B) -> E.f f:B-onto->A)
3	1, 2	mp3an1 900	. . . . . 6 |- (((/) ~< A /\ A ~<_ B) -> E.f f:B-onto->A)
4		brdom3.1	. . . . . . . 8 |- A e. V
5	4	0sdom 4447	. . . . . . 7 |- ((/) ~< A <-> A =/= (/))
6		df-ne 1579	. . . . . . 7 |- (A =/= (/) <-> -. A = (/))
7	5, 6	bitr2 174	. . . . . 6 |- (-. A = (/) <-> (/) ~< A)
8	3, 7	sylanb 449	. . . . 5 |- ((-. A = (/) /\ A ~<_ B) -> E.f f:B-onto->A)
9	8	ancoms 436	. . . 4 |- ((A ~<_ B /\ -. A = (/)) -> E.f f:B-onto->A)
10		pm5.6 686	. . . 4 |- (((A ~<_ B /\ -. A = (/)) -> E.f f:B-onto->A) <-> (A ~<_ B -> (A = (/) \/ E.f f:B-onto->A)))
11	9, 10	mpbi 189	. . 3 |- (A ~<_ B -> (A = (/) \/ E.f f:B-onto->A))
12		rzal 2345	. . . . . 6 |- (A = (/) -> A.x e. A E.y e. B y(/)x)
13		noel 2274	. . . . . . . . . 10 |- -. <.x, y>. e. (/)
14		df-br 2610	. . . . . . . . . 10 |- (x(/)y <-> <.x, y>. e. (/))
15	13, 14	mtbir 192	. . . . . . . . 9 |- -. x(/)y
16	15	nex 1097	. . . . . . . 8 |- -. E.y x(/)y
17		exmo 1409	. . . . . . . . 9 |- (E.y x(/)y \/ E*y x(/)y)
18	17	ori 230	. . . . . . . 8 |- (-. E.y x(/)y -> E*y x(/)y)
19	16, 18	ax-mp 7	. . . . . . 7 |- E*y x(/)y
20	19	ax-gen 960	. . . . . 6 |- A.xE*y x(/)y
21	12, 20	jctil 292	. . . . 5 |- (A = (/) -> (A.xE*y x(/)y /\ A.x e. A E.y e. B y(/)x))
22		0ex 2701	. . . . . 6 |- (/) e. V
23		ax-17 968	. . . . . . . . 9 |- (f = (/) -> A.y f = (/))
24		breq 2611	. . . . . . . . 9 |- (f = (/) -> (xfy <-> x(/)y))
25	23, 24	mobid 1397	. . . . . . . 8 |- (f = (/) -> (E*y xfy <-> E*y x(/)y))
26	25	albidv 1273	. . . . . . 7 |- (f = (/) -> (A.xE*y xfy <-> A.xE*y x(/)y))
27		breq 2611	. . . . . . . . 9 |- (f = (/) -> (yfx <-> y(/)x))
28	27	rexbidv 1656	. . . . . . . 8 |- (f = (/) -> (E.y e. B yfx <-> E.y e. B y(/)x))
29	28	ralbidv 1655	. . . . . . 7 |- (f = (/) -> (A.x e. A E.y e. B yfx <-> A.x e. A E.y e. B y(/)x))
30	26, 29	anbi12d 626	. . . . . 6 |- (f = (/) -> ((A.xE*y xfy /\ A.x e. A E.y e. B yfx) <-> (A.xE*y x(/)y /\ A.x e. A E.y e. B y(/)x)))
31	22, 30	cla4ev 1860	. . . . 5 |- ((A.xE*y x(/)y /\ A.x e. A E.y e. B y(/)x) -> E.f(A.xE*y xfy /\ A.x e. A E.y e. B yfx))
32	21, 31	syl 10	. . . 4 |- (A = (/) -> E.f(A.xE*y xfy /\ A.x e. A E.y e. B yfx))
33		fofun 3658	. . . . . . 7 |- (f:B-onto->A -> Fun f)
34		dffunmo 3517	. . . . . . . 8 |- (Fun f <-> (Rel f /\ A.xE*y xfy))
35	34	pm3.27bi 326	. . . . . . 7 |- (Fun f -> A.xE*y xfy)
36	33, 35	syl 10	. . . . . 6 |- (f:B-onto->A -> A.xE*y xfy)
37		dffo4 3805	. . . . . . 7 |- (f:B-onto->A <-> (f:B-->A /\ A.x e. A E.y e. B yfx))
38	37	pm3.27bi 326	. . . . . 6 |- (f:B-onto->A -> A.x e. A E.y e. B yfx)
39	36, 38	jca 288	. . . . 5 |- (f:B-onto->A -> (A.xE*y xfy /\ A.x e. A E.y e. B yfx))
40	39	19.22i 1036	. . . 4 |- (E.f f:B-onto->A -> E.f(A.xE*y xfy /\ A.x e. A E.y e. B yfx))
41	32, 40	jaoi 341	. . 3 |- ((A = (/) \/ E.f f:B-onto->A) -> E.f(A.xE*y xfy /\ A.x e. A E.y e. B yfx))
42	11, 41	syl 10	. 2 |- (A ~<_ B -> E.f(A.xE*y xfy /\ A.x e. A E.y e. B yfx))
43		inss1 2220	. . . . . . . . . . 11 |- (f i^i (B X. A)) (_ f
44	43	ssbri 2647	. . . . . . . . . 10 |- (x(f i^i (B X. A))y -> xfy)
45	44	immoi 1411	. . . . . . . . 9 |- (E*y xfy -> E*y x(f i^i (B X. A))y)
46	45	19.20i 989	. . . . . . . 8 |- (A.xE*y xfy -> A.xE*y x(f i^i (B X. A))y)
47		dffunmo 3517	. . . . . . . . 9 |- (Fun (f i^i (B X. A)) <-> (Rel (f i^i (B X. A)) /\ A.xE*y x(f i^i (B X. A))y))
48		relxp 3245	. . . . . . . . . 10 |- Rel (B X. A)
49		relin2 3253	. . . . . . . . . 10 |- (Rel (B X. A) -> Rel (f i^i (B X. A)))
50	48, 49	ax-mp 7	. . . . . . . . 9 |- Rel (f i^i (B X. A))
51	47, 50	mpbiran 726	. . . . . . . 8 |- (Fun (f i^i (B X. A)) <-> A.xE*y x(f i^i (B X. A))y)
52	46, 51	sylibr 200	. . . . . . 7 |- (A.xE*y xfy -> Fun (f i^i (B X. A)))
53		funfn 3528	. . . . . . 7 |- (Fun (f i^i (B X. A)) <-> (f i^i (B X. A)) Fn dom ( f i^i (B X. A)))
54	52, 53	sylib 198	. . . . . 6 |- (A.xE*y xfy -> (f i^i (B X. A)) Fn dom ( f i^i (B X. A)))
55		rninxp 3468	. . . . . . 7 |- (ran ( f i^i (B X. A)) = A <-> A.x e. A E.y e. B yfx)
56	55	biimpr 152	. . . . . 6 |- (A.x e. A E.y e. B yfx -> ran ( f i^i (B X. A)) = A)
57	54, 56	anim12i 333	. . . . 5 |- ((A.xE*y xfy /\ A.x e. A E.y e. B yfx) -> ((f i^i (B X. A)) Fn dom ( f i^i (B X. A)) /\ ran ( f i^i (B X. A)) = A))
58		df-fo 3186	. . . . 5 |- ((f i^i (B X. A)):dom ( f i^i (B X. A))-onto->A <-> ((f i^i (B X. A)) Fn dom ( f i^i (B X. A)) /\ ran ( f i^i (B X. A)) = A))
59	57, 58	sylibr 200	. . . 4 |- ((A.xE*y xfy /\ A.x e. A E.y e. B yfx) -> (f i^i (B X. A)):dom ( f i^i (B X. A))-onto->A)
60		visset 1804	. . . . . . 7 |- f e. V
61	60	inex1 2706	. . . . . 6 |- (f i^i (B X. A)) e. V
62		dmexg 3344	. . . . . 6 |- ((f i^i (B X. A)) e. V -> dom ( f i^i (B X. A)) e. V)
63	61, 62	ax-mp 7	. . . . 5 |- dom ( f i^i (B X. A)) e. V
64	63	fodom 4770	. . . 4 |- ((f i^i (B X. A)):dom ( f i^i (B X. A))-onto->A -> A ~<_ dom ( f i^i (B X. A)))
65		inss2 2221	. . . . . . . 8 |- (f i^i (B X. A)) (_ (B X. A)
66		dmss 3299	. . . . . . . 8 |- ((f i^i (B X. A)) (_ (B X. A) -> dom ( f i^i (B X. A)) (_ dom ( B X. A))
67	65, 66	ax-mp 7	. . . . . . 7 |- dom ( f i^i (B X. A)) (_ dom ( B X. A)
68		dmxpss 3459	. . . . . . 7 |- dom ( B X. A) (_ B
69	67, 68	sstri 2063	. . . . . 6 |- dom ( f i^i (B X. A)) (_ B
70		ssdom2g 4390	. . . . . 6 |- (B e. V -> (dom ( f i^i (B X. A)) (_ B -> dom ( f i^i (B X. A)) ~<_ B))
71	1, 69, 70	mp2 43	. . . . 5 |- dom ( f i^i (B X. A)) ~<_ B
72		domtr 4396	. . . . 5 |- ((A ~<_ dom ( f i^i (B X. A)) /\ dom ( f i^i (B X. A)) ~<_ B) -> A ~<_ B)
73	71, 72	mpan2 694	. . . 4 |- (A ~<_ dom ( f i^i (B X. A)) -> A ~<_ B)
74	59, 64, 73	3syl 20	. . 3 |- ((A.xE*y xfy /\ A.x e. A E.y e. B yfx) -> A ~<_ B)
75	74	19.23aiv 1290	. 2 |- (E.f(A.xE*y xfy /\ A.x e. A E.y e. B yfx) -> A ~<_ B)
76	42, 75	impbi 157	1 |- (A ~<_ B <-> E.f(A.xE*y xfy /\ A.x e. A E.y e. B yfx))

Syntax hints:  -. wn 2   -> wi 3   <-> wb 146   \/ wo 222   /\ wa 223  A.wal 951   = wceq 953   e. wcel 955  E.wex 977  E*wmo 1374   =/= wne 1577  A.wral 1637  E.wrex 1638  Vcvv 1802   i^i cin 2036   (_ wss 2037  (/)c0 2270  <.cop 2401   class class class wbr 2609   X. cxp 3158  dom cdm 3160  ran crn 3161  Rel wrel 3165  Fun wfun 3166   Fn wfn 3167  -->wf 3168  -onto->wfo 3170   ~<_ cdom 4349   ~< csdm 4350

This theorem is referenced by:  brdom5 4774  brdom4 4775

This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 959  ax-gen 960  ax-8 961  ax-9 962  ax-10 963  ax-11 964  ax-12 965  ax-13 966  ax-14 967  ax-17 968  ax-4 970  ax-5o 972  ax-6o 975  ax-9o 1119  ax-10o 1136  ax-16 1206  ax-11o 1213  ax-ext 1452  ax-rep 2683  ax-sep 2693  ax-nul 2700  ax-pow 2732  ax-pr 2769  ax-un 2857  ax-ac 4716

This theorem depends on definitions:  df-bi 147  df-or 224  df-an 225  df-3an 775  df-ex 978  df-sb 1168  df-eu 1375  df-mo 1376  df-clab 1457  df-cleq 1462  df-clel 1465  df-ne 1579  df-ral 1641  df-rex 1642  df-reu 1643  df-rab 1644  df-v 1803  df-dif 2039  df-un 2040  df-in 2041  df-ss 2043  df-nul 2271  df-pw 2392 &nb