Theorem fntpb 6378

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 6377	. . . . . . 7 ⊢ (𝐹 Fn {𝐴, 𝐵} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩})
4		tpidm23 4236	. . . . . . . . 9 ⊢ {𝐴, 𝐵, 𝐵} = {𝐴, 𝐵}
5	4	eqcomi 2619	. . . . . . . 8 ⊢ {𝐴, 𝐵} = {𝐴, 𝐵, 𝐵}
6	5	fneq2i 5900	. . . . . . 7 ⊢ (𝐹 Fn {𝐴, 𝐵} ↔ 𝐹 Fn {𝐴, 𝐵, 𝐵})
7		tpidm23 4236	. . . . . . . . 9 ⊢ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}
8	7	eqcomi 2619	. . . . . . . 8 ⊢ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}
9	8	eqeq2i 2622	. . . . . . 7 ⊢ (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩})
10	3, 6, 9	3bitr3i 289	. . . . . 6 ⊢ (𝐹 Fn {𝐴, 𝐵, 𝐵} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩})
11	10	a1i 11	. . . . 5 ⊢ (𝐵 = 𝐶 → (𝐹 Fn {𝐴, 𝐵, 𝐵} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}))
12		tpeq3 4223	. . . . . 6 ⊢ (𝐵 = 𝐶 → {𝐴, 𝐵, 𝐵} = {𝐴, 𝐵, 𝐶})
13	12	fneq2d 5896	. . . . 5 ⊢ (𝐵 = 𝐶 → (𝐹 Fn {𝐴, 𝐵, 𝐵} ↔ 𝐹 Fn {𝐴, 𝐵, 𝐶}))
14		id 22	. . . . . . . 8 ⊢ (𝐵 = 𝐶 → 𝐵 = 𝐶)
15		fveq2 6103	. . . . . . . 8 ⊢ (𝐵 = 𝐶 → (𝐹‘𝐵) = (𝐹‘𝐶))
16	14, 15	opeq12d 4348	. . . . . . 7 ⊢ (𝐵 = 𝐶 → ⟨𝐵, (𝐹‘𝐵)⟩ = ⟨𝐶, (𝐹‘𝐶)⟩)
17	16	tpeq3d 4226	. . . . . 6 ⊢ (𝐵 = 𝐶 → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
18	17	eqeq2d 2620	. . . . 5 ⊢ (𝐵 = 𝐶 → (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
19	11, 13, 18	3bitr3d 297	. . . 4 ⊢ (𝐵 = 𝐶 → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
20	19	a1d 25	. . 3 ⊢ (𝐵 = 𝐶 → ((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})))
21		fndm 5904	. . . . . . . 8 ⊢ (𝐹 Fn {𝐴, 𝐵, 𝐶} → dom 𝐹 = {𝐴, 𝐵, 𝐶})
22		fvex 6113	. . . . . . . . 9 ⊢ (𝐹‘𝐴) ∈ V
23		fvex 6113	. . . . . . . . 9 ⊢ (𝐹‘𝐵) ∈ V
24		fvex 6113	. . . . . . . . 9 ⊢ (𝐹‘𝐶) ∈ V
25	22, 23, 24	dmtpop 5529	. . . . . . . 8 ⊢ dom {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} = {𝐴, 𝐵, 𝐶}
26	21, 25	syl6eqr 2662	. . . . . . 7 ⊢ (𝐹 Fn {𝐴, 𝐵, 𝐶} → dom 𝐹 = dom {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
27	26	adantl 481	. . . . . 6 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → dom 𝐹 = dom {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
28	21	adantl 481	. . . . . . . . 9 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → dom 𝐹 = {𝐴, 𝐵, 𝐶})
29	28	eleq2d 2673	. . . . . . . 8 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝑥 ∈ dom 𝐹 ↔ 𝑥 ∈ {𝐴, 𝐵, 𝐶}))
30		vex 3176	. . . . . . . . . 10 ⊢ 𝑥 ∈ V
31	30	eltp 4177	. . . . . . . . 9 ⊢ (𝑥 ∈ {𝐴, 𝐵, 𝐶} ↔ (𝑥 = 𝐴 ∨ 𝑥 = 𝐵 ∨ 𝑥 = 𝐶))
32	1, 22	fvtp1 6365	. . . . . . . . . . . . 13 ⊢ ((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐴) = (𝐹‘𝐴))
33	32	ad2antrr 758	. . . . . . . . . . . 12 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐴) = (𝐹‘𝐴))
34	33	eqcomd 2616	. . . . . . . . . . 11 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝐹‘𝐴) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐴))
35		fveq2 6103	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐴 → (𝐹‘𝑥) = (𝐹‘𝐴))
36		fveq2 6103	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐴 → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐴))
37	35, 36	eqeq12d 2625	. . . . . . . . . . 11 ⊢ (𝑥 = 𝐴 → ((𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥) ↔ (𝐹‘𝐴) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐴)))
38	34, 37	syl5ibrcom 236	. . . . . . . . . 10 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝑥 = 𝐴 → (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥)))
39	2, 23	fvtp2 6366	. . . . . . . . . . . . 13 ⊢ ((𝐴 ≠ 𝐵 ∧ 𝐵 ≠ 𝐶) → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐵) = (𝐹‘𝐵))
40	39	ad4ant13 1284	. . . . . . . . . . . 12 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐵) = (𝐹‘𝐵))
41	40	eqcomd 2616	. . . . . . . . . . 11 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝐹‘𝐵) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐵))
42		fveq2 6103	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐵 → (𝐹‘𝑥) = (𝐹‘𝐵))
43		fveq2 6103	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐵 → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐵))
44	42, 43	eqeq12d 2625	. . . . . . . . . . 11 ⊢ (𝑥 = 𝐵 → ((𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥) ↔ (𝐹‘𝐵) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐵)))
45	41, 44	syl5ibrcom 236	. . . . . . . . . 10 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝑥 = 𝐵 → (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥)))
46		fntpb.c	. . . . . . . . . . . . . 14 ⊢ 𝐶 ∈ V
47	46, 24	fvtp3 6367	. . . . . . . . . . . . 13 ⊢ ((𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐶) → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐶) = (𝐹‘𝐶))
48	47	ad4ant23 1289	. . . . . . . . . . . 12 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐶) = (𝐹‘𝐶))
49	48	eqcomd 2616	. . . . . . . . . . 11 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝐹‘𝐶) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐶))
50		fveq2 6103	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐶 → (𝐹‘𝑥) = (𝐹‘𝐶))
51		fveq2 6103	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐶 → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐶))
52	50, 51	eqeq12d 2625	. . . . . . . . . . 11 ⊢ (𝑥 = 𝐶 → ((𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥) ↔ (𝐹‘𝐶) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝐶)))
53	49, 52	syl5ibrcom 236	. . . . . . . . . 10 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝑥 = 𝐶 → (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥)))
54	38, 45, 53	3jaod 1384	. . . . . . . . 9 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → ((𝑥 = 𝐴 ∨ 𝑥 = 𝐵 ∨ 𝑥 = 𝐶) → (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥)))
55	31, 54	syl5bi 231	. . . . . . . 8 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝑥 ∈ {𝐴, 𝐵, 𝐶} → (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥)))
56	29, 55	sylbid 229	. . . . . . 7 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝑥 ∈ dom 𝐹 → (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥)))
57	56	ralrimiv 2948	. . . . . 6 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → ∀𝑥 ∈ dom 𝐹(𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥))
58		fnfun 5902	. . . . . . 7 ⊢ (𝐹 Fn {𝐴, 𝐵, 𝐶} → Fun 𝐹)
59	1, 2, 46, 22, 23, 24	funtp 5859	. . . . . . . 8 ⊢ ((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐶) → Fun {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
60	59	3expa 1257	. . . . . . 7 ⊢ (((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) → Fun {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
61		eqfunfv 6224	. . . . . . 7 ⊢ ((Fun 𝐹 ∧ Fun {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}) → (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} ↔ (dom 𝐹 = dom {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} ∧ ∀𝑥 ∈ dom 𝐹(𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥))))
62	58, 60, 61	syl2anr 494	. . . . . 6 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} ↔ (dom 𝐹 = dom {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} ∧ ∀𝑥 ∈ dom 𝐹(𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}‘𝑥))))
63	27, 57, 62	mpbir2and 959	. . . . 5 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 Fn {𝐴, 𝐵, 𝐶}) → 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
64	1, 2, 46, 22, 23, 24	fntp 5863	. . . . . . 7 ⊢ ((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐶) → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} Fn {𝐴, 𝐵, 𝐶})
65	64	3expa 1257	. . . . . 6 ⊢ (((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} Fn {𝐴, 𝐵, 𝐶})
66		fneq1 5893	. . . . . . 7 ⊢ (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} Fn {𝐴, 𝐵, 𝐶}))
67	66	biimprd 237	. . . . . 6 ⊢ (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} Fn {𝐴, 𝐵, 𝐶} → 𝐹 Fn {𝐴, 𝐵, 𝐶}))
68	65, 67	mpan9 485	. . . . 5 ⊢ ((((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) ∧ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}) → 𝐹 Fn {𝐴, 𝐵, 𝐶})
69	63, 68	impbida 873	. . . 4 ⊢ (((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) ∧ 𝐵 ≠ 𝐶) → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
70	69	expcom 450	. . 3 ⊢ (𝐵 ≠ 𝐶 → ((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})))
71	20, 70	pm2.61ine 2865	. 2 ⊢ ((𝐴 ≠ 𝐵 ∧ 𝐴 ≠ 𝐶) → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
72	1, 46	fnprb 6377	. . . . 5 ⊢ (𝐹 Fn {𝐴, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
73		tpidm12 4234	. . . . . . 7 ⊢ {𝐴, 𝐴, 𝐶} = {𝐴, 𝐶}
74	73	eqcomi 2619	. . . . . 6 ⊢ {𝐴, 𝐶} = {𝐴, 𝐴, 𝐶}
75	74	fneq2i 5900	. . . . 5 ⊢ (𝐹 Fn {𝐴, 𝐶} ↔ 𝐹 Fn {𝐴, 𝐴, 𝐶})
76		tpidm12 4234	. . . . . . 7 ⊢ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}
77	76	eqcomi 2619	. . . . . 6 ⊢ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}
78	77	eqeq2i 2622	. . . . 5 ⊢ (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
79	72, 75, 78	3bitr3i 289	. . . 4 ⊢ (𝐹 Fn {𝐴, 𝐴, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
80	79	a1i 11	. . 3 ⊢ (𝐴 = 𝐵 → (𝐹 Fn {𝐴, 𝐴, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
81		tpeq2 4222	. . . 4 ⊢ (𝐴 = 𝐵 → {𝐴, 𝐴, 𝐶} = {𝐴, 𝐵, 𝐶})
82	81	fneq2d 5896	. . 3 ⊢ (𝐴 = 𝐵 → (𝐹 Fn {𝐴, 𝐴, 𝐶} ↔ 𝐹 Fn {𝐴, 𝐵, 𝐶}))
83		id 22	. . . . . 6 ⊢ (𝐴 = 𝐵 → 𝐴 = 𝐵)
84		fveq2 6103	. . . . . 6 ⊢ (𝐴 = 𝐵 → (𝐹‘𝐴) = (𝐹‘𝐵))
85	83, 84	opeq12d 4348	. . . . 5 ⊢ (𝐴 = 𝐵 → ⟨𝐴, (𝐹‘𝐴)⟩ = ⟨𝐵, (𝐹‘𝐵)⟩)
86	85	tpeq2d 4225	. . . 4 ⊢ (𝐴 = 𝐵 → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
87	86	eqeq2d 2620	. . 3 ⊢ (𝐴 = 𝐵 → (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐶, (𝐹‘𝐶)⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
88	80, 82, 87	3bitr3d 297	. 2 ⊢ (𝐴 = 𝐵 → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
89		tpidm13 4235	. . . . . . 7 ⊢ {𝐴, 𝐵, 𝐴} = {𝐴, 𝐵}
90	89	eqcomi 2619	. . . . . 6 ⊢ {𝐴, 𝐵} = {𝐴, 𝐵, 𝐴}
91	90	fneq2i 5900	. . . . 5 ⊢ (𝐹 Fn {𝐴, 𝐵} ↔ 𝐹 Fn {𝐴, 𝐵, 𝐴})
92		tpidm13 4235	. . . . . . 7 ⊢ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}
93	92	eqcomi 2619	. . . . . 6 ⊢ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩}
94	93	eqeq2i 2622	. . . . 5 ⊢ (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩})
95	3, 91, 94	3bitr3i 289	. . . 4 ⊢ (𝐹 Fn {𝐴, 𝐵, 𝐴} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩})
96	95	a1i 11	. . 3 ⊢ (𝐴 = 𝐶 → (𝐹 Fn {𝐴, 𝐵, 𝐴} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩}))
97		tpeq3 4223	. . . 4 ⊢ (𝐴 = 𝐶 → {𝐴, 𝐵, 𝐴} = {𝐴, 𝐵, 𝐶})
98	97	fneq2d 5896	. . 3 ⊢ (𝐴 = 𝐶 → (𝐹 Fn {𝐴, 𝐵, 𝐴} ↔ 𝐹 Fn {𝐴, 𝐵, 𝐶}))
99		id 22	. . . . . 6 ⊢ (𝐴 = 𝐶 → 𝐴 = 𝐶)
100		fveq2 6103	. . . . . 6 ⊢ (𝐴 = 𝐶 → (𝐹‘𝐴) = (𝐹‘𝐶))
101	99, 100	opeq12d 4348	. . . . 5 ⊢ (𝐴 = 𝐶 → ⟨𝐴, (𝐹‘𝐴)⟩ = ⟨𝐶, (𝐹‘𝐶)⟩)
102	101	tpeq3d 4226	. . . 4 ⊢ (𝐴 = 𝐶 → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})
103	102	eqeq2d 2620	. . 3 ⊢ (𝐴 = 𝐶 → (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐴, (𝐹‘𝐴)⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
104	96, 98, 103	3bitr3d 297	. 2 ⊢ (𝐴 = 𝐶 → (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩}))
105	71, 88, 104	pm2.61iine 2872	1 ⊢ (𝐹 Fn {𝐴, 𝐵, 𝐶} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩, ⟨𝐶, (𝐹‘𝐶)⟩})

Syntax hints:   → wi 4   ↔ wb 195   ∧ wa 383   ∨ w3o 1030   = wceq 1475   ∈ wcel 1977   ≠ wne 2780  ∀wral 2896  Vcvv 3173  {cpr 4127  {ctp 4129  ⟨cop 4131  dom cdm 5038  Fun wfun 5798   Fn wfn 5799  ‘cfv 5804

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-reu 2903  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-br 4584  df-opab 4644  df-mpt 4645  df-id 4953  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812

This theorem is referenced by:  wrd3tpop  13539