Theorem updjudhcoinlf 9934

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 9933	. . . 4 ⊢ (𝜑 → 𝐻:(𝐴 ⊔ 𝐵)⟶𝐶)
5	4	ffnd 6710	. . 3 ⊢ (𝜑 → 𝐻 Fn (𝐴 ⊔ 𝐵))
6		inlresf 9916	. . . 4 ⊢ (inl ↾ 𝐴):𝐴⟶(𝐴 ⊔ 𝐵)
7		ffn 6709	. . . 4 ⊢ ((inl ↾ 𝐴):𝐴⟶(𝐴 ⊔ 𝐵) → (inl ↾ 𝐴) Fn 𝐴)
8	6, 7	mp1i 14	. . 3 ⊢ (𝜑 → (inl ↾ 𝐴) Fn 𝐴)
9		frn 6717	. . . 4 ⊢ ((inl ↾ 𝐴):𝐴⟶(𝐴 ⊔ 𝐵) → ran (inl ↾ 𝐴) ⊆ (𝐴 ⊔ 𝐵))
10	6, 9	mp1i 14	. . 3 ⊢ (𝜑 → ran (inl ↾ 𝐴) ⊆ (𝐴 ⊔ 𝐵))
11		fnco 6657	. . 3 ⊢ ((𝐻 Fn (𝐴 ⊔ 𝐵) ∧ (inl ↾ 𝐴) Fn 𝐴 ∧ ran (inl ↾ 𝐴) ⊆ (𝐴 ⊔ 𝐵)) → (𝐻 ∘ (inl ↾ 𝐴)) Fn 𝐴)
12	5, 8, 10, 11	syl3anc 1398	. 2 ⊢ (𝜑 → (𝐻 ∘ (inl ↾ 𝐴)) Fn 𝐴)
13	1	ffnd 6710	. 2 ⊢ (𝜑 → 𝐹 Fn 𝐴)
14		fvco2 6982	. . . 4 ⊢ (((inl ↾ 𝐴) Fn 𝐴 ∧ 𝑎 ∈ 𝐴) → ((𝐻 ∘ (inl ↾ 𝐴))‘𝑎) = (𝐻‘((inl ↾ 𝐴)‘𝑎)))
15	8, 14	sylan 592	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ((𝐻 ∘ (inl ↾ 𝐴))‘𝑎) = (𝐻‘((inl ↾ 𝐴)‘𝑎)))
16		fvres 6904	. . . . . 6 ⊢ (𝑎 ∈ 𝐴 → ((inl ↾ 𝐴)‘𝑎) = (inl‘𝑎))
17	16	adantl 487	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ((inl ↾ 𝐴)‘𝑎) = (inl‘𝑎))
18	17	fveq2d 6889	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝐻‘((inl ↾ 𝐴)‘𝑎)) = (𝐻‘(inl‘𝑎)))
19		fveqeq2 6894	. . . . . . . 8 ⊢ (𝑥 = (inl‘𝑎) → ((1st ‘𝑥) = ∅ ↔ (1st ‘(inl‘𝑎)) = ∅))
20		2fveq3 6890	. . . . . . . 8 ⊢ (𝑥 = (inl‘𝑎) → (𝐹‘(2nd ‘𝑥)) = (𝐹‘(2nd ‘(inl‘𝑎))))
21		2fveq3 6890	. . . . . . . 8 ⊢ (𝑥 = (inl‘𝑎) → (𝐺‘(2nd ‘𝑥)) = (𝐺‘(2nd ‘(inl‘𝑎))))
22	19, 20, 21	ifbieq12d 4518	. . . . . . 7 ⊢ (𝑥 = (inl‘𝑎) → if((1st ‘𝑥) = ∅, (𝐹‘(2nd ‘𝑥)), (𝐺‘(2nd ‘𝑥))) = if((1st ‘(inl‘𝑎)) = ∅, (𝐹‘(2nd ‘(inl‘𝑎))), (𝐺‘(2nd ‘(inl‘𝑎)))))
23	22	adantl 487	. . . . . 6 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 = (inl‘𝑎)) → if((1st ‘𝑥) = ∅, (𝐹‘(2nd ‘𝑥)), (𝐺‘(2nd ‘𝑥))) = if((1st ‘(inl‘𝑎)) = ∅, (𝐹‘(2nd ‘(inl‘𝑎))), (𝐺‘(2nd ‘(inl‘𝑎)))))
24		1stinl 9929	. . . . . . . . 9 ⊢ (𝑎 ∈ 𝐴 → (1st ‘(inl‘𝑎)) = ∅)
25	24	adantl 487	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (1st ‘(inl‘𝑎)) = ∅)
26	25	adantr 486	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 = (inl‘𝑎)) → (1st ‘(inl‘𝑎)) = ∅)
27	26	iftrued 4497	. . . . . 6 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 = (inl‘𝑎)) → if((1st ‘(inl‘𝑎)) = ∅, (𝐹‘(2nd ‘(inl‘𝑎))), (𝐺‘(2nd ‘(inl‘𝑎)))) = (𝐹‘(2nd ‘(inl‘𝑎))))
28	23, 27	eqtrd 2800	. . . . 5 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 = (inl‘𝑎)) → if((1st ‘𝑥) = ∅, (𝐹‘(2nd ‘𝑥)), (𝐺‘(2nd ‘𝑥))) = (𝐹‘(2nd ‘(inl‘𝑎))))
29		djulcl 9912	. . . . . 6 ⊢ (𝑎 ∈ 𝐴 → (inl‘𝑎) ∈ (𝐴 ⊔ 𝐵))
30	29	adantl 487	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (inl‘𝑎) ∈ (𝐴 ⊔ 𝐵))
31	1	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝐹:𝐴⟶𝐶)
32		2ndinl 9930	. . . . . . . 8 ⊢ (𝑎 ∈ 𝐴 → (2nd ‘(inl‘𝑎)) = 𝑎)
33	32	adantl 487	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (2nd ‘(inl‘𝑎)) = 𝑎)
34		simpr 490	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ 𝐴)
35	33, 34	eqeltrd 2865	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (2nd ‘(inl‘𝑎)) ∈ 𝐴)
36	31, 35	ffvelcdmd 7084	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝐹‘(2nd ‘(inl‘𝑎))) ∈ 𝐶)
37	3, 28, 30, 36	fvmptd2 7002	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝐻‘(inl‘𝑎)) = (𝐹‘(2nd ‘(inl‘𝑎))))
38	18, 37	eqtrd 2800	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝐻‘((inl ↾ 𝐴)‘𝑎)) = (𝐹‘(2nd ‘(inl‘𝑎))))
39	33	fveq2d 6889	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝐹‘(2nd ‘(inl‘𝑎))) = (𝐹‘𝑎))
40	15, 38, 39	3eqtrd 2804	. 2 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ((𝐻 ∘ (inl ↾ 𝐴))‘𝑎) = (𝐹‘𝑎))
41	12, 13, 40	eqfnfvd 7032	1 ⊢ (𝜑 → (𝐻 ∘ (inl ↾ 𝐴)) = 𝐹)

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2146   ⊆ wss 3906  ∅c0 4286  ifcif 4489   ↦ cmpt 5194  ran crn 5664   ↾ cres 5665   ∘ ccom 5667   Fn wfn 6535  ⟶wf 6536  ‘cfv 6540  1^st c1st 7990  2^nd c2nd 7991   ⊔ cdju 9900  inlcinl 9901

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-sep 5259  ax-nul 5271  ax-pr 5406  ax-un 7742

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-ral 3082  df-rex 3092  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4287  df-if 4490  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-br 5112  df-opab 5176  df-mpt 5195  df-id 5558  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-1st 7992  df-2nd 7993  df-1o 8459  df-dju 9903  df-inl 9904

This theorem is used by:  updjud  9936