Theorem tgjustf 28708

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 5809	. . 3 ⊢ Rel {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}
2		ancom 465	. . . . . 6 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ↔ (𝑦 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴))
3		eqcom 2776	. . . . . 6 ⊢ ((𝐹‘𝑥) = (𝐹‘𝑦) ↔ (𝐹‘𝑦) = (𝐹‘𝑥))
4	2, 3	anbi12i 639	. . . . 5 ⊢ (((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ↔ ((𝑦 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑥)))
5		simpl 487	. . . . . . . 8 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑦) → 𝑢 = 𝑥)
6	5	fveq2d 6886	. . . . . . 7 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑦) → (𝐹‘𝑢) = (𝐹‘𝑥))
7		simpr 489	. . . . . . . 8 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑦) → 𝑣 = 𝑦)
8	7	fveq2d 6886	. . . . . . 7 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑦) → (𝐹‘𝑣) = (𝐹‘𝑦))
9	6, 8	eqeq12d 2785	. . . . . 6 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑦) → ((𝐹‘𝑢) = (𝐹‘𝑣) ↔ (𝐹‘𝑥) = (𝐹‘𝑦)))
10		eqid 2769	. . . . . 6 ⊢ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}
11	9, 10	brab2a 5755	. . . . 5 ⊢ (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)))
12		simpl 487	. . . . . . . 8 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑥) → 𝑢 = 𝑦)
13	12	fveq2d 6886	. . . . . . 7 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑥) → (𝐹‘𝑢) = (𝐹‘𝑦))
14		simpr 489	. . . . . . . 8 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑥) → 𝑣 = 𝑥)
15	14	fveq2d 6886	. . . . . . 7 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑥) → (𝐹‘𝑣) = (𝐹‘𝑥))
16	13, 15	eqeq12d 2785	. . . . . 6 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑥) → ((𝐹‘𝑢) = (𝐹‘𝑣) ↔ (𝐹‘𝑦) = (𝐹‘𝑥)))
17	16, 10	brab2a 5755	. . . . 5 ⊢ (𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑥 ↔ ((𝑦 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑥)))
18	4, 11, 17	3bitr4i 306	. . . 4 ⊢ (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ 𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑥)
19	18	biimpi 219	. . 3 ⊢ (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 → 𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑥)
20		simplll 786	. . . . 5 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))) → 𝑥 ∈ 𝐴)
21		simprlr 791	. . . . 5 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))) → 𝑧 ∈ 𝐴)
22		simplr 780	. . . . . 6 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))) → (𝐹‘𝑥) = (𝐹‘𝑦))
23		simprr 784	. . . . . 6 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))) → (𝐹‘𝑦) = (𝐹‘𝑧))
24	22, 23	eqtrd 2804	. . . . 5 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))) → (𝐹‘𝑥) = (𝐹‘𝑧))
25	20, 21, 24	jca31 523	. . . 4 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))) → ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑧)))
26		simpl 487	. . . . . . . 8 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑧) → 𝑢 = 𝑦)
27	26	fveq2d 6886	. . . . . . 7 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑧) → (𝐹‘𝑢) = (𝐹‘𝑦))
28		simpr 489	. . . . . . . 8 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑧) → 𝑣 = 𝑧)
29	28	fveq2d 6886	. . . . . . 7 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑧) → (𝐹‘𝑣) = (𝐹‘𝑧))
30	27, 29	eqeq12d 2785	. . . . . 6 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑧) → ((𝐹‘𝑢) = (𝐹‘𝑣) ↔ (𝐹‘𝑦) = (𝐹‘𝑧)))
31	30, 10	brab2a 5755	. . . . 5 ⊢ (𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑧 ↔ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧)))
32	11, 31	anbi12i 639	. . . 4 ⊢ ((𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ∧ 𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑧) ↔ (((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) ∧ ((𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑦) = (𝐹‘𝑧))))
33		simpl 487	. . . . . . 7 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑧) → 𝑢 = 𝑥)
34	33	fveq2d 6886	. . . . . 6 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑧) → (𝐹‘𝑢) = (𝐹‘𝑥))
35		simpr 489	. . . . . . 7 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑧) → 𝑣 = 𝑧)
36	35	fveq2d 6886	. . . . . 6 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑧) → (𝐹‘𝑣) = (𝐹‘𝑧))
37	34, 36	eqeq12d 2785	. . . . 5 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑧) → ((𝐹‘𝑢) = (𝐹‘𝑣) ↔ (𝐹‘𝑥) = (𝐹‘𝑧)))
38	37, 10	brab2a 5755	. . . 4 ⊢ (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑧 ↔ ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑧)))
39	25, 32, 38	3imtr4i 295	. . 3 ⊢ ((𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ∧ 𝑦{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑧) → 𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑧)
40		eqid 2769	. . . . 5 ⊢ (𝐹‘𝑥) = (𝐹‘𝑥)
41	40	biantru 538	. . . 4 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ↔ ((𝑥 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑥)))
42		pm4.24 573	. . . 4 ⊢ (𝑥 ∈ 𝐴 ↔ (𝑥 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴))
43		simpl 487	. . . . . . 7 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑥) → 𝑢 = 𝑥)
44	43	fveq2d 6886	. . . . . 6 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑥) → (𝐹‘𝑢) = (𝐹‘𝑥))
45		simpr 489	. . . . . . 7 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑥) → 𝑣 = 𝑥)
46	45	fveq2d 6886	. . . . . 6 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑥) → (𝐹‘𝑣) = (𝐹‘𝑥))
47	44, 46	eqeq12d 2785	. . . . 5 ⊢ ((𝑢 = 𝑥 ∧ 𝑣 = 𝑥) → ((𝐹‘𝑢) = (𝐹‘𝑣) ↔ (𝐹‘𝑥) = (𝐹‘𝑥)))
48	47, 10	brab2a 5755	. . . 4 ⊢ (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑥 ↔ ((𝑥 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑥)))
49	41, 42, 48	3bitr4i 306	. . 3 ⊢ (𝑥 ∈ 𝐴 ↔ 𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑥)
50	1, 19, 39, 49	iseri 8722	. 2 ⊢ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} Er 𝐴
51	11	baib 544	. . 3 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) → (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦)))
52	51	rgen2 3211	. 2 ⊢ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))
53		id 23	. . . 4 ⊢ (𝐴 ∈ 𝑉 → 𝐴 ∈ 𝑉)
54		simprll 790	. . . 4 ⊢ ((𝐴 ∈ 𝑉 ∧ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))) → 𝑢 ∈ 𝐴)
55		simprlr 791	. . . 4 ⊢ ((𝐴 ∈ 𝑉 ∧ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))) → 𝑣 ∈ 𝐴)
56	53, 53, 54, 55	opabex2 8054	. . 3 ⊢ (𝐴 ∈ 𝑉 → {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} ∈ V)
57		ereq1 8702	. . . . 5 ⊢ (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} → (𝑟 Er 𝐴 ↔ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} Er 𝐴))
58		simpl 487	. . . . . . . 8 ⊢ ((𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → 𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))})
59	58	breqd 5124	. . . . . . 7 ⊢ ((𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → (𝑥𝑟𝑦 ↔ 𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦))
60	59	bibi1d 346	. . . . . 6 ⊢ ((𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → ((𝑥𝑟𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦)) ↔ (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))))
61	60	2ralbidva 3233	. . . . 5 ⊢ (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑟𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦)) ↔ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))))
62	57, 61	anbi12d 643	. . . 4 ⊢ (𝑟 = {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} → ((𝑟 Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑟𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))) ↔ ({⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦)))))
63	62	spcegv 3565	. . 3 ⊢ ({⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} ∈ V → (({⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))) → ∃𝑟(𝑟 Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑟𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦)))))
64	56, 63	syl 18	. 2 ⊢ (𝐴 ∈ 𝑉 → (({⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))} Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴) ∧ (𝐹‘𝑢) = (𝐹‘𝑣))}𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))) → ∃𝑟(𝑟 Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑟𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦)))))
65	50, 52, 64	mp2ani 710	1 ⊢ (𝐴 ∈ 𝑉 → ∃𝑟(𝑟 Er 𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑟𝑦 ↔ (𝐹‘𝑥) = (𝐹‘𝑦))))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1567  ∃wex 1806   ∈ wcel 2149  ∀wral 3085  Vcvv 3463   class class class wbr 5113  {copab 5177  ‘cfv 6537   Er wer 8691

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-ext 2741  ax-sep 5261  ax-pow 5337  ax-pr 5405  ax-un 7733

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-sb 2098  df-clab 2748  df-cleq 2761  df-clel 2844  df-ral 3086  df-rex 3096  df-rab 3424  df-v 3465  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-br 5114  df-opab 5178  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-iota 6493  df-fv 6545  df-er 8694

This theorem is referenced by:  tgjustc1  28710