Theorem resfval 17937

Description: Value of the functor restriction operator. (Contributed by Mario Carneiro, 6-Jan-2017.)

Hypotheses

Ref	Expression
resfval.c	⊢ (𝜑 → 𝐹 ∈ 𝑉)
resfval.d	⊢ (𝜑 → 𝐻 ∈ 𝑊)

Assertion

Ref	Expression
resfval	⊢ (𝜑 → (𝐹 ↾f 𝐻) = ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑥 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑥) ↾ (𝐻‘𝑥)))⟩)

Distinct variable groups:   𝑥,𝐹   𝑥,𝐻   𝜑,𝑥

Allowed substitution hints:   𝑉(𝑥)   𝑊(𝑥)

Proof of Theorem resfval

Dummy variables 𝑓 ℎ are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-resf 17906	. . 3 ⊢ ↾f = (𝑓 ∈ V, ℎ ∈ V ↦ ⟨((1st ‘𝑓) ↾ dom dom ℎ), (𝑥 ∈ dom ℎ ↦ (((2nd ‘𝑓)‘𝑥) ↾ (ℎ‘𝑥)))⟩)
2	1	a1i 11	. 2 ⊢ (𝜑 → ↾f = (𝑓 ∈ V, ℎ ∈ V ↦ ⟨((1st ‘𝑓) ↾ dom dom ℎ), (𝑥 ∈ dom ℎ ↦ (((2nd ‘𝑓)‘𝑥) ↾ (ℎ‘𝑥)))⟩))
3		simprl 782	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 = 𝐹 ∧ ℎ = 𝐻)) → 𝑓 = 𝐹)
4	3	fveq2d 6875	. . . 4 ⊢ ((𝜑 ∧ (𝑓 = 𝐹 ∧ ℎ = 𝐻)) → (1st ‘𝑓) = (1st ‘𝐹))
5		simprr 784	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓 = 𝐹 ∧ ℎ = 𝐻)) → ℎ = 𝐻)
6	5	dmeqd 5885	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 = 𝐹 ∧ ℎ = 𝐻)) → dom ℎ = dom 𝐻)
7	6	dmeqd 5885	. . . 4 ⊢ ((𝜑 ∧ (𝑓 = 𝐹 ∧ ℎ = 𝐻)) → dom dom ℎ = dom dom 𝐻)
8	4, 7	reseq12d 5969	. . 3 ⊢ ((𝜑 ∧ (𝑓 = 𝐹 ∧ ℎ = 𝐻)) → ((1st ‘𝑓) ↾ dom dom ℎ) = ((1st ‘𝐹) ↾ dom dom 𝐻))
9	3	fveq2d 6875	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓 = 𝐹 ∧ ℎ = 𝐻)) → (2nd ‘𝑓) = (2nd ‘𝐹))
10	9	fveq1d 6873	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 = 𝐹 ∧ ℎ = 𝐻)) → ((2nd ‘𝑓)‘𝑥) = ((2nd ‘𝐹)‘𝑥))
11	5	fveq1d 6873	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 = 𝐹 ∧ ℎ = 𝐻)) → (ℎ‘𝑥) = (𝐻‘𝑥))
12	10, 11	reseq12d 5969	. . . 4 ⊢ ((𝜑 ∧ (𝑓 = 𝐹 ∧ ℎ = 𝐻)) → (((2nd ‘𝑓)‘𝑥) ↾ (ℎ‘𝑥)) = (((2nd ‘𝐹)‘𝑥) ↾ (𝐻‘𝑥)))
13	6, 12	mpteq12dv 5191	. . 3 ⊢ ((𝜑 ∧ (𝑓 = 𝐹 ∧ ℎ = 𝐻)) → (𝑥 ∈ dom ℎ ↦ (((2nd ‘𝑓)‘𝑥) ↾ (ℎ‘𝑥))) = (𝑥 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑥) ↾ (𝐻‘𝑥))))
14	8, 13	opeq12d 4841	. 2 ⊢ ((𝜑 ∧ (𝑓 = 𝐹 ∧ ℎ = 𝐻)) → ⟨((1st ‘𝑓) ↾ dom dom ℎ), (𝑥 ∈ dom ℎ ↦ (((2nd ‘𝑓)‘𝑥) ↾ (ℎ‘𝑥)))⟩ = ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑥 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑥) ↾ (𝐻‘𝑥)))⟩)
15		resfval.c	. . 3 ⊢ (𝜑 → 𝐹 ∈ 𝑉)
16	15	elexd 3480	. 2 ⊢ (𝜑 → 𝐹 ∈ V)
17		resfval.d	. . 3 ⊢ (𝜑 → 𝐻 ∈ 𝑊)
18	17	elexd 3480	. 2 ⊢ (𝜑 → 𝐻 ∈ V)
19		opex 5435	. . 3 ⊢ ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑥 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑥) ↾ (𝐻‘𝑥)))⟩ ∈ V
20	19	a1i 11	. 2 ⊢ (𝜑 → ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑥 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑥) ↾ (𝐻‘𝑥)))⟩ ∈ V)
21	2, 14, 16, 18, 20	ovmpod 7552	1 ⊢ (𝜑 → (𝐹 ↾f 𝐻) = ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑥 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑥) ↾ (𝐻‘𝑥)))⟩)

Syntax hints:   → wi 4   ∧ wa 400   = wceq 1563   ∈ wcel 2145  Vcvv 3457  ⟨cop 4591   ↦ cmpt 5185  dom cdm 5651   ↾ cres 5653  ‘cfv 6525  (class class class)co 7400   ∈ cmpo 7402  1^st c1st 7972  2^nd c2nd 7973   ↾_f cresf 17902

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1818  ax-4 1832  ax-5 1933  ax-6 1990  ax-7 2031  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2737  ax-sep 5250  ax-pr 5394

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1566  df-fal 1576  df-ex 1803  df-nf 1807  df-sb 2094  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ral 3080  df-rex 3090  df-rab 3418  df-v 3459  df-sbc 3748  df-dif 3910  df-un 3912  df-in 3914  df-ss 3924  df-nul 4289  df-if 4484  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4868  df-br 5105  df-opab 5167  df-mpt 5186  df-id 5546  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-res 5663  df-iota 6481  df-fun 6527  df-fv 6533  df-ov 7403  df-oprab 7404  df-mpo 7405  df-resf 17906

This theorem is referenced by:  resfval2  17938  resf1st  17939  resf2nd  17940  funcres  17941