Theorem fcnvgreu 31898

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 5688	. . . 4 ⊢ ran 𝐴 = dom ◡𝐴
2	1	eleq2i 2826	. . 3 ⊢ (𝑌 ∈ ran 𝐴 ↔ 𝑌 ∈ dom ◡𝐴)
3		fgreu 31897	. . . 4 ⊢ ((Fun ◡𝐴 ∧ 𝑌 ∈ dom ◡𝐴) → ∃!𝑞 ∈ ◡ 𝐴𝑌 = (1st ‘𝑞))
4	3	adantll 713	. . 3 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑌 ∈ dom ◡𝐴) → ∃!𝑞 ∈ ◡ 𝐴𝑌 = (1st ‘𝑞))
5	2, 4	sylan2b 595	. 2 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑌 ∈ ran 𝐴) → ∃!𝑞 ∈ ◡ 𝐴𝑌 = (1st ‘𝑞))
6		cnvcnvss 6194	. . . . . 6 ⊢ ◡◡𝐴 ⊆ 𝐴
7		cnvssrndm 6271	. . . . . . . . . . 11 ⊢ ◡𝐴 ⊆ (ran 𝐴 × dom 𝐴)
8	7	sseli 3979	. . . . . . . . . 10 ⊢ (𝑞 ∈ ◡𝐴 → 𝑞 ∈ (ran 𝐴 × dom 𝐴))
9		dfdm4 5896	. . . . . . . . . . 11 ⊢ dom 𝐴 = ran ◡𝐴
10	1, 9	xpeq12i 5705	. . . . . . . . . 10 ⊢ (ran 𝐴 × dom 𝐴) = (dom ◡𝐴 × ran ◡𝐴)
11	8, 10	eleqtrdi 2844	. . . . . . . . 9 ⊢ (𝑞 ∈ ◡𝐴 → 𝑞 ∈ (dom ◡𝐴 × ran ◡𝐴))
12		2nd1st 8024	. . . . . . . . 9 ⊢ (𝑞 ∈ (dom ◡𝐴 × ran ◡𝐴) → ∪ ◡{𝑞} = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩)
13	11, 12	syl 17	. . . . . . . 8 ⊢ (𝑞 ∈ ◡𝐴 → ∪ ◡{𝑞} = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩)
14	13	eqcomd 2739	. . . . . . 7 ⊢ (𝑞 ∈ ◡𝐴 → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ = ∪ ◡{𝑞})
15		relcnv 6104	. . . . . . . 8 ⊢ Rel ◡𝐴
16		cnvf1olem 8096	. . . . . . . . 9 ⊢ ((Rel ◡𝐴 ∧ (𝑞 ∈ ◡𝐴 ∧ ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ = ∪ ◡{𝑞})) → (⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ∈ ◡◡𝐴 ∧ 𝑞 = ∪ ◡{⟨(2nd ‘𝑞), (1st ‘𝑞)⟩}))
17	16	simpld 496	. . . . . . . 8 ⊢ ((Rel ◡𝐴 ∧ (𝑞 ∈ ◡𝐴 ∧ ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ = ∪ ◡{𝑞})) → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ∈ ◡◡𝐴)
18	15, 17	mpan 689	. . . . . . 7 ⊢ ((𝑞 ∈ ◡𝐴 ∧ ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ = ∪ ◡{𝑞}) → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ∈ ◡◡𝐴)
19	14, 18	mpdan 686	. . . . . 6 ⊢ (𝑞 ∈ ◡𝐴 → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ∈ ◡◡𝐴)
20	6, 19	sselid 3981	. . . . 5 ⊢ (𝑞 ∈ ◡𝐴 → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ∈ 𝐴)
21	20	adantl 483	. . . 4 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑞 ∈ ◡𝐴) → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ∈ 𝐴)
22		simpll 766	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → Rel 𝐴)
23		simpr 486	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ 𝐴)
24		relssdmrn 6268	. . . . . . . . . . 11 ⊢ (Rel 𝐴 → 𝐴 ⊆ (dom 𝐴 × ran 𝐴))
25	24	adantr 482	. . . . . . . . . 10 ⊢ ((Rel 𝐴 ∧ Fun ◡𝐴) → 𝐴 ⊆ (dom 𝐴 × ran 𝐴))
26	25	sselda 3983	. . . . . . . . 9 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ (dom 𝐴 × ran 𝐴))
27		2nd1st 8024	. . . . . . . . 9 ⊢ (𝑝 ∈ (dom 𝐴 × ran 𝐴) → ∪ ◡{𝑝} = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)
28	26, 27	syl 17	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → ∪ ◡{𝑝} = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)
29	28	eqcomd 2739	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ = ∪ ◡{𝑝})
30		cnvf1olem 8096	. . . . . . . 8 ⊢ ((Rel 𝐴 ∧ (𝑝 ∈ 𝐴 ∧ ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ = ∪ ◡{𝑝})) → (⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ ∈ ◡𝐴 ∧ 𝑝 = ∪ ◡{⟨(2nd ‘𝑝), (1st ‘𝑝)⟩}))
31	30	simpld 496	. . . . . . 7 ⊢ ((Rel 𝐴 ∧ (𝑝 ∈ 𝐴 ∧ ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ = ∪ ◡{𝑝})) → ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ ∈ ◡𝐴)
32	22, 23, 29, 31	syl12anc 836	. . . . . 6 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ ∈ ◡𝐴)
33	15	a1i 11	. . . . . . . . . 10 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → Rel ◡𝐴)
34		simplr 768	. . . . . . . . . 10 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → 𝑞 ∈ ◡𝐴)
35	14	ad2antlr 726	. . . . . . . . . 10 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ = ∪ ◡{𝑞})
36	16	simprd 497	. . . . . . . . . 10 ⊢ ((Rel ◡𝐴 ∧ (𝑞 ∈ ◡𝐴 ∧ ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ = ∪ ◡{𝑞})) → 𝑞 = ∪ ◡{⟨(2nd ‘𝑞), (1st ‘𝑞)⟩})
37	33, 34, 35, 36	syl12anc 836	. . . . . . . . 9 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → 𝑞 = ∪ ◡{⟨(2nd ‘𝑞), (1st ‘𝑞)⟩})
38		simpr 486	. . . . . . . . . . . 12 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩)
39	38	sneqd 4641	. . . . . . . . . . 11 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → {𝑝} = {⟨(2nd ‘𝑞), (1st ‘𝑞)⟩})
40	39	cnveqd 5876	. . . . . . . . . 10 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → ◡{𝑝} = ◡{⟨(2nd ‘𝑞), (1st ‘𝑞)⟩})
41	40	unieqd 4923	. . . . . . . . 9 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → ∪ ◡{𝑝} = ∪ ◡{⟨(2nd ‘𝑞), (1st ‘𝑞)⟩})
42	28	ad2antrr 725	. . . . . . . . 9 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → ∪ ◡{𝑝} = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)
43	37, 41, 42	3eqtr2d 2779	. . . . . . . 8 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)
44	30	simprd 497	. . . . . . . . . . 11 ⊢ ((Rel 𝐴 ∧ (𝑝 ∈ 𝐴 ∧ ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ = ∪ ◡{𝑝})) → 𝑝 = ∪ ◡{⟨(2nd ‘𝑝), (1st ‘𝑝)⟩})
45	22, 23, 29, 44	syl12anc 836	. . . . . . . . . 10 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → 𝑝 = ∪ ◡{⟨(2nd ‘𝑝), (1st ‘𝑝)⟩})
46	45	ad2antrr 725	. . . . . . . . 9 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → 𝑝 = ∪ ◡{⟨(2nd ‘𝑝), (1st ‘𝑝)⟩})
47		simpr 486	. . . . . . . . . . . 12 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)
48	47	sneqd 4641	. . . . . . . . . . 11 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → {𝑞} = {⟨(2nd ‘𝑝), (1st ‘𝑝)⟩})
49	48	cnveqd 5876	. . . . . . . . . 10 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → ◡{𝑞} = ◡{⟨(2nd ‘𝑝), (1st ‘𝑝)⟩})
50	49	unieqd 4923	. . . . . . . . 9 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → ∪ ◡{𝑞} = ∪ ◡{⟨(2nd ‘𝑝), (1st ‘𝑝)⟩})
51	13	ad2antlr 726	. . . . . . . . 9 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → ∪ ◡{𝑞} = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩)
52	46, 50, 51	3eqtr2d 2779	. . . . . . . 8 ⊢ (((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) ∧ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩) → 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩)
53	43, 52	impbida 800	. . . . . . 7 ⊢ ((((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) ∧ 𝑞 ∈ ◡𝐴) → (𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩))
54	53	ralrimiva 3147	. . . . . 6 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → ∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩))
55		eqeq2 2745	. . . . . . . . 9 ⊢ (𝑟 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ → (𝑞 = 𝑟 ↔ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩))
56	55	bibi2d 343	. . . . . . . 8 ⊢ (𝑟 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ → ((𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = 𝑟) ↔ (𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)))
57	56	ralbidv 3178	. . . . . . 7 ⊢ (𝑟 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ → (∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = 𝑟) ↔ ∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)))
58	57	rspcev 3613	. . . . . 6 ⊢ ((⟨(2nd ‘𝑝), (1st ‘𝑝)⟩ ∈ ◡𝐴 ∧ ∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = ⟨(2nd ‘𝑝), (1st ‘𝑝)⟩)) → ∃𝑟 ∈ ◡ 𝐴∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = 𝑟))
59	32, 54, 58	syl2anc 585	. . . . 5 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → ∃𝑟 ∈ ◡ 𝐴∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = 𝑟))
60		reu6 3723	. . . . 5 ⊢ (∃!𝑞 ∈ ◡ 𝐴𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ ∃𝑟 ∈ ◡ 𝐴∀𝑞 ∈ ◡ 𝐴(𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ ↔ 𝑞 = 𝑟))
61	59, 60	sylibr 233	. . . 4 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 ∈ 𝐴) → ∃!𝑞 ∈ ◡ 𝐴𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩)
62		fvex 6905	. . . . . . 7 ⊢ (2nd ‘𝑞) ∈ V
63		fvex 6905	. . . . . . 7 ⊢ (1st ‘𝑞) ∈ V
64	62, 63	op2ndd 7986	. . . . . 6 ⊢ (𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ → (2nd ‘𝑝) = (1st ‘𝑞))
65	64	eqeq2d 2744	. . . . 5 ⊢ (𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩ → (𝑌 = (2nd ‘𝑝) ↔ 𝑌 = (1st ‘𝑞)))
66	65	adantl 483	. . . 4 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑝 = ⟨(2nd ‘𝑞), (1st ‘𝑞)⟩) → (𝑌 = (2nd ‘𝑝) ↔ 𝑌 = (1st ‘𝑞)))
67	21, 61, 66	reuxfr1d 3747	. . 3 ⊢ ((Rel 𝐴 ∧ Fun ◡𝐴) → (∃!𝑝 ∈ 𝐴 𝑌 = (2nd ‘𝑝) ↔ ∃!𝑞 ∈ ◡ 𝐴𝑌 = (1st ‘𝑞)))
68	67	adantr 482	. 2 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑌 ∈ ran 𝐴) → (∃!𝑝 ∈ 𝐴 𝑌 = (2nd ‘𝑝) ↔ ∃!𝑞 ∈ ◡ 𝐴𝑌 = (1st ‘𝑞)))
69	5, 68	mpbird 257	1 ⊢ (((Rel 𝐴 ∧ Fun ◡𝐴) ∧ 𝑌 ∈ ran 𝐴) → ∃!𝑝 ∈ 𝐴 𝑌 = (2nd ‘𝑝))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 397   = wceq 1542   ∈ wcel 2107  ∀wral 3062  ∃wrex 3071  ∃!wreu 3375   ⊆ wss 3949  {csn 4629  ⟨cop 4635  ∪ cuni 4909   × cxp 5675  ^◡ccnv 5676  dom cdm 5677  ran crn 5678  Rel wrel 5682  Fun wfun 6538  ‘cfv 6544  1^st c1st 7973  2^nd c2nd 7974

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-sep 5300  ax-nul 5307  ax-pr 5428  ax-un 7725

This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-dif 3952  df-un 3954  df-in 3956  df-ss 3966  df-nul 4324  df-if 4530  df-sn 4630  df-pr 4632  df-op 4636  df-uni 4910  df-br 5150  df-opab 5212  df-mpt 5233  df-id 5575  df-xp 5683  df-rel 5684  df-cnv 5685  df-co 5686  df-dm 5687  df-rn 5688  df-iota 6496  df-fun 6546  df-fn 6547  df-fv 6552  df-1st 7975  df-2nd 7976

This theorem is referenced by:  gsummpt2co  32200