Theorem tgjustf 28270

Description: Given any function 𝐹, equality of the image by 𝐹 is an equivalence relation. (Contributed by Thierry Arnoux, 25-Jan-2023.)

Assertion

Ref	Expression
tgjustf	⊢ (𝐴 ∈ 𝑉 → ∃𝑟(𝑟 Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑟𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))))

Distinct variable groups:   𝐴,𝑟,𝑥,𝑦   𝐹,𝑟,𝑥,𝑦

Allowed substitution hints:   𝑉(𝑥,𝑦,𝑟)

Proof of Theorem tgjustf

Dummy variables 𝑢 𝑣 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		relopabv 5817	. . 3 ⊢ Rel {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}
2		ancom 460	. . . . . 6 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ↔ (𝑦 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴))
3		eqcom 2734	. . . . . 6 ⊢ ((𝐹‘𝑥) = (𝐹‘𝑦) ↔ (𝐹‘𝑦) = (𝐹‘𝑥))
4	2, 3	anbi12i 626	. . . . 5 ⊢ (((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ↔ ((𝑦 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑥)))
5		simpl 482	. . . . . . . 8 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑦) → 𝑢 = 𝑥)
6	5	fveq2d 6895	. . . . . . 7 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑦) → (𝐹‘𝑢) = (𝐹‘𝑥))
7		simpr 484	. . . . . . . 8 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑦) → 𝑣 = 𝑦)
8	7	fveq2d 6895	. . . . . . 7 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑦) → (𝐹‘𝑣) = (𝐹‘𝑦))
9	6, 8	eqeq12d 2743	. . . . . 6 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑦) → ((𝐹‘𝑢) = (𝐹‘𝑣) ↔ (𝐹‘𝑥) = (𝐹‘𝑦)))
10		eqid 2727	. . . . . 6 ⊢ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}
11	9, 10	brab2a 5765	. . . . 5 ⊢ (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)))
12		simpl 482	. . . . . . . 8 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑥) → 𝑢 = 𝑦)
13	12	fveq2d 6895	. . . . . . 7 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑥) → (𝐹‘𝑢) = (𝐹‘𝑦))
14		simpr 484	. . . . . . . 8 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑥) → 𝑣 = 𝑥)
15	14	fveq2d 6895	. . . . . . 7 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑥) → (𝐹‘𝑣) = (𝐹‘𝑥))
16	13, 15	eqeq12d 2743	. . . . . 6 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑥) → ((𝐹‘𝑢) = (𝐹‘𝑣) ↔ (𝐹‘𝑦) = (𝐹‘𝑥)))
17	16, 10	brab2a 5765	. . . . 5 ⊢ (𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑥 ↔ ((𝑦 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑥)))
18	4, 11, 17	3bitr4i 303	. . . 4 ⊢ (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ 𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑥)
19	18	biimpi 215	. . 3 ⊢ (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 → 𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑥)
20		simplll 774	. . . . 5 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))) → 𝑥 ∈ 𝐴)
21		simprlr 779	. . . . 5 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))) → 𝑧 ∈ 𝐴)
22		simplr 768	. . . . . 6 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))) → (𝐹‘𝑥) = (𝐹‘𝑦))
23		simprr 772	. . . . . 6 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))) → (𝐹‘𝑦) = (𝐹‘𝑧))
24	22, 23	eqtrd 2767	. . . . 5 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))) → (𝐹‘𝑥) = (𝐹‘𝑧))
25	20, 21, 24	jca31 514	. . . 4 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))) → ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑧)))
26		simpl 482	. . . . . . . 8 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑧) → 𝑢 = 𝑦)
27	26	fveq2d 6895	. . . . . . 7 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑧) → (𝐹‘𝑢) = (𝐹‘𝑦))
28		simpr 484	. . . . . . . 8 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑧) → 𝑣 = 𝑧)
29	28	fveq2d 6895	. . . . . . 7 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑧) → (𝐹‘𝑣) = (𝐹‘𝑧))
30	27, 29	eqeq12d 2743	. . . . . 6 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑧) → ((𝐹‘𝑢) = (𝐹‘𝑣) ↔ (𝐹‘𝑦) = (𝐹‘𝑧)))
31	30, 10	brab2a 5765	. . . . 5 ⊢ (𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑧 ↔ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧)))
32	11, 31	anbi12i 626	. . . 4 ⊢ ((𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ∧ 𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑧) ↔ (((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))))
33		simpl 482	. . . . . . 7 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑧) → 𝑢 = 𝑥)
34	33	fveq2d 6895	. . . . . 6 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑧) → (𝐹‘𝑢) = (𝐹‘𝑥))
35		simpr 484	. . . . . . 7 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑧) → 𝑣 = 𝑧)
36	35	fveq2d 6895	. . . . . 6 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑧) → (𝐹‘𝑣) = (𝐹‘𝑧))
37	34, 36	eqeq12d 2743	. . . . 5 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑧) → ((𝐹‘𝑢) = (𝐹‘𝑣) ↔ (𝐹‘𝑥) = (𝐹‘𝑧)))
38	37, 10	brab2a 5765	. . . 4 ⊢ (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑧 ↔ ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑧)))
39	25, 32, 38	3imtr4i 292	. . 3 ⊢ ((𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ∧ 𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑧) → 𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑧)
40		eqid 2727	. . . . 5 ⊢ (𝐹‘𝑥) = (𝐹‘𝑥)
41	40	biantru 529	. . . 4 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ↔ ((𝑥 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑥)))
42		pm4.24 563	. . . 4 ⊢ (𝑥 ∈ 𝐴 ↔ (𝑥 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴))
43		simpl 482	. . . . . . 7 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑥) → 𝑢 = 𝑥)
44	43	fveq2d 6895	. . . . . 6 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑥) → (𝐹‘𝑢) = (𝐹‘𝑥))
45		simpr 484	. . . . . . 7 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑥) → 𝑣 = 𝑥)
46	45	fveq2d 6895	. . . . . 6 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑥) → (𝐹‘𝑣) = (𝐹‘𝑥))
47	44, 46	eqeq12d 2743	. . . . 5 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑥) → ((𝐹‘𝑢) = (𝐹‘𝑣) ↔ (𝐹‘𝑥) = (𝐹‘𝑥)))
48	47, 10	brab2a 5765	. . . 4 ⊢ (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑥 ↔ ((𝑥 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑥)))
49	41, 42, 48	3bitr4i 303	. . 3 ⊢ (𝑥 ∈ 𝐴 ↔ 𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑥)
50	1, 19, 39, 49	iseri 8745	. 2 ⊢ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} Er 𝐴
51	11	baib 535	. . 3 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) → (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦)))
52	51	rgen2 3192	. 2 ⊢ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))
53		id 22	. . . 4 ⊢ (𝐴 ∈ 𝑉 → 𝐴 ∈ 𝑉)
54		simprll 778	. . . 4 ⊢ ((𝐴 ∈ 𝑉 ∧ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))) → 𝑢 ∈ 𝐴)
55		simprlr 779	. . . 4 ⊢ ((𝐴 ∈ 𝑉 ∧ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))) → 𝑣 ∈ 𝐴)
56	53, 53, 54, 55	opabex2 8055	. . 3 ⊢ (𝐴 ∈ 𝑉 → {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} ∈ V)
57		ereq1 8725	. . . . 5 ⊢ (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} → (𝑟 Er 𝐴 ↔ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} Er 𝐴))
58		simpl 482	. . . . . . . 8 ⊢ ((𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → 𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))})
59	58	breqd 5153	. . . . . . 7 ⊢ ((𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → (𝑥𝑟𝑦 ↔ 𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦))
60	59	bibi1d 343	. . . . . 6 ⊢ ((𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → ((𝑥𝑟𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦)) ↔ (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))))
61	60	2ralbidva 3211	. . . . 5 ⊢ (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑟𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦)) ↔ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))))
62	57, 61	anbi12d 630	. . . 4 ⊢ (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} → ((𝑟 Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑟𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))) ↔ ({⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦)))))
63	62	spcegv 3582	. . 3 ⊢ ({⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} ∈ V → (({⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))) → ∃𝑟(𝑟 Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑟𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦)))))
64	56, 63	syl 17	. 2 ⊢ (𝐴 ∈ 𝑉 → (({⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))) → ∃𝑟(𝑟 Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑟𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦)))))
65	50, 52, 64	mp2ani 697	1 ⊢ (𝐴 ∈ 𝑉 → ∃𝑟(𝑟 Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑟𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 395   = wceq 1534  ∃wex 1774   ∈ wcel 2099  ∀wral 3056  Vcvv 3469   class class class wbr 5142  {copab 5204  ‘cfv 6542   Er wer 8715

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-ext 2698  ax-sep 5293  ax-nul 5300  ax-pow 5359  ax-pr 5423  ax-un 7734

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-sb 2061  df-clab 2705  df-cleq 2719  df-clel 2805  df-ral 3057  df-rex 3066  df-rab 3428  df-v 3471  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-nul 4319  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-op 4631  df-uni 4904  df-br 5143  df-opab 5205  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-iota 6494  df-fv 6550  df-er 8718

This theorem is referenced by:  tgjustc1  28272