Theorem updjudhcoinlf 7118

Description: The composition of the mapping of an element of the disjoint union to the value of the corresponding function and the left injection equals the first function. (Contributed by AV, 27-Jun-2022.)

Hypotheses

Ref	Expression
updjud.f	⊢ (𝜑 → 𝐹:𝐴⟶𝐶)
updjud.g	⊢ (𝜑 → 𝐺:𝐵⟶𝐶)
updjudhf.h	⊢ 𝐻 = (𝑥 ∈ (𝐴 ⊔ 𝐵) ↦ if((1st ‘𝑥) = ∅, (𝐹‘(2nd ‘𝑥)), (𝐺‘(2nd ‘𝑥))))

Assertion

Ref	Expression
updjudhcoinlf	⊢ (𝜑 → (𝐻 ∘ (inl ↾ 𝐴)) = 𝐹)

Distinct variable groups:   𝑥,𝐴   𝑥,𝐵   𝑥,𝐶   𝜑,𝑥   𝑥,𝐹

Allowed substitution hints:   𝐺(𝑥)   𝐻(𝑥)

Proof of Theorem updjudhcoinlf

Dummy variable 𝑎 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		updjud.f	. . . . 5 ⊢ (𝜑 → 𝐹:𝐴⟶𝐶)
2		updjud.g	. . . . 5 ⊢ (𝜑 → 𝐺:𝐵⟶𝐶)
3		updjudhf.h	. . . . 5 ⊢ 𝐻 = (𝑥 ∈ (𝐴 ⊔ 𝐵) ↦ if((1st ‘𝑥) = ∅, (𝐹‘(2nd ‘𝑥)), (𝐺‘(2nd ‘𝑥))))
4	1, 2, 3	updjudhf 7117	. . . 4 ⊢ (𝜑 → 𝐻:(𝐴 ⊔ 𝐵)⟶𝐶)
5		ffn 5391	. . . 4 ⊢ (𝐻:(𝐴 ⊔ 𝐵)⟶𝐶 → 𝐻 Fn (𝐴 ⊔ 𝐵))
6	4, 5	syl 14	. . 3 ⊢ (𝜑 → 𝐻 Fn (𝐴 ⊔ 𝐵))
7		inlresf1 7099	. . . 4 ⊢ (inl ↾ 𝐴):𝐴–1-1→(𝐴 ⊔ 𝐵)
8		f1fn 5449	. . . 4 ⊢ ((inl ↾ 𝐴):𝐴–1-1→(𝐴 ⊔ 𝐵) → (inl ↾ 𝐴) Fn 𝐴)
9	7, 8	mp1i 10	. . 3 ⊢ (𝜑 → (inl ↾ 𝐴) Fn 𝐴)
10		f1f 5447	. . . . 5 ⊢ ((inl ↾ 𝐴):𝐴–1-1→(𝐴 ⊔ 𝐵) → (inl ↾ 𝐴):𝐴⟶(𝐴 ⊔ 𝐵))
11	7, 10	ax-mp 5	. . . 4 ⊢ (inl ↾ 𝐴):𝐴⟶(𝐴 ⊔ 𝐵)
12		frn 5400	. . . 4 ⊢ ((inl ↾ 𝐴):𝐴⟶(𝐴 ⊔ 𝐵) → ran (inl ↾ 𝐴) ⊆ (𝐴 ⊔ 𝐵))
13	11, 12	mp1i 10	. . 3 ⊢ (𝜑 → ran (inl ↾ 𝐴) ⊆ (𝐴 ⊔ 𝐵))
14		fnco 5350	. . 3 ⊢ ((𝐻 Fn (𝐴 ⊔ 𝐵) ∧ (inl ↾ 𝐴) Fn 𝐴 ∧ ran (inl ↾ 𝐴) ⊆ (𝐴 ⊔ 𝐵)) → (𝐻 ∘ (inl ↾ 𝐴)) Fn 𝐴)
15	6, 9, 13, 14	syl3anc 1249	. 2 ⊢ (𝜑 → (𝐻 ∘ (inl ↾ 𝐴)) Fn 𝐴)
16		ffn 5391	. . 3 ⊢ (𝐹:𝐴⟶𝐶 → 𝐹 Fn 𝐴)
17	1, 16	syl 14	. 2 ⊢ (𝜑 → 𝐹 Fn 𝐴)
18		fvco2 5613	. . . 4 ⊢ (((inl ↾ 𝐴) Fn 𝐴 ∧ 𝑎 ∈ 𝐴) → ((𝐻 ∘ (inl ↾ 𝐴))‘𝑎) = (𝐻‘((inl ↾ 𝐴)‘𝑎)))
19	9, 18	sylan 283	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ((𝐻 ∘ (inl ↾ 𝐴))‘𝑎) = (𝐻‘((inl ↾ 𝐴)‘𝑎)))
20		fvres 5565	. . . . . 6 ⊢ (𝑎 ∈ 𝐴 → ((inl ↾ 𝐴)‘𝑎) = (inl‘𝑎))
21	20	adantl 277	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ((inl ↾ 𝐴)‘𝑎) = (inl‘𝑎))
22	21	fveq2d 5545	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝐻‘((inl ↾ 𝐴)‘𝑎)) = (𝐻‘(inl‘𝑎)))
23	3	a1i 9	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝐻 = (𝑥 ∈ (𝐴 ⊔ 𝐵) ↦ if((1st ‘𝑥) = ∅, (𝐹‘(2nd ‘𝑥)), (𝐺‘(2nd ‘𝑥)))))
24		fveq2 5541	. . . . . . . . 9 ⊢ (𝑥 = (inl‘𝑎) → (1st ‘𝑥) = (1st ‘(inl‘𝑎)))
25	24	eqeq1d 2198	. . . . . . . 8 ⊢ (𝑥 = (inl‘𝑎) → ((1st ‘𝑥) = ∅ ↔ (1st ‘(inl‘𝑎)) = ∅))
26		fveq2 5541	. . . . . . . . 9 ⊢ (𝑥 = (inl‘𝑎) → (2nd ‘𝑥) = (2nd ‘(inl‘𝑎)))
27	26	fveq2d 5545	. . . . . . . 8 ⊢ (𝑥 = (inl‘𝑎) → (𝐹‘(2nd ‘𝑥)) = (𝐹‘(2nd ‘(inl‘𝑎))))
28	26	fveq2d 5545	. . . . . . . 8 ⊢ (𝑥 = (inl‘𝑎) → (𝐺‘(2nd ‘𝑥)) = (𝐺‘(2nd ‘(inl‘𝑎))))
29	25, 27, 28	ifbieq12d 3579	. . . . . . 7 ⊢ (𝑥 = (inl‘𝑎) → if((1st ‘𝑥) = ∅, (𝐹‘(2nd ‘𝑥)), (𝐺‘(2nd ‘𝑥))) = if((1st ‘(inl‘𝑎)) = ∅, (𝐹‘(2nd ‘(inl‘𝑎))), (𝐺‘(2nd ‘(inl‘𝑎)))))
30	29	adantl 277	. . . . . 6 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 = (inl‘𝑎)) → if((1st ‘𝑥) = ∅, (𝐹‘(2nd ‘𝑥)), (𝐺‘(2nd ‘𝑥))) = if((1st ‘(inl‘𝑎)) = ∅, (𝐹‘(2nd ‘(inl‘𝑎))), (𝐺‘(2nd ‘(inl‘𝑎)))))
31		1stinl 7112	. . . . . . . . 9 ⊢ (𝑎 ∈ 𝐴 → (1st ‘(inl‘𝑎)) = ∅)
32	31	adantl 277	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (1st ‘(inl‘𝑎)) = ∅)
33	32	adantr 276	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 = (inl‘𝑎)) → (1st ‘(inl‘𝑎)) = ∅)
34	33	iftrued 3560	. . . . . 6 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 = (inl‘𝑎)) → if((1st ‘(inl‘𝑎)) = ∅, (𝐹‘(2nd ‘(inl‘𝑎))), (𝐺‘(2nd ‘(inl‘𝑎)))) = (𝐹‘(2nd ‘(inl‘𝑎))))
35	30, 34	eqtrd 2222	. . . . 5 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 = (inl‘𝑎)) → if((1st ‘𝑥) = ∅, (𝐹‘(2nd ‘𝑥)), (𝐺‘(2nd ‘𝑥))) = (𝐹‘(2nd ‘(inl‘𝑎))))
36		djulcl 7089	. . . . . 6 ⊢ (𝑎 ∈ 𝐴 → (inl‘𝑎) ∈ (𝐴 ⊔ 𝐵))
37	36	adantl 277	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (inl‘𝑎) ∈ (𝐴 ⊔ 𝐵))
38	1	adantr 276	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝐹:𝐴⟶𝐶)
39		2ndinl 7113	. . . . . . . 8 ⊢ (𝑎 ∈ 𝐴 → (2nd ‘(inl‘𝑎)) = 𝑎)
40	39	adantl 277	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (2nd ‘(inl‘𝑎)) = 𝑎)
41		simpr 110	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ 𝐴)
42	40, 41	eqeltrd 2266	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (2nd ‘(inl‘𝑎)) ∈ 𝐴)
43	38, 42	ffvelcdmd 5680	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝐹‘(2nd ‘(inl‘𝑎))) ∈ 𝐶)
44	23, 35, 37, 43	fvmptd 5625	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝐻‘(inl‘𝑎)) = (𝐹‘(2nd ‘(inl‘𝑎))))
45	22, 44	eqtrd 2222	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝐻‘((inl ↾ 𝐴)‘𝑎)) = (𝐹‘(2nd ‘(inl‘𝑎))))
46	40	fveq2d 5545	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝐹‘(2nd ‘(inl‘𝑎))) = (𝐹‘𝑎))
47	19, 45, 46	3eqtrd 2226	. 2 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ((𝐻 ∘ (inl ↾ 𝐴))‘𝑎) = (𝐹‘𝑎))
48	15, 17, 47	eqfnfvd 5644	1 ⊢ (𝜑 → (𝐻 ∘ (inl ↾ 𝐴)) = 𝐹)

Syntax hints:   → wi 4   ∧ wa 104   = wceq 1364   ∈ wcel 2160   ⊆ wss 3148  ∅c0 3441  ifcif 3553   ↦ cmpt 4086  ran crn 4652   ↾ cres 4653   ∘ ccom 4655   Fn wfn 5237  ⟶wf 5238  –1-1→wf1 5239  ‘cfv 5242  1^st c1st 6171  2^nd c2nd 6172   ⊔ cdju 7075  inlcinl 7083

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2162  ax-14 2163  ax-ext 2171  ax-sep 4143  ax-nul 4151  ax-pow 4199  ax-pr 4234  ax-un 4458

This theorem depends on definitions:  df-bi 117  df-dc 836  df-3an 982  df-tru 1367  df-nf 1472  df-sb 1774  df-eu 2041  df-mo 2042  df-clab 2176  df-cleq 2182  df-clel 2185  df-nfc 2321  df-ne 2361  df-ral 2473  df-rex 2474  df-rab 2477  df-v 2758  df-sbc 2982  df-csb 3077  df-dif 3150  df-un 3152  df-in 3154  df-ss 3161  df-nul 3442  df-if 3554  df-pw 3599  df-sn 3620  df-pr 3621  df-op 3623  df-uni 3832  df-br 4026  df-opab 4087  df-mpt 4088  df-tr 4124  df-id 4318  df-iord 4391  df-on 4393  df-suc 4396  df-xp 4657  df-rel 4658  df-cnv 4659  df-co 4660  df-dm 4661  df-rn 4662  df-res 4663  df-ima 4664  df-iota 5203  df-fun 5244  df-fn 5245  df-f 5246  df-f1 5247  df-fo 5248  df-f1o 5249  df-fv 5250  df-1st 6173  df-2nd 6174  df-1o 6449  df-dju 7076  df-inl 7085  df-inr 7086

This theorem is referenced by:  updjud  7120