Theorem upixp 35019

Description: Universal property of the indexed Cartesian product. (Contributed by Jeff Madsen, 2-Sep-2009.) (Proof shortened by Mario Carneiro, 12-Sep-2015.)

Hypotheses

Ref	Expression
upixp.1	⊢ 𝑋 = X𝑏 ∈ 𝐴 (𝐶‘𝑏)
upixp.2	⊢ 𝑃 = (𝑤 ∈ 𝐴 ↦ (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑤)))

Assertion

Ref	Expression
upixp	⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → ∃!ℎ(ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)))

Distinct variable groups:   𝐴,𝑎,𝑏,ℎ,𝑤,𝑥   𝑅,𝑎,𝑏,ℎ,𝑤,𝑥   𝑆,𝑎,𝑏,ℎ,𝑤,𝑥   𝐹,𝑎,𝑏,ℎ,𝑤,𝑥   𝐵,𝑎,𝑏,ℎ,𝑤,𝑥   𝐶,𝑎,𝑏,ℎ,𝑤,𝑥   𝑋,𝑎,ℎ,𝑤,𝑥   𝑃,𝑎,ℎ

Allowed substitution hints:   𝑃(𝑥,𝑤,𝑏)   𝑋(𝑏)

Proof of Theorem upixp

Dummy variables 𝑠 𝑢 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mptexg 6984	. . 3 ⊢ (𝐵 ∈ 𝑆 → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) ∈ V)
2	1	3ad2ant2 1130	. 2 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) ∈ V)
3		ffvelrn 6849	. . . . . . . . . 10 ⊢ (((𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) ∧ 𝑢 ∈ 𝐵) → ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎))
4	3	expcom 416	. . . . . . . . 9 ⊢ (𝑢 ∈ 𝐵 → ((𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) → ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎)))
5	4	ralimdv 3178	. . . . . . . 8 ⊢ (𝑢 ∈ 𝐵 → (∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) → ∀𝑎 ∈ 𝐴 ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎)))
6	5	impcom 410	. . . . . . 7 ⊢ ((∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) ∧ 𝑢 ∈ 𝐵) → ∀𝑎 ∈ 𝐴 ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎))
7	6	3ad2antl3 1183	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → ∀𝑎 ∈ 𝐴 ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎))
8		fveq2 6670	. . . . . . . . 9 ⊢ (𝑎 = 𝑠 → (𝐹‘𝑎) = (𝐹‘𝑠))
9	8	fveq1d 6672	. . . . . . . 8 ⊢ (𝑎 = 𝑠 → ((𝐹‘𝑎)‘𝑢) = ((𝐹‘𝑠)‘𝑢))
10		fveq2 6670	. . . . . . . 8 ⊢ (𝑎 = 𝑠 → (𝐶‘𝑎) = (𝐶‘𝑠))
11	9, 10	eleq12d 2907	. . . . . . 7 ⊢ (𝑎 = 𝑠 → (((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎) ↔ ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠)))
12	11	cbvralvw 3449	. . . . . 6 ⊢ (∀𝑎 ∈ 𝐴 ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎) ↔ ∀𝑠 ∈ 𝐴 ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠))
13	7, 12	sylib 220	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → ∀𝑠 ∈ 𝐴 ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠))
14		simpl1 1187	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → 𝐴 ∈ 𝑅)
15		mptelixpg 8499	. . . . . 6 ⊢ (𝐴 ∈ 𝑅 → ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ X𝑠 ∈ 𝐴 (𝐶‘𝑠) ↔ ∀𝑠 ∈ 𝐴 ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠)))
16	14, 15	syl 17	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ X𝑠 ∈ 𝐴 (𝐶‘𝑠) ↔ ∀𝑠 ∈ 𝐴 ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠)))
17	13, 16	mpbird 259	. . . 4 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ X𝑠 ∈ 𝐴 (𝐶‘𝑠))
18		upixp.1	. . . . 5 ⊢ 𝑋 = X𝑏 ∈ 𝐴 (𝐶‘𝑏)
19		fveq2 6670	. . . . . 6 ⊢ (𝑏 = 𝑠 → (𝐶‘𝑏) = (𝐶‘𝑠))
20	19	cbvixpv 8479	. . . . 5 ⊢ X𝑏 ∈ 𝐴 (𝐶‘𝑏) = X𝑠 ∈ 𝐴 (𝐶‘𝑠)
21	18, 20	eqtri 2844	. . . 4 ⊢ 𝑋 = X𝑠 ∈ 𝐴 (𝐶‘𝑠)
22	17, 21	eleqtrrdi 2924	. . 3 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ 𝑋)
23	22	fmpttd 6879	. 2 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))):𝐵⟶𝑋)
24		nfv 1915	. . . 4 ⊢ Ⅎ𝑎 𝐴 ∈ 𝑅
25		nfv 1915	. . . 4 ⊢ Ⅎ𝑎 𝐵 ∈ 𝑆
26		nfra1 3219	. . . 4 ⊢ Ⅎ𝑎∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)
27	24, 25, 26	nf3an 1902	. . 3 ⊢ Ⅎ𝑎(𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎))
28		fveq2 6670	. . . . . . . . 9 ⊢ (𝑠 = 𝑎 → (𝐹‘𝑠) = (𝐹‘𝑎))
29	28	fveq1d 6672	. . . . . . . 8 ⊢ (𝑠 = 𝑎 → ((𝐹‘𝑠)‘𝑢) = ((𝐹‘𝑎)‘𝑢))
30		eqid 2821	. . . . . . . 8 ⊢ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) = (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))
31		fvex 6683	. . . . . . . 8 ⊢ ((𝐹‘𝑠)‘𝑢) ∈ V
32	29, 30, 31	fvmpt3i 6773	. . . . . . 7 ⊢ (𝑎 ∈ 𝐴 → ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎) = ((𝐹‘𝑎)‘𝑢))
33	32	adantl 484	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎) = ((𝐹‘𝑎)‘𝑢))
34	33	mpteq2dv 5162	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝑢 ∈ 𝐵 ↦ ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎)) = (𝑢 ∈ 𝐵 ↦ ((𝐹‘𝑎)‘𝑢)))
35	22	adantlr 713	. . . . . 6 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ 𝑋)
36		eqidd 2822	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))
37		fveq2 6670	. . . . . . . . 9 ⊢ (𝑤 = 𝑎 → (𝑥‘𝑤) = (𝑥‘𝑎))
38	37	mpteq2dv 5162	. . . . . . . 8 ⊢ (𝑤 = 𝑎 → (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑤)) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑎)))
39		upixp.2	. . . . . . . 8 ⊢ 𝑃 = (𝑤 ∈ 𝐴 ↦ (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑤)))
40		fvex 6683	. . . . . . . . . . . 12 ⊢ (𝐶‘𝑏) ∈ V
41	40	rgenw 3150	. . . . . . . . . . 11 ⊢ ∀𝑏 ∈ 𝐴 (𝐶‘𝑏) ∈ V
42		ixpexg 8486	. . . . . . . . . . 11 ⊢ (∀𝑏 ∈ 𝐴 (𝐶‘𝑏) ∈ V → X𝑏 ∈ 𝐴 (𝐶‘𝑏) ∈ V)
43	41, 42	ax-mp 5	. . . . . . . . . 10 ⊢ X𝑏 ∈ 𝐴 (𝐶‘𝑏) ∈ V
44	18, 43	eqeltri 2909	. . . . . . . . 9 ⊢ 𝑋 ∈ V
45	44	mptex 6986	. . . . . . . 8 ⊢ (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑤)) ∈ V
46	38, 39, 45	fvmpt3i 6773	. . . . . . 7 ⊢ (𝑎 ∈ 𝐴 → (𝑃‘𝑎) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑎)))
47	46	adantl 484	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝑃‘𝑎) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑎)))
48		fveq1 6669	. . . . . 6 ⊢ (𝑥 = (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) → (𝑥‘𝑎) = ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎))
49	35, 36, 47, 48	fmptco 6891	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))) = (𝑢 ∈ 𝐵 ↦ ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎)))
50		rsp 3205	. . . . . . . 8 ⊢ (∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) → (𝑎 ∈ 𝐴 → (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)))
51	50	3ad2ant3 1131	. . . . . . 7 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → (𝑎 ∈ 𝐴 → (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)))
52	51	imp 409	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎))
53	52	feqmptd 6733	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝐹‘𝑎) = (𝑢 ∈ 𝐵 ↦ ((𝐹‘𝑎)‘𝑢)))
54	34, 49, 53	3eqtr4rd 2867	. . . 4 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
55	54	ex 415	. . 3 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → (𝑎 ∈ 𝐴 → (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))))
56	27, 55	ralrimi 3216	. 2 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
57		simprl 769	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) → ℎ:𝐵⟶𝑋)
58	57	feqmptd 6733	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) → ℎ = (𝑢 ∈ 𝐵 ↦ (ℎ‘𝑢)))
59		simplrr 776	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))
60		fveq2 6670	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑠 → (𝑃‘𝑎) = (𝑃‘𝑠))
61	60	coeq1d 5732	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑠 → ((𝑃‘𝑎) ∘ ℎ) = ((𝑃‘𝑠) ∘ ℎ))
62	8, 61	eqeq12d 2837	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑠 → ((𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ) ↔ (𝐹‘𝑠) = ((𝑃‘𝑠) ∘ ℎ)))
63	62	rspccva 3622	. . . . . . . . . . 11 ⊢ ((∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ) ∧ 𝑠 ∈ 𝐴) → (𝐹‘𝑠) = ((𝑃‘𝑠) ∘ ℎ))
64	59, 63	sylan 582	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → (𝐹‘𝑠) = ((𝑃‘𝑠) ∘ ℎ))
65	64	fveq1d 6672	. . . . . . . . 9 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝐹‘𝑠)‘𝑢) = (((𝑃‘𝑠) ∘ ℎ)‘𝑢))
66		fvco3 6760	. . . . . . . . . . 11 ⊢ ((ℎ:𝐵⟶𝑋 ∧ 𝑢 ∈ 𝐵) → (((𝑃‘𝑠) ∘ ℎ)‘𝑢) = ((𝑃‘𝑠)‘(ℎ‘𝑢)))
67	57, 66	sylan 582	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (((𝑃‘𝑠) ∘ ℎ)‘𝑢) = ((𝑃‘𝑠)‘(ℎ‘𝑢)))
68	67	adantr 483	. . . . . . . . 9 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → (((𝑃‘𝑠) ∘ ℎ)‘𝑢) = ((𝑃‘𝑠)‘(ℎ‘𝑢)))
69		fveq2 6670	. . . . . . . . . . . . . 14 ⊢ (𝑤 = 𝑠 → (𝑥‘𝑤) = (𝑥‘𝑠))
70	69	mpteq2dv 5162	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑠 → (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑤)) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠)))
71	70, 39, 45	fvmpt3i 6773	. . . . . . . . . . . 12 ⊢ (𝑠 ∈ 𝐴 → (𝑃‘𝑠) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠)))
72	71	adantl 484	. . . . . . . . . . 11 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → (𝑃‘𝑠) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠)))
73	72	fveq1d 6672	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝑃‘𝑠)‘(ℎ‘𝑢)) = ((𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))‘(ℎ‘𝑢)))
74		ffvelrn 6849	. . . . . . . . . . . . 13 ⊢ ((ℎ:𝐵⟶𝑋 ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) ∈ 𝑋)
75	57, 74	sylan 582	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) ∈ 𝑋)
76		fveq1 6669	. . . . . . . . . . . . 13 ⊢ (𝑥 = (ℎ‘𝑢) → (𝑥‘𝑠) = ((ℎ‘𝑢)‘𝑠))
77		eqid 2821	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠)) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))
78		fvex 6683	. . . . . . . . . . . . 13 ⊢ (𝑥‘𝑠) ∈ V
79	76, 77, 78	fvmpt3i 6773	. . . . . . . . . . . 12 ⊢ ((ℎ‘𝑢) ∈ 𝑋 → ((𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))‘(ℎ‘𝑢)) = ((ℎ‘𝑢)‘𝑠))
80	75, 79	syl 17	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → ((𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))‘(ℎ‘𝑢)) = ((ℎ‘𝑢)‘𝑠))
81	80	adantr 483	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))‘(ℎ‘𝑢)) = ((ℎ‘𝑢)‘𝑠))
82	73, 81	eqtrd 2856	. . . . . . . . 9 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝑃‘𝑠)‘(ℎ‘𝑢)) = ((ℎ‘𝑢)‘𝑠))
83	65, 68, 82	3eqtrd 2860	. . . . . . . 8 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝐹‘𝑠)‘𝑢) = ((ℎ‘𝑢)‘𝑠))
84	83	mpteq2dva 5161	. . . . . . 7 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) = (𝑠 ∈ 𝐴 ↦ ((ℎ‘𝑢)‘𝑠)))
85	75, 18	eleqtrdi 2923	. . . . . . . . 9 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) ∈ X𝑏 ∈ 𝐴 (𝐶‘𝑏))
86		ixpfn 8467	. . . . . . . . 9 ⊢ ((ℎ‘𝑢) ∈ X𝑏 ∈ 𝐴 (𝐶‘𝑏) → (ℎ‘𝑢) Fn 𝐴)
87	85, 86	syl 17	. . . . . . . 8 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) Fn 𝐴)
88		dffn5 6724	. . . . . . . 8 ⊢ ((ℎ‘𝑢) Fn 𝐴 ↔ (ℎ‘𝑢) = (𝑠 ∈ 𝐴 ↦ ((ℎ‘𝑢)‘𝑠)))
89	87, 88	sylib 220	. . . . . . 7 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) = (𝑠 ∈ 𝐴 ↦ ((ℎ‘𝑢)‘𝑠)))
90	84, 89	eqtr4d 2859	. . . . . 6 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) = (ℎ‘𝑢))
91	90	mpteq2dva 5161	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) = (𝑢 ∈ 𝐵 ↦ (ℎ‘𝑢)))
92	58, 91	eqtr4d 2859	. . . 4 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) → ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))
93	92	ex 415	. . 3 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → ((ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)) → ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
94	93	alrimiv 1928	. 2 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → ∀ℎ((ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)) → ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
95		feq1 6495	. . . 4 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → (ℎ:𝐵⟶𝑋 ↔ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))):𝐵⟶𝑋))
96		coeq2 5729	. . . . . 6 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → ((𝑃‘𝑎) ∘ ℎ) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
97	96	eqeq2d 2832	. . . . 5 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → ((𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ) ↔ (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))))
98	97	ralbidv 3197	. . . 4 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → (∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ) ↔ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))))
99	95, 98	anbi12d 632	. . 3 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → ((ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)) ↔ ((𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))):𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))))
100	99	eqeu 3697	. 2 ⊢ (((𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) ∈ V ∧ ((𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))):𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))) ∧ ∀ℎ((ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)) → ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))) → ∃!ℎ(ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)))
101	2, 23, 56, 94, 100	syl121anc 1371	1 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → ∃!ℎ(ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∧ w3a 1083  ∀wal 1535   = wceq 1537   ∈ wcel 2114  ∃!weu 2653  ∀wral 3138  Vcvv 3494   ↦ cmpt 5146   ∘ ccom 5559   Fn wfn 6350  ⟶wf 6351  ‘cfv 6355  Xcixp 8461

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-rep 5190  ax-sep 5203  ax-nul 5210  ax-pow 5266  ax-pr 5330  ax-un 7461

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-reu 3145  df-rab 3147  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4839  df-iun 4921  df-br 5067  df-opab 5129  df-mpt 5147  df-id 5460  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-iota 6314  df-fun 6357  df-fn 6358  df-f 6359  df-f1 6360  df-fo 6361  df-f1o 6362  df-fv 6363  df-ixp 8462

This theorem is referenced by: (None)