Theorem fcnvgreu 29472

Description: If the converse of a relation 𝐴 is a function, exactly one point of its graph has a given second element (that is, function value). (Contributed by Thierry Arnoux, 1-Apr-2018.)

Assertion

Ref	Expression
fcnvgreu	⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑌 ∈ ran 𝐴) → ∃!𝑝 ∈ 𝐴 𝑌 = (2nd ‘𝑝))

Distinct variable groups:   𝐴,𝑝   𝑌,𝑝

Proof of Theorem fcnvgreu

Dummy variables 𝑞 𝑟 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-rn 5125	. . . 4 ⊢ ran 𝐴 = dom ◡𝐴
2	1	eleq2i 2693	. . 3 ⊢ (𝑌 ∈ ran 𝐴 ↔ 𝑌 ∈ dom ◡𝐴)
3		fgreu 29471	. . . 4 ⊢ ((Fun ◡𝐴 ∧ 𝑌 ∈ dom ◡𝐴) → ∃!𝑞 ∈ ◡ 𝐴𝑌 = (1st ‘𝑞))
4	3	adantll 750	. . 3 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑌 ∈ dom ◡𝐴) → ∃!𝑞 ∈ ◡ 𝐴𝑌 = (1st ‘𝑞))
5	2, 4	sylan2b 492	. 2 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑌 ∈ ran 𝐴) → ∃!𝑞 ∈ ◡ 𝐴𝑌 = (1st ‘𝑞))
6		cnvcnvss 5589	. . . . . 6 ⊢ ◡◡𝐴 ⊆ 𝐴
7		cnvssrndm 5657	. . . . . . . . . . 11 ⊢ ◡𝐴 ⊆ (ran 𝐴 × dom 𝐴)
8	7	sseli 3599	. . . . . . . . . 10 ⊢ (𝑞 ∈ ◡𝐴 → 𝑞 ∈ (ran 𝐴 × dom 𝐴))
9		dfdm4 5316	. . . . . . . . . . 11 ⊢ dom 𝐴 = ran ◡𝐴
10	1, 9	xpeq12i 5137	. . . . . . . . . 10 ⊢ (ran 𝐴 × dom 𝐴) = (dom ◡𝐴 × ran ◡𝐴)
11	8, 10	syl6eleq 2711	. . . . . . . . 9 ⊢ (𝑞 ∈ ◡𝐴 → 𝑞 ∈ (dom ◡𝐴 × ran ◡𝐴))
12		2nd1st 7213	. . . . . . . . 9 ⊢ (𝑞 ∈ (dom ◡𝐴 × ran ◡𝐴) → ∪ ◡{𝑞} = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩)
13	11, 12	syl 17	. . . . . . . 8 ⊢ (𝑞 ∈ ◡𝐴 → ∪ ◡{𝑞} = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩)
14	13	eqcomd 2628	. . . . . . 7 ⊢ (𝑞 ∈ ◡𝐴 → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ = ∪ ◡{𝑞})
15		relcnv 5503	. . . . . . . 8 ⊢ Rel ◡𝐴
16		cnvf1olem 7275	. . . . . . . . 9 ⊢ ((Rel ◡𝐴 ∧ (𝑞 ∈ ◡𝐴 ∧ ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ = ∪ ◡{𝑞})) → (⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ∈ ◡◡𝐴 ∧ 𝑞 = ∪ ◡{⟨(2nd ‘𝑞), (1st ‘𝑞)⟩}))
17	16	simpld 475	. . . . . . . 8 ⊢ ((Rel ◡𝐴 ∧ (𝑞 ∈ ◡𝐴 ∧ ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ = ∪ ◡{𝑞})) → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ∈ ◡◡𝐴)
18	15, 17	mpan 706	. . . . . . 7 ⊢ ((𝑞 ∈ ◡𝐴 ∧ ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ = ∪ ◡{𝑞}) → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ∈ ◡◡𝐴)
19	14, 18	mpdan 702	. . . . . 6 ⊢ (𝑞 ∈ ◡𝐴 → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ∈ ◡◡𝐴)
20	6, 19	sseldi 3601	. . . . 5 ⊢ (𝑞 ∈ ◡𝐴 → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ∈ 𝐴)
21	20	adantl 482	. . . 4 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑞 ∈ ◡𝐴) → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ∈ 𝐴)
22		simpll 790	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → Rel 𝐴)
23		simpr 477	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ 𝐴)
24		relssdmrn 5656	. . . . . . . . . . 11 ⊢ (Rel 𝐴 → 𝐴 ⊆ (dom 𝐴 × ran 𝐴))
25	24	adantr 481	. . . . . . . . . 10 ⊢ ((Rel 𝐴 ∧ Fun ◡𝐴) → 𝐴 ⊆ (dom 𝐴 × ran 𝐴))
26	25	sselda 3603	. . . . . . . . 9 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ (dom 𝐴 × ran 𝐴))
27		2nd1st 7213	. . . . . . . . 9 ⊢ (𝑝 ∈ (dom 𝐴 × ran 𝐴) → ∪ ◡{𝑝} = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)
28	26, 27	syl 17	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → ∪ ◡{𝑝} = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)
29	28	eqcomd 2628	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ = ∪ ◡{𝑝})
30		cnvf1olem 7275	. . . . . . . 8 ⊢ ((Rel 𝐴 ∧ (𝑝 ∈ 𝐴 ∧ ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ = ∪ ◡{𝑝})) → (⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ ∈ ◡𝐴 ∧ 𝑝 = ∪ ◡{⟨(2nd ‘𝑝), (1st ‘𝑝)⟩}))
31	30	simpld 475	. . . . . . 7 ⊢ ((Rel 𝐴 ∧ (𝑝 ∈ 𝐴 ∧ ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ = ∪ ◡{𝑝})) → ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ ∈ ◡𝐴)
32	22, 23, 29, 31	syl12anc 1324	. . . . . 6 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ ∈ ◡𝐴)
33	15	a1i 11	. . . . . . . . . 10 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → Rel ◡𝐴)
34		simplr 792	. . . . . . . . . 10 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → 𝑞 ∈ ◡𝐴)
35	14	ad2antlr 763	. . . . . . . . . 10 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ = ∪ ◡{𝑞})
36	16	simprd 479	. . . . . . . . . 10 ⊢ ((Rel ◡𝐴 ∧ (𝑞 ∈ ◡𝐴 ∧ ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ = ∪ ◡{𝑞})) → 𝑞 = ∪ ◡{⟨(2nd ‘𝑞), (1st ‘𝑞)⟩})
37	33, 34, 35, 36	syl12anc 1324	. . . . . . . . 9 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → 𝑞 = ∪ ◡{⟨(2nd ‘𝑞), (1st ‘𝑞)⟩})
38		simpr 477	. . . . . . . . . . . 12 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩)
39	38	sneqd 4189	. . . . . . . . . . 11 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → {𝑝} = {⟨(2nd ‘𝑞), (1st ‘𝑞)⟩})
40	39	cnveqd 5298	. . . . . . . . . 10 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → ◡{𝑝} = ◡{⟨(2nd ‘𝑞), (1st ‘𝑞)⟩})
41	40	unieqd 4446	. . . . . . . . 9 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → ∪ ◡{𝑝} = ∪ ◡{⟨(2nd ‘𝑞), (1st ‘𝑞)⟩})
42	28	ad2antrr 762	. . . . . . . . 9 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → ∪ ◡{𝑝} = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)
43	37, 41, 42	3eqtr2d 2662	. . . . . . . 8 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)
44	30	simprd 479	. . . . . . . . . . 11 ⊢ ((Rel 𝐴 ∧ (𝑝 ∈ 𝐴 ∧ ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ = ∪ ◡{𝑝})) → 𝑝 = ∪ ◡{⟨(2nd ‘𝑝), (1st ‘𝑝)⟩})
45	22, 23, 29, 44	syl12anc 1324	. . . . . . . . . 10 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → 𝑝 = ∪ ◡{⟨(2nd ‘𝑝), (1st ‘𝑝)⟩})
46	45	ad2antrr 762	. . . . . . . . 9 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → 𝑝 = ∪ ◡{⟨(2nd ‘𝑝), (1st ‘𝑝)⟩})
47		simpr 477	. . . . . . . . . . . 12 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)
48	47	sneqd 4189	. . . . . . . . . . 11 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → {𝑞} = {⟨(2nd ‘𝑝), (1st ‘𝑝)⟩})
49	48	cnveqd 5298	. . . . . . . . . 10 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → ◡{𝑞} = ◡{⟨(2nd ‘𝑝), (1st ‘𝑝)⟩})
50	49	unieqd 4446	. . . . . . . . 9 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → ∪ ◡{𝑞} = ∪ ◡{⟨(2nd ‘𝑝), (1st ‘𝑝)⟩})
51	13	ad2antlr 763	. . . . . . . . 9 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → ∪ ◡{𝑞} = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩)
52	46, 50, 51	3eqtr2d 2662	. . . . . . . 8 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩)
53	43, 52	impbida 877	. . . . . . 7 ⊢ ((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) → (𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩))
54	53	ralrimiva 2966	. . . . . 6 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → ∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩))
55		eqeq2 2633	. . . . . . . . 9 ⊢ (𝑟 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ → (𝑞 = 𝑟 ↔ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩))
56	55	bibi2d 332	. . . . . . . 8 ⊢ (𝑟 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ → ((𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = 𝑟) ↔ (𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)))
57	56	ralbidv 2986	. . . . . . 7 ⊢ (𝑟 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ → (∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = 𝑟) ↔ ∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)))
58	57	rspcev 3309	. . . . . 6 ⊢ ((⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ ∈ ◡𝐴 ∧ ∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)) → ∃𝑟 ∈ ◡ 𝐴∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = 𝑟))
59	32, 54, 58	syl2anc 693	. . . . 5 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → ∃𝑟 ∈ ◡ 𝐴∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = 𝑟))
60		reu6 3395	. . . . 5 ⊢ (∃!𝑞 ∈ ◡ 𝐴𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ ∃𝑟 ∈ ◡ 𝐴∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = 𝑟))
61	59, 60	sylibr 224	. . . 4 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → ∃!𝑞 ∈ ◡ 𝐴𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩)
62		fvex 6201	. . . . . . 7 ⊢ (2nd ‘𝑞) ∈ V
63		fvex 6201	. . . . . . 7 ⊢ (1st ‘𝑞) ∈ V
64	62, 63	op2ndd 7179	. . . . . 6 ⊢ (𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ → (2nd ‘𝑝) = (1st ‘𝑞))
65	64	eqeq2d 2632	. . . . 5 ⊢ (𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ → (𝑌 = (2nd ‘𝑝) ↔ 𝑌 = (1st ‘𝑞)))
66	65	adantl 482	. . . 4 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → (𝑌 = (2nd ‘𝑝) ↔ 𝑌 = (1st ‘𝑞)))
67	21, 61, 66	reuxfr4d 29330	. . 3 ⊢ ((Rel 𝐴 ∧ Fun ◡𝐴) → (∃!𝑝 ∈ 𝐴 𝑌 = (2nd ‘𝑝) ↔ ∃!𝑞 ∈ ◡ 𝐴𝑌 = (1st ‘𝑞)))
68	67	adantr 481	. 2 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑌 ∈ ran 𝐴) → (∃!𝑝 ∈ 𝐴 𝑌 = (2nd ‘𝑝) ↔ ∃!𝑞 ∈ ◡ 𝐴𝑌 = (1st ‘𝑞)))
69	5, 68	mpbird 247	1 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑌 ∈ ran 𝐴) → ∃!𝑝 ∈ 𝐴 𝑌 = (2nd ‘𝑝))

Syntax hints:   → wi 4   ↔ wb 196   ∧ wa 384   = wceq 1483   ∈ wcel 1990  ∀wral 2912  ∃wrex 2913  ∃!wreu 2914   ⊆ wss 3574  {csn 4177  ⟨cop 4183  ∪ cuni 4436   × cxp 5112  ^◡ccnv 5113  dom cdm 5114  ran crn 5115  Rel wrel 5119  Fun wfun 5882  ‘cfv 5888  1^st c1st 7166  2^nd c2nd 7167

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-nul 3916  df-if 4087  df-sn 4178  df-pr 4180  df-op 4184  df-uni 4437  df-br 4654  df-opab 4713  df-mpt 4730  df-id 5024  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-iota 5851  df-fun 5890  df-fn 5891  df-fv 5896  df-1st 7168  df-2nd 7169

This theorem is referenced by:  gsummpt2co  29780