Theorem upixp 38096

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 7165	. . 3 ⊢ (𝐵 ∈ 𝑆 → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) ∈ V)
2	1	3ad2ant2 1140	. 2 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) ∈ V)
3		ffvelcdm 7022	. . . . . . . . . 10 ⊢ (((𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) ∧ 𝑢 ∈ 𝐵) → ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎))
4	3	expcom 414	. . . . . . . . 9 ⊢ (𝑢 ∈ 𝐵 → ((𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) → ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎)))
5	4	ralimdv 3153	. . . . . . . 8 ⊢ (𝑢 ∈ 𝐵 → (∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) → ∀𝑎 ∈ 𝐴 ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎)))
6	5	impcom 408	. . . . . . 7 ⊢ ((∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) ∧ 𝑢 ∈ 𝐵) → ∀𝑎 ∈ 𝐴 ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎))
7	6	3ad2antl3 1194	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → ∀𝑎 ∈ 𝐴 ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎))
8		fveq2 6827	. . . . . . . . 9 ⊢ (𝑎 = 𝑠 → (𝐹‘𝑎) = (𝐹‘𝑠))
9	8	fveq1d 6829	. . . . . . . 8 ⊢ (𝑎 = 𝑠 → ((𝐹‘𝑎)‘𝑢) = ((𝐹‘𝑠)‘𝑢))
10		fveq2 6827	. . . . . . . 8 ⊢ (𝑎 = 𝑠 → (𝐶‘𝑎) = (𝐶‘𝑠))
11	9, 10	eleq12d 2833	. . . . . . 7 ⊢ (𝑎 = 𝑠 → (((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎) ↔ ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠)))
12	11	cbvralvw 3217	. . . . . 6 ⊢ (∀𝑎 ∈ 𝐴 ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎) ↔ ∀𝑠 ∈ 𝐴 ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠))
13	7, 12	sylib 219	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → ∀𝑠 ∈ 𝐴 ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠))
14		simpl1 1198	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → 𝐴 ∈ 𝑅)
15		mptelixpg 8873	. . . . . 6 ⊢ (𝐴 ∈ 𝑅 → ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ X𝑠 ∈ 𝐴 (𝐶‘𝑠) ↔ ∀𝑠 ∈ 𝐴 ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠)))
16	14, 15	syl 17	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ X𝑠 ∈ 𝐴 (𝐶‘𝑠) ↔ ∀𝑠 ∈ 𝐴 ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠)))
17	13, 16	mpbird 258	. . . 4 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ X𝑠 ∈ 𝐴 (𝐶‘𝑠))
18		upixp.1	. . . . 5 ⊢ 𝑋 = X𝑏 ∈ 𝐴 (𝐶‘𝑏)
19		fveq2 6827	. . . . . 6 ⊢ (𝑏 = 𝑠 → (𝐶‘𝑏) = (𝐶‘𝑠))
20	19	cbvixpv 8853	. . . . 5 ⊢ X𝑏 ∈ 𝐴 (𝐶‘𝑏) = X𝑠 ∈ 𝐴 (𝐶‘𝑠)
21	18, 20	eqtri 2762	. . . 4 ⊢ 𝑋 = X𝑠 ∈ 𝐴 (𝐶‘𝑠)
22	17, 21	eleqtrrdi 2850	. . 3 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ 𝑋)
23	22	fmpttd 7056	. 2 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))):𝐵⟶𝑋)
24		nfv 1921	. . . 4 ⊢ Ⅎ𝑎 𝐴 ∈ 𝑅
25		nfv 1921	. . . 4 ⊢ Ⅎ𝑎 𝐵 ∈ 𝑆
26		nfra1 3263	. . . 4 ⊢ Ⅎ𝑎∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)
27	24, 25, 26	nf3an 1908	. . 3 ⊢ Ⅎ𝑎(𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎))
28		fveq2 6827	. . . . . . . . 9 ⊢ (𝑠 = 𝑎 → (𝐹‘𝑠) = (𝐹‘𝑎))
29	28	fveq1d 6829	. . . . . . . 8 ⊢ (𝑠 = 𝑎 → ((𝐹‘𝑠)‘𝑢) = ((𝐹‘𝑎)‘𝑢))
30		eqid 2739	. . . . . . . 8 ⊢ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) = (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))
31		fvex 6840	. . . . . . . 8 ⊢ ((𝐹‘𝑠)‘𝑢) ∈ V
32	29, 30, 31	fvmpt3i 6941	. . . . . . 7 ⊢ (𝑎 ∈ 𝐴 → ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎) = ((𝐹‘𝑎)‘𝑢))
33	32	adantl 482	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎) = ((𝐹‘𝑎)‘𝑢))
34	33	mpteq2dv 5166	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝑢 ∈ 𝐵 ↦ ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎)) = (𝑢 ∈ 𝐵 ↦ ((𝐹‘𝑎)‘𝑢)))
35	22	adantlr 721	. . . . . 6 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ 𝑋)
36		eqidd 2740	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))
37		fveq2 6827	. . . . . . . . 9 ⊢ (𝑤 = 𝑎 → (𝑥‘𝑤) = (𝑥‘𝑎))
38	37	mpteq2dv 5166	. . . . . . . 8 ⊢ (𝑤 = 𝑎 → (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑤)) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑎)))
39		upixp.2	. . . . . . . 8 ⊢ 𝑃 = (𝑤 ∈ 𝐴 ↦ (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑤)))
40		fvex 6840	. . . . . . . . . . . 12 ⊢ (𝐶‘𝑏) ∈ V
41	40	rgenw 3057	. . . . . . . . . . 11 ⊢ ∀𝑏 ∈ 𝐴 (𝐶‘𝑏) ∈ V
42		ixpexg 8860	. . . . . . . . . . 11 ⊢ (∀𝑏 ∈ 𝐴 (𝐶‘𝑏) ∈ V → X𝑏 ∈ 𝐴 (𝐶‘𝑏) ∈ V)
43	41, 42	ax-mp 5	. . . . . . . . . 10 ⊢ X𝑏 ∈ 𝐴 (𝐶‘𝑏) ∈ V
44	18, 43	eqeltri 2835	. . . . . . . . 9 ⊢ 𝑋 ∈ V
45	44	mptex 7167	. . . . . . . 8 ⊢ (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑤)) ∈ V
46	38, 39, 45	fvmpt3i 6941	. . . . . . 7 ⊢ (𝑎 ∈ 𝐴 → (𝑃‘𝑎) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑎)))
47	46	adantl 482	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝑃‘𝑎) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑎)))
48		fveq1 6826	. . . . . 6 ⊢ (𝑥 = (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) → (𝑥‘𝑎) = ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎))
49	35, 36, 47, 48	fmptco 7071	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))) = (𝑢 ∈ 𝐵 ↦ ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎)))
50		rsp 3227	. . . . . . . 8 ⊢ (∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) → (𝑎 ∈ 𝐴 → (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)))
51	50	3ad2ant3 1141	. . . . . . 7 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → (𝑎 ∈ 𝐴 → (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)))
52	51	imp 407	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎))
53	52	feqmptd 6895	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝐹‘𝑎) = (𝑢 ∈ 𝐵 ↦ ((𝐹‘𝑎)‘𝑢)))
54	34, 49, 53	3eqtr4rd 2785	. . . 4 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
55	54	ex 413	. . 3 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → (𝑎 ∈ 𝐴 → (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))))
56	27, 55	ralrimi 3237	. 2 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
57		simprl 776	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) → ℎ:𝐵⟶𝑋)
58	57	feqmptd 6895	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) → ℎ = (𝑢 ∈ 𝐵 ↦ (ℎ‘𝑢)))
59		simplrr 783	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))
60		fveq2 6827	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑠 → (𝑃‘𝑎) = (𝑃‘𝑠))
61	60	coeq1d 5803	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑠 → ((𝑃‘𝑎) ∘ ℎ) = ((𝑃‘𝑠) ∘ ℎ))
62	8, 61	eqeq12d 2755	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑠 → ((𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ) ↔ (𝐹‘𝑠) = ((𝑃‘𝑠) ∘ ℎ)))
63	62	rspccva 3559	. . . . . . . . . . 11 ⊢ ((∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ) ∧ 𝑠 ∈ 𝐴) → (𝐹‘𝑠) = ((𝑃‘𝑠) ∘ ℎ))
64	59, 63	sylan 586	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → (𝐹‘𝑠) = ((𝑃‘𝑠) ∘ ℎ))
65	64	fveq1d 6829	. . . . . . . . 9 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝐹‘𝑠)‘𝑢) = (((𝑃‘𝑠) ∘ ℎ)‘𝑢))
66		fvco3 6927	. . . . . . . . . . 11 ⊢ ((ℎ:𝐵⟶𝑋 ∧ 𝑢 ∈ 𝐵) → (((𝑃‘𝑠) ∘ ℎ)‘𝑢) = ((𝑃‘𝑠)‘(ℎ‘𝑢)))
67	57, 66	sylan 586	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (((𝑃‘𝑠) ∘ ℎ)‘𝑢) = ((𝑃‘𝑠)‘(ℎ‘𝑢)))
68	67	adantr 481	. . . . . . . . 9 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → (((𝑃‘𝑠) ∘ ℎ)‘𝑢) = ((𝑃‘𝑠)‘(ℎ‘𝑢)))
69		fveq2 6827	. . . . . . . . . . . . . 14 ⊢ (𝑤 = 𝑠 → (𝑥‘𝑤) = (𝑥‘𝑠))
70	69	mpteq2dv 5166	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑠 → (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑤)) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠)))
71	70, 39, 45	fvmpt3i 6941	. . . . . . . . . . . 12 ⊢ (𝑠 ∈ 𝐴 → (𝑃‘𝑠) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠)))
72	71	adantl 482	. . . . . . . . . . 11 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → (𝑃‘𝑠) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠)))
73	72	fveq1d 6829	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝑃‘𝑠)‘(ℎ‘𝑢)) = ((𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))‘(ℎ‘𝑢)))
74		ffvelcdm 7022	. . . . . . . . . . . . 13 ⊢ ((ℎ:𝐵⟶𝑋 ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) ∈ 𝑋)
75	57, 74	sylan 586	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) ∈ 𝑋)
76		fveq1 6826	. . . . . . . . . . . . 13 ⊢ (𝑥 = (ℎ‘𝑢) → (𝑥‘𝑠) = ((ℎ‘𝑢)‘𝑠))
77		eqid 2739	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠)) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))
78		fvex 6840	. . . . . . . . . . . . 13 ⊢ (𝑥‘𝑠) ∈ V
79	76, 77, 78	fvmpt3i 6941	. . . . . . . . . . . 12 ⊢ ((ℎ‘𝑢) ∈ 𝑋 → ((𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))‘(ℎ‘𝑢)) = ((ℎ‘𝑢)‘𝑠))
80	75, 79	syl 17	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → ((𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))‘(ℎ‘𝑢)) = ((ℎ‘𝑢)‘𝑠))
81	80	adantr 481	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))‘(ℎ‘𝑢)) = ((ℎ‘𝑢)‘𝑠))
82	73, 81	eqtrd 2774	. . . . . . . . 9 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝑃‘𝑠)‘(ℎ‘𝑢)) = ((ℎ‘𝑢)‘𝑠))
83	65, 68, 82	3eqtrd 2778	. . . . . . . 8 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝐹‘𝑠)‘𝑢) = ((ℎ‘𝑢)‘𝑠))
84	83	mpteq2dva 5165	. . . . . . 7 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) = (𝑠 ∈ 𝐴 ↦ ((ℎ‘𝑢)‘𝑠)))
85	75, 18	eleqtrdi 2849	. . . . . . . . 9 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) ∈ X𝑏 ∈ 𝐴 (𝐶‘𝑏))
86		ixpfn 8841	. . . . . . . . 9 ⊢ ((ℎ‘𝑢) ∈ X𝑏 ∈ 𝐴 (𝐶‘𝑏) → (ℎ‘𝑢) Fn 𝐴)
87	85, 86	syl 17	. . . . . . . 8 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) Fn 𝐴)
88		dffn5 6885	. . . . . . . 8 ⊢ ((ℎ‘𝑢) Fn 𝐴 ↔ (ℎ‘𝑢) = (𝑠 ∈ 𝐴 ↦ ((ℎ‘𝑢)‘𝑠)))
89	87, 88	sylib 219	. . . . . . 7 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) = (𝑠 ∈ 𝐴 ↦ ((ℎ‘𝑢)‘𝑠)))
90	84, 89	eqtr4d 2777	. . . . . 6 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) = (ℎ‘𝑢))
91	90	mpteq2dva 5165	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) = (𝑢 ∈ 𝐵 ↦ (ℎ‘𝑢)))
92	58, 91	eqtr4d 2777	. . . 4 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) → ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))
93	92	ex 413	. . 3 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → ((ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)) → ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
94	93	alrimiv 1934	. 2 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → ∀ℎ((ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)) → ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
95		feq1 6633	. . . 4 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → (ℎ:𝐵⟶𝑋 ↔ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))):𝐵⟶𝑋))
96		coeq2 5800	. . . . . 6 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → ((𝑃‘𝑎) ∘ ℎ) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
97	96	eqeq2d 2750	. . . . 5 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → ((𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ) ↔ (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))))
98	97	ralbidv 3162	. . . 4 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → (∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ) ↔ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))))
99	95, 98	anbi12d 638	. . 3 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → ((ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)) ↔ ((𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))):𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))))
100	99	eqeu 3647	. 2 ⊢ (((𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) ∈ V ∧ ((𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))):𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))) ∧ ∀ℎ((ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)) → ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))) → ∃!ℎ(ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)))
101	2, 23, 56, 94, 100	syl121anc 1383	1 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → ∃!ℎ(ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1092  ∀wal 1545   = wceq 1547   ∈ wcel 2119  ∃!weu 2572  ∀wral 3053  Vcvv 3431   ↦ cmpt 5153   ∘ ccom 5622   Fn wfn 6480  ⟶wf 6481  ‘cfv 6485  Xcixp 8835

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-id 5513  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-ixp 8836

This theorem is referenced by: (None)