Theorem fntpb 7215

Description: A function whose domain has at most three elements can be represented as a set of at most three ordered pairs. (Contributed by AV, 26-Jan-2021.)

Hypotheses

Ref	Expression
fnprb.a	⊢ 𝐴 ∈ V
fnprb.b	⊢ 𝐵 ∈ V
fntpb.c	⊢ 𝐶 ∈ V

Assertion

Ref	Expression
fntpb	⊢ (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})

Proof of Theorem fntpb

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		fnprb.a	. . . . . . . 8 ⊢ 𝐴 ∈ V
2		fnprb.b	. . . . . . . 8 ⊢ 𝐵 ∈ V
3	1, 2	fnprb 7214	. . . . . . 7 ⊢ (𝐹 Fn {𝐴, 𝐵} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩})
4		tpidm23 4757	. . . . . . . . 9 ⊢ {𝐴, 𝐵, 𝐵} = {𝐴, 𝐵}
5	4	eqcomi 2736	. . . . . . . 8 ⊢ {𝐴, 𝐵} = {𝐴, 𝐵, 𝐵}
6	5	fneq2i 6646	. . . . . . 7 ⊢ (𝐹 Fn {𝐴, 𝐵} ↔ 𝐹 Fn {𝐴, 𝐵, 𝐵})
7		tpidm23 4757	. . . . . . . . 9 ⊢ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}
8	7	eqcomi 2736	. . . . . . . 8 ⊢ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}
9	8	eqeq2i 2740	. . . . . . 7 ⊢ (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩})
10	3, 6, 9	3bitr3i 301	. . . . . 6 ⊢ (𝐹 Fn {𝐴, 𝐵, 𝐵} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩})
11	10	a1i 11	. . . . 5 ⊢ (𝐵 = 𝐶 → (𝐹 Fn {𝐴, 𝐵, 𝐵} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}))
12		tpeq3 4744	. . . . . 6 ⊢ (𝐵 = 𝐶 → {𝐴, 𝐵, 𝐵} = {𝐴, 𝐵, 𝐶})
13	12	fneq2d 6642	. . . . 5 ⊢ (𝐵 = 𝐶 → (𝐹 Fn {𝐴, 𝐵, 𝐵} ↔ 𝐹 Fn {𝐴, 𝐵, 𝐶}))
14		id 22	. . . . . . . 8 ⊢ (𝐵 = 𝐶 → 𝐵 = 𝐶)
15		fveq2 6891	. . . . . . . 8 ⊢ (𝐵 = 𝐶 → (𝐹‘𝐵) = (𝐹‘𝐶))
16	14, 15	opeq12d 4877	. . . . . . 7 ⊢ (𝐵 = 𝐶 → ⟨𝐵, (𝐹‘𝐵)⟩ = ⟨𝐶, (𝐹‘𝐶)⟩)
17	16	tpeq3d 4747	. . . . . 6 ⊢ (𝐵 = 𝐶 → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
18	17	eqeq2d 2738	. . . . 5 ⊢ (𝐵 = 𝐶 → (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
19	11, 13, 18	3bitr3d 309	. . . 4 ⊢ (𝐵 = 𝐶 → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
20	19	a1d 25	. . 3 ⊢ (𝐵 = 𝐶 → ((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})))
21		fndm 6651	. . . . . . . 8 ⊢ (𝐹 Fn {𝐴, 𝐵, 𝐶} → dom 𝐹 = {𝐴, 𝐵, 𝐶})
22		fvex 6904	. . . . . . . . 9 ⊢ (𝐹‘𝐴) ∈ V
23		fvex 6904	. . . . . . . . 9 ⊢ (𝐹‘𝐵) ∈ V
24		fvex 6904	. . . . . . . . 9 ⊢ (𝐹‘𝐶) ∈ V
25	22, 23, 24	dmtpop 6216	. . . . . . . 8 ⊢ dom {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} = {𝐴, 𝐵, 𝐶}
26	21, 25	eqtr4di 2785	. . . . . . 7 ⊢ (𝐹 Fn {𝐴, 𝐵, 𝐶} → dom 𝐹 = dom {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
27	26	adantl 481	. . . . . 6 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → dom 𝐹 = dom {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
28	21	adantl 481	. . . . . . . . 9 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → dom 𝐹 = {𝐴, 𝐵, 𝐶})
29	28	eleq2d 2814	. . . . . . . 8 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝑥 ∈ dom 𝐹 ↔ 𝑥 ∈ {𝐴, 𝐵, 𝐶}))
30		vex 3473	. . . . . . . . . 10 ⊢ 𝑥 ∈ V
31	30	eltp 4688	. . . . . . . . 9 ⊢ (𝑥 ∈ {𝐴, 𝐵, 𝐶} ↔ (𝑥 = 𝐴 ∨ 𝑥 = 𝐵 ∨ 𝑥 = 𝐶))
32	1, 22	fvtp1 7201	. . . . . . . . . . . . 13 ⊢ ((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐴) = (𝐹‘𝐴))
33	32	ad2antrr 725	. . . . . . . . . . . 12 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐴) = (𝐹‘𝐴))
34	33	eqcomd 2733	. . . . . . . . . . 11 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝐹‘𝐴) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐴))
35		fveq2 6891	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐴 → (𝐹‘𝑥) = (𝐹‘𝐴))
36		fveq2 6891	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐴 → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐴))
37	35, 36	eqeq12d 2743	. . . . . . . . . . 11 ⊢ (𝑥 = 𝐴 → ((𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥) ↔ (𝐹‘𝐴) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐴)))
38	34, 37	syl5ibrcom 246	. . . . . . . . . 10 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝑥 = 𝐴 → (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥)))
39	2, 23	fvtp2 7202	. . . . . . . . . . . . 13 ⊢ ((𝐴 ≠ 𝐵 ∧ 𝐵 ≠ 𝐶) → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐵) = (𝐹‘𝐵))
40	39	ad4ant13 750	. . . . . . . . . . . 12 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐵) = (𝐹‘𝐵))
41	40	eqcomd 2733	. . . . . . . . . . 11 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝐹‘𝐵) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐵))
42		fveq2 6891	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐵 → (𝐹‘𝑥) = (𝐹‘𝐵))
43		fveq2 6891	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐵 → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐵))
44	42, 43	eqeq12d 2743	. . . . . . . . . . 11 ⊢ (𝑥 = 𝐵 → ((𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥) ↔ (𝐹‘𝐵) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐵)))
45	41, 44	syl5ibrcom 246	. . . . . . . . . 10 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝑥 = 𝐵 → (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥)))
46		fntpb.c	. . . . . . . . . . . . . 14 ⊢ 𝐶 ∈ V
47	46, 24	fvtp3 7203	. . . . . . . . . . . . 13 ⊢ ((𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐶) → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐶) = (𝐹‘𝐶))
48	47	ad4ant23 752	. . . . . . . . . . . 12 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐶) = (𝐹‘𝐶))
49	48	eqcomd 2733	. . . . . . . . . . 11 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝐹‘𝐶) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐶))
50		fveq2 6891	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐶 → (𝐹‘𝑥) = (𝐹‘𝐶))
51		fveq2 6891	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐶 → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐶))
52	50, 51	eqeq12d 2743	. . . . . . . . . . 11 ⊢ (𝑥 = 𝐶 → ((𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥) ↔ (𝐹‘𝐶) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐶)))
53	49, 52	syl5ibrcom 246	. . . . . . . . . 10 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝑥 = 𝐶 → (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥)))
54	38, 45, 53	3jaod 1426	. . . . . . . . 9 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → ((𝑥 = 𝐴 ∨ 𝑥 = 𝐵 ∨ 𝑥 = 𝐶) → (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥)))
55	31, 54	biimtrid 241	. . . . . . . 8 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝑥 ∈ {𝐴, 𝐵, 𝐶} → (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥)))
56	29, 55	sylbid 239	. . . . . . 7 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝑥 ∈ dom 𝐹 → (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥)))
57	56	ralrimiv 3140	. . . . . 6 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → ∀𝑥 ∈ dom 𝐹(𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥))
58		fnfun 6648	. . . . . . 7 ⊢ (𝐹 Fn {𝐴, 𝐵, 𝐶} → Fun 𝐹)
59	1, 2, 46, 22, 23, 24	funtp 6604	. . . . . . . 8 ⊢ ((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐶) → Fun {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
60	59	3expa 1116	. . . . . . 7 ⊢ (((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) → Fun {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
61		eqfunfv 7039	. . . . . . 7 ⊢ ((Fun 𝐹 ∧ Fun {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}) → (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} ↔ (dom 𝐹 = dom {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} ∧ ∀𝑥 ∈ dom 𝐹(𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥))))
62	58, 60, 61	syl2anr 596	. . . . . 6 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} ↔ (dom 𝐹 = dom {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} ∧ ∀𝑥 ∈ dom 𝐹(𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥))))
63	27, 57, 62	mpbir2and 712	. . . . 5 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
64	1, 2, 46, 22, 23, 24	fntp 6608	. . . . . . 7 ⊢ ((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐶) → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} Fn {𝐴, 𝐵, 𝐶})
65	64	3expa 1116	. . . . . 6 ⊢ (((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} Fn {𝐴, 𝐵, 𝐶})
66		fneq1 6639	. . . . . . 7 ⊢ (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} Fn {𝐴, 𝐵, 𝐶}))
67	66	biimprd 247	. . . . . 6 ⊢ (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} Fn {𝐴, 𝐵, 𝐶} → 𝐹 Fn {𝐴, 𝐵, 𝐶}))
68	65, 67	mpan9 506	. . . . 5 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}) → 𝐹 Fn {𝐴, 𝐵, 𝐶})
69	63, 68	impbida 800	. . . 4 ⊢ (((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
70	69	expcom 413	. . 3 ⊢ (𝐵 ≠ 𝐶 → ((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})))
71	20, 70	pm2.61ine 3020	. 2 ⊢ ((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
72	1, 46	fnprb 7214	. . . . 5 ⊢ (𝐹 Fn {𝐴, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
73		tpidm12 4755	. . . . . . 7 ⊢ {𝐴, 𝐴, 𝐶} = {𝐴, 𝐶}
74	73	eqcomi 2736	. . . . . 6 ⊢ {𝐴, 𝐶} = {𝐴, 𝐴, 𝐶}
75	74	fneq2i 6646	. . . . 5 ⊢ (𝐹 Fn {𝐴, 𝐶} ↔ 𝐹 Fn {𝐴, 𝐴, 𝐶})
76		tpidm12 4755	. . . . . . 7 ⊢ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}
77	76	eqcomi 2736	. . . . . 6 ⊢ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}
78	77	eqeq2i 2740	. . . . 5 ⊢ (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
79	72, 75, 78	3bitr3i 301	. . . 4 ⊢ (𝐹 Fn {𝐴, 𝐴, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
80	79	a1i 11	. . 3 ⊢ (𝐴 = 𝐵 → (𝐹 Fn {𝐴, 𝐴, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
81		tpeq2 4743	. . . 4 ⊢ (𝐴 = 𝐵 → {𝐴, 𝐴, 𝐶} = {𝐴, 𝐵, 𝐶})
82	81	fneq2d 6642	. . 3 ⊢ (𝐴 = 𝐵 → (𝐹 Fn {𝐴, 𝐴, 𝐶} ↔ 𝐹 Fn {𝐴, 𝐵, 𝐶}))
83		id 22	. . . . . 6 ⊢ (𝐴 = 𝐵 → 𝐴 = 𝐵)
84		fveq2 6891	. . . . . 6 ⊢ (𝐴 = 𝐵 → (𝐹‘𝐴) = (𝐹‘𝐵))
85	83, 84	opeq12d 4877	. . . . 5 ⊢ (𝐴 = 𝐵 → ⟨𝐴, (𝐹‘𝐴)⟩ = ⟨𝐵, (𝐹‘𝐵)⟩)
86	85	tpeq2d 4746	. . . 4 ⊢ (𝐴 = 𝐵 → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
87	86	eqeq2d 2738	. . 3 ⊢ (𝐴 = 𝐵 → (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
88	80, 82, 87	3bitr3d 309	. 2 ⊢ (𝐴 = 𝐵 → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
89		tpidm13 4756	. . . . . . 7 ⊢ {𝐴, 𝐵, 𝐴} = {𝐴, 𝐵}
90	89	eqcomi 2736	. . . . . 6 ⊢ {𝐴, 𝐵} = {𝐴, 𝐵, 𝐴}
91	90	fneq2i 6646	. . . . 5 ⊢ (𝐹 Fn {𝐴, 𝐵} ↔ 𝐹 Fn {𝐴, 𝐵, 𝐴})
92		tpidm13 4756	. . . . . . 7 ⊢ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}
93	92	eqcomi 2736	. . . . . 6 ⊢ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩}
94	93	eqeq2i 2740	. . . . 5 ⊢ (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩})
95	3, 91, 94	3bitr3i 301	. . . 4 ⊢ (𝐹 Fn {𝐴, 𝐵, 𝐴} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩})
96	95	a1i 11	. . 3 ⊢ (𝐴 = 𝐶 → (𝐹 Fn {𝐴, 𝐵, 𝐴} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩}))
97		tpeq3 4744	. . . 4 ⊢ (𝐴 = 𝐶 → {𝐴, 𝐵, 𝐴} = {𝐴, 𝐵, 𝐶})
98	97	fneq2d 6642	. . 3 ⊢ (𝐴 = 𝐶 → (𝐹 Fn {𝐴, 𝐵, 𝐴} ↔ 𝐹 Fn {𝐴, 𝐵, 𝐶}))
99		id 22	. . . . . 6 ⊢ (𝐴 = 𝐶 → 𝐴 = 𝐶)
100		fveq2 6891	. . . . . 6 ⊢ (𝐴 = 𝐶 → (𝐹‘𝐴) = (𝐹‘𝐶))
101	99, 100	opeq12d 4877	. . . . 5 ⊢ (𝐴 = 𝐶 → ⟨𝐴, (𝐹‘𝐴)⟩ = ⟨𝐶, (𝐹‘𝐶)⟩)
102	101	tpeq3d 4747	. . . 4 ⊢ (𝐴 = 𝐶 → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
103	102	eqeq2d 2738	. . 3 ⊢ (𝐴 = 𝐶 → (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
104	96, 98, 103	3bitr3d 309	. 2 ⊢ (𝐴 = 𝐶 → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
105	71, 88, 104	pm2.61iine 3027	1 ⊢ (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 395   ∨ w3o 1084   = wceq 1534   ∈ wcel 2099   ≠ wne 2935  ∀wral 3056  Vcvv 3469  {cpr 4626  {ctp 4628  ⟨cop 4630  dom cdm 5672  Fun wfun 6536   Fn wfn 6537  ‘cfv 6542

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-10 2130  ax-11 2147  ax-12 2164  ax-ext 2698  ax-sep 5293  ax-nul 5300  ax-pr 5423

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3or 1086  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2705  df-cleq 2719  df-clel 2805  df-nfc 2880  df-ne 2936  df-ral 3057  df-rex 3066  df-reu 3372  df-rab 3428  df-v 3471  df-sbc 3775  df-csb 3890  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-nul 4319  df-if 4525  df-sn 4625  df-pr 4627  df-tp 4629  df-op 4631  df-uni 4904  df-br 5143  df-opab 5205  df-mpt 5226  df-id 5570  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550

This theorem is referenced by:  wrd3tpop  14923