Theorem upixp 37730

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 7198	. . 3 ⊢ (𝐵 ∈ 𝑆 → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) ∈ V)
2	1	3ad2ant2 1134	. 2 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) ∈ V)
3		ffvelcdm 7056	. . . . . . . . . 10 ⊢ (((𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) ∧ 𝑢 ∈ 𝐵) → ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎))
4	3	expcom 413	. . . . . . . . 9 ⊢ (𝑢 ∈ 𝐵 → ((𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) → ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎)))
5	4	ralimdv 3148	. . . . . . . 8 ⊢ (𝑢 ∈ 𝐵 → (∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) → ∀𝑎 ∈ 𝐴 ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎)))
6	5	impcom 407	. . . . . . 7 ⊢ ((∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) ∧ 𝑢 ∈ 𝐵) → ∀𝑎 ∈ 𝐴 ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎))
7	6	3ad2antl3 1188	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → ∀𝑎 ∈ 𝐴 ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎))
8		fveq2 6861	. . . . . . . . 9 ⊢ (𝑎 = 𝑠 → (𝐹‘𝑎) = (𝐹‘𝑠))
9	8	fveq1d 6863	. . . . . . . 8 ⊢ (𝑎 = 𝑠 → ((𝐹‘𝑎)‘𝑢) = ((𝐹‘𝑠)‘𝑢))
10		fveq2 6861	. . . . . . . 8 ⊢ (𝑎 = 𝑠 → (𝐶‘𝑎) = (𝐶‘𝑠))
11	9, 10	eleq12d 2823	. . . . . . 7 ⊢ (𝑎 = 𝑠 → (((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎) ↔ ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠)))
12	11	cbvralvw 3216	. . . . . 6 ⊢ (∀𝑎 ∈ 𝐴 ((𝐹‘𝑎)‘𝑢) ∈ (𝐶‘𝑎) ↔ ∀𝑠 ∈ 𝐴 ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠))
13	7, 12	sylib 218	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → ∀𝑠 ∈ 𝐴 ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠))
14		simpl1 1192	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → 𝐴 ∈ 𝑅)
15		mptelixpg 8911	. . . . . 6 ⊢ (𝐴 ∈ 𝑅 → ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ X𝑠 ∈ 𝐴 (𝐶‘𝑠) ↔ ∀𝑠 ∈ 𝐴 ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠)))
16	14, 15	syl 17	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ X𝑠 ∈ 𝐴 (𝐶‘𝑠) ↔ ∀𝑠 ∈ 𝐴 ((𝐹‘𝑠)‘𝑢) ∈ (𝐶‘𝑠)))
17	13, 16	mpbird 257	. . . 4 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ X𝑠 ∈ 𝐴 (𝐶‘𝑠))
18		upixp.1	. . . . 5 ⊢ 𝑋 = X𝑏 ∈ 𝐴 (𝐶‘𝑏)
19		fveq2 6861	. . . . . 6 ⊢ (𝑏 = 𝑠 → (𝐶‘𝑏) = (𝐶‘𝑠))
20	19	cbvixpv 8891	. . . . 5 ⊢ X𝑏 ∈ 𝐴 (𝐶‘𝑏) = X𝑠 ∈ 𝐴 (𝐶‘𝑠)
21	18, 20	eqtri 2753	. . . 4 ⊢ 𝑋 = X𝑠 ∈ 𝐴 (𝐶‘𝑠)
22	17, 21	eleqtrrdi 2840	. . 3 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ 𝑋)
23	22	fmpttd 7090	. 2 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))):𝐵⟶𝑋)
24		nfv 1914	. . . 4 ⊢ Ⅎ𝑎 𝐴 ∈ 𝑅
25		nfv 1914	. . . 4 ⊢ Ⅎ𝑎 𝐵 ∈ 𝑆
26		nfra1 3262	. . . 4 ⊢ Ⅎ𝑎∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)
27	24, 25, 26	nf3an 1901	. . 3 ⊢ Ⅎ𝑎(𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎))
28		fveq2 6861	. . . . . . . . 9 ⊢ (𝑠 = 𝑎 → (𝐹‘𝑠) = (𝐹‘𝑎))
29	28	fveq1d 6863	. . . . . . . 8 ⊢ (𝑠 = 𝑎 → ((𝐹‘𝑠)‘𝑢) = ((𝐹‘𝑎)‘𝑢))
30		eqid 2730	. . . . . . . 8 ⊢ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) = (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))
31		fvex 6874	. . . . . . . 8 ⊢ ((𝐹‘𝑠)‘𝑢) ∈ V
32	29, 30, 31	fvmpt3i 6976	. . . . . . 7 ⊢ (𝑎 ∈ 𝐴 → ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎) = ((𝐹‘𝑎)‘𝑢))
33	32	adantl 481	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎) = ((𝐹‘𝑎)‘𝑢))
34	33	mpteq2dv 5204	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝑢 ∈ 𝐵 ↦ ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎)) = (𝑢 ∈ 𝐵 ↦ ((𝐹‘𝑎)‘𝑢)))
35	22	adantlr 715	. . . . . 6 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) ∈ 𝑋)
36		eqidd 2731	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))
37		fveq2 6861	. . . . . . . . 9 ⊢ (𝑤 = 𝑎 → (𝑥‘𝑤) = (𝑥‘𝑎))
38	37	mpteq2dv 5204	. . . . . . . 8 ⊢ (𝑤 = 𝑎 → (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑤)) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑎)))
39		upixp.2	. . . . . . . 8 ⊢ 𝑃 = (𝑤 ∈ 𝐴 ↦ (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑤)))
40		fvex 6874	. . . . . . . . . . . 12 ⊢ (𝐶‘𝑏) ∈ V
41	40	rgenw 3049	. . . . . . . . . . 11 ⊢ ∀𝑏 ∈ 𝐴 (𝐶‘𝑏) ∈ V
42		ixpexg 8898	. . . . . . . . . . 11 ⊢ (∀𝑏 ∈ 𝐴 (𝐶‘𝑏) ∈ V → X𝑏 ∈ 𝐴 (𝐶‘𝑏) ∈ V)
43	41, 42	ax-mp 5	. . . . . . . . . 10 ⊢ X𝑏 ∈ 𝐴 (𝐶‘𝑏) ∈ V
44	18, 43	eqeltri 2825	. . . . . . . . 9 ⊢ 𝑋 ∈ V
45	44	mptex 7200	. . . . . . . 8 ⊢ (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑤)) ∈ V
46	38, 39, 45	fvmpt3i 6976	. . . . . . 7 ⊢ (𝑎 ∈ 𝐴 → (𝑃‘𝑎) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑎)))
47	46	adantl 481	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝑃‘𝑎) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑎)))
48		fveq1 6860	. . . . . 6 ⊢ (𝑥 = (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) → (𝑥‘𝑎) = ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎))
49	35, 36, 47, 48	fmptco 7104	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))) = (𝑢 ∈ 𝐵 ↦ ((𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))‘𝑎)))
50		rsp 3226	. . . . . . . 8 ⊢ (∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎) → (𝑎 ∈ 𝐴 → (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)))
51	50	3ad2ant3 1135	. . . . . . 7 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → (𝑎 ∈ 𝐴 → (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)))
52	51	imp 406	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎))
53	52	feqmptd 6932	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝐹‘𝑎) = (𝑢 ∈ 𝐵 ↦ ((𝐹‘𝑎)‘𝑢)))
54	34, 49, 53	3eqtr4rd 2776	. . . 4 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ 𝑎 ∈ 𝐴) → (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
55	54	ex 412	. . 3 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → (𝑎 ∈ 𝐴 → (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))))
56	27, 55	ralrimi 3236	. 2 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
57		simprl 770	. . . . . 6 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) → ℎ:𝐵⟶𝑋)
58	57	feqmptd 6932	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) → ℎ = (𝑢 ∈ 𝐵 ↦ (ℎ‘𝑢)))
59		simplrr 777	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))
60		fveq2 6861	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑠 → (𝑃‘𝑎) = (𝑃‘𝑠))
61	60	coeq1d 5828	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑠 → ((𝑃‘𝑎) ∘ ℎ) = ((𝑃‘𝑠) ∘ ℎ))
62	8, 61	eqeq12d 2746	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑠 → ((𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ) ↔ (𝐹‘𝑠) = ((𝑃‘𝑠) ∘ ℎ)))
63	62	rspccva 3590	. . . . . . . . . . 11 ⊢ ((∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ) ∧ 𝑠 ∈ 𝐴) → (𝐹‘𝑠) = ((𝑃‘𝑠) ∘ ℎ))
64	59, 63	sylan 580	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → (𝐹‘𝑠) = ((𝑃‘𝑠) ∘ ℎ))
65	64	fveq1d 6863	. . . . . . . . 9 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝐹‘𝑠)‘𝑢) = (((𝑃‘𝑠) ∘ ℎ)‘𝑢))
66		fvco3 6963	. . . . . . . . . . 11 ⊢ ((ℎ:𝐵⟶𝑋 ∧ 𝑢 ∈ 𝐵) → (((𝑃‘𝑠) ∘ ℎ)‘𝑢) = ((𝑃‘𝑠)‘(ℎ‘𝑢)))
67	57, 66	sylan 580	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (((𝑃‘𝑠) ∘ ℎ)‘𝑢) = ((𝑃‘𝑠)‘(ℎ‘𝑢)))
68	67	adantr 480	. . . . . . . . 9 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → (((𝑃‘𝑠) ∘ ℎ)‘𝑢) = ((𝑃‘𝑠)‘(ℎ‘𝑢)))
69		fveq2 6861	. . . . . . . . . . . . . 14 ⊢ (𝑤 = 𝑠 → (𝑥‘𝑤) = (𝑥‘𝑠))
70	69	mpteq2dv 5204	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑠 → (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑤)) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠)))
71	70, 39, 45	fvmpt3i 6976	. . . . . . . . . . . 12 ⊢ (𝑠 ∈ 𝐴 → (𝑃‘𝑠) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠)))
72	71	adantl 481	. . . . . . . . . . 11 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → (𝑃‘𝑠) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠)))
73	72	fveq1d 6863	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝑃‘𝑠)‘(ℎ‘𝑢)) = ((𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))‘(ℎ‘𝑢)))
74		ffvelcdm 7056	. . . . . . . . . . . . 13 ⊢ ((ℎ:𝐵⟶𝑋 ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) ∈ 𝑋)
75	57, 74	sylan 580	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) ∈ 𝑋)
76		fveq1 6860	. . . . . . . . . . . . 13 ⊢ (𝑥 = (ℎ‘𝑢) → (𝑥‘𝑠) = ((ℎ‘𝑢)‘𝑠))
77		eqid 2730	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠)) = (𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))
78		fvex 6874	. . . . . . . . . . . . 13 ⊢ (𝑥‘𝑠) ∈ V
79	76, 77, 78	fvmpt3i 6976	. . . . . . . . . . . 12 ⊢ ((ℎ‘𝑢) ∈ 𝑋 → ((𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))‘(ℎ‘𝑢)) = ((ℎ‘𝑢)‘𝑠))
80	75, 79	syl 17	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → ((𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))‘(ℎ‘𝑢)) = ((ℎ‘𝑢)‘𝑠))
81	80	adantr 480	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝑥 ∈ 𝑋 ↦ (𝑥‘𝑠))‘(ℎ‘𝑢)) = ((ℎ‘𝑢)‘𝑠))
82	73, 81	eqtrd 2765	. . . . . . . . 9 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝑃‘𝑠)‘(ℎ‘𝑢)) = ((ℎ‘𝑢)‘𝑠))
83	65, 68, 82	3eqtrd 2769	. . . . . . . 8 ⊢ (((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) ∧ 𝑠 ∈ 𝐴) → ((𝐹‘𝑠)‘𝑢) = ((ℎ‘𝑢)‘𝑠))
84	83	mpteq2dva 5203	. . . . . . 7 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) = (𝑠 ∈ 𝐴 ↦ ((ℎ‘𝑢)‘𝑠)))
85	75, 18	eleqtrdi 2839	. . . . . . . . 9 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) ∈ X𝑏 ∈ 𝐴 (𝐶‘𝑏))
86		ixpfn 8879	. . . . . . . . 9 ⊢ ((ℎ‘𝑢) ∈ X𝑏 ∈ 𝐴 (𝐶‘𝑏) → (ℎ‘𝑢) Fn 𝐴)
87	85, 86	syl 17	. . . . . . . 8 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) Fn 𝐴)
88		dffn5 6922	. . . . . . . 8 ⊢ ((ℎ‘𝑢) Fn 𝐴 ↔ (ℎ‘𝑢) = (𝑠 ∈ 𝐴 ↦ ((ℎ‘𝑢)‘𝑠)))
89	87, 88	sylib 218	. . . . . . 7 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (ℎ‘𝑢) = (𝑠 ∈ 𝐴 ↦ ((ℎ‘𝑢)‘𝑠)))
90	84, 89	eqtr4d 2768	. . . . . 6 ⊢ ((((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) ∧ 𝑢 ∈ 𝐵) → (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)) = (ℎ‘𝑢))
91	90	mpteq2dva 5203	. . . . 5 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) → (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) = (𝑢 ∈ 𝐵 ↦ (ℎ‘𝑢)))
92	58, 91	eqtr4d 2768	. . . 4 ⊢ (((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) ∧ (ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ))) → ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))
93	92	ex 412	. . 3 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → ((ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)) → ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
94	93	alrimiv 1927	. 2 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → ∀ℎ((ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)) → ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
95		feq1 6669	. . . 4 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → (ℎ:𝐵⟶𝑋 ↔ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))):𝐵⟶𝑋))
96		coeq2 5825	. . . . . 6 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → ((𝑃‘𝑎) ∘ ℎ) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))
97	96	eqeq2d 2741	. . . . 5 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → ((𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ) ↔ (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))))
98	97	ralbidv 3157	. . . 4 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → (∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ) ↔ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))))
99	95, 98	anbi12d 632	. . 3 ⊢ (ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) → ((ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)) ↔ ((𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))):𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢)))))))
100	99	eqeu 3680	. 2 ⊢ (((𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))) ∈ V ∧ ((𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))):𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))) ∧ ∀ℎ((ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)) → ℎ = (𝑢 ∈ 𝐵 ↦ (𝑠 ∈ 𝐴 ↦ ((𝐹‘𝑠)‘𝑢))))) → ∃!ℎ(ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)))
101	2, 23, 56, 94, 100	syl121anc 1377	1 ⊢ ((𝐴 ∈ 𝑅 ∧ 𝐵 ∈ 𝑆 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎):𝐵⟶(𝐶‘𝑎)) → ∃!ℎ(ℎ:𝐵⟶𝑋 ∧ ∀𝑎 ∈ 𝐴 (𝐹‘𝑎) = ((𝑃‘𝑎) ∘ ℎ)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086  ∀wal 1538   = wceq 1540   ∈ wcel 2109  ∃!weu 2562  ∀wral 3045  Vcvv 3450   ↦ cmpt 5191   ∘ ccom 5645   Fn wfn 6509  ⟶wf 6510  ‘cfv 6514  Xcixp 8873

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5237  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-ral 3046  df-rex 3055  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-iun 4960  df-br 5111  df-opab 5173  df-mpt 5192  df-id 5536  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-ixp 8874

This theorem is referenced by: (None)