Theorem updjudhcoinrg 9919

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

Hypotheses

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

Assertion

Ref	Expression
updjudhcoinrg	⊢ (𝜑 → (𝐻 ∘ (inr ↾ 𝐵)) = 𝐺)

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

Allowed substitution hint:   𝐻(𝑥)

Proof of Theorem updjudhcoinrg

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 9917	. . . 4 ⊢ (𝜑 → 𝐻:(𝐴 ⊔ 𝐵)⟶𝐶)
5	4	ffnd 6707	. . 3 ⊢ (𝜑 → 𝐻 Fn (𝐴 ⊔ 𝐵))
6		inrresf 9902	. . . 4 ⊢ (inr ↾ 𝐵):𝐵⟶(𝐴 ⊔ 𝐵)
7		ffn 6706	. . . 4 ⊢ ((inr ↾ 𝐵):𝐵⟶(𝐴 ⊔ 𝐵) → (inr ↾ 𝐵) Fn 𝐵)
8	6, 7	mp1i 14	. . 3 ⊢ (𝜑 → (inr ↾ 𝐵) Fn 𝐵)
9		frn 6714	. . . 4 ⊢ ((inr ↾ 𝐵):𝐵⟶(𝐴 ⊔ 𝐵) → ran (inr ↾ 𝐵) ⊆ (𝐴 ⊔ 𝐵))
10	6, 9	mp1i 14	. . 3 ⊢ (𝜑 → ran (inr ↾ 𝐵) ⊆ (𝐴 ⊔ 𝐵))
11		fnco 6654	. . 3 ⊢ ((𝐻 Fn (𝐴 ⊔ 𝐵) ∧ (inr ↾ 𝐵) Fn 𝐵 ∧ ran (inr ↾ 𝐵) ⊆ (𝐴 ⊔ 𝐵)) → (𝐻 ∘ (inr ↾ 𝐵)) Fn 𝐵)
12	5, 8, 10, 11	syl3anc 1396	. 2 ⊢ (𝜑 → (𝐻 ∘ (inr ↾ 𝐵)) Fn 𝐵)
13	2	ffnd 6707	. 2 ⊢ (𝜑 → 𝐺 Fn 𝐵)
14		fvco2 6979	. . . 4 ⊢ (((inr ↾ 𝐵) Fn 𝐵 ∧ 𝑏 ∈ 𝐵) → ((𝐻 ∘ (inr ↾ 𝐵))‘𝑏) = (𝐻‘((inr ↾ 𝐵)‘𝑏)))
15	8, 14	sylan 591	. . 3 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ((𝐻 ∘ (inr ↾ 𝐵))‘𝑏) = (𝐻‘((inr ↾ 𝐵)‘𝑏)))
16		fvres 6901	. . . . . 6 ⊢ (𝑏 ∈ 𝐵 → ((inr ↾ 𝐵)‘𝑏) = (inr‘𝑏))
17	16	adantl 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ((inr ↾ 𝐵)‘𝑏) = (inr‘𝑏))
18	17	fveq2d 6886	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝐻‘((inr ↾ 𝐵)‘𝑏)) = (𝐻‘(inr‘𝑏)))
19		fveqeq2 6891	. . . . . . . 8 ⊢ (𝑥 = (inr‘𝑏) → ((1st ‘𝑥) = ∅ ↔ (1st ‘(inr‘𝑏)) = ∅))
20		2fveq3 6887	. . . . . . . 8 ⊢ (𝑥 = (inr‘𝑏) → (𝐹‘(2nd ‘𝑥)) = (𝐹‘(2nd ‘(inr‘𝑏))))
21		2fveq3 6887	. . . . . . . 8 ⊢ (𝑥 = (inr‘𝑏) → (𝐺‘(2nd ‘𝑥)) = (𝐺‘(2nd ‘(inr‘𝑏))))
22	19, 20, 21	ifbieq12d 4521	. . . . . . 7 ⊢ (𝑥 = (inr‘𝑏) → if((1st ‘𝑥) = ∅, (𝐹‘(2nd ‘𝑥)), (𝐺‘(2nd ‘𝑥))) = if((1st ‘(inr‘𝑏)) = ∅, (𝐹‘(2nd ‘(inr‘𝑏))), (𝐺‘(2nd ‘(inr‘𝑏)))))
23	22	adantl 486	. . . . . 6 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐵) ∧ 𝑥 = (inr‘𝑏)) → if((1st ‘𝑥) = ∅, (𝐹‘(2nd ‘𝑥)), (𝐺‘(2nd ‘𝑥))) = if((1st ‘(inr‘𝑏)) = ∅, (𝐹‘(2nd ‘(inr‘𝑏))), (𝐺‘(2nd ‘(inr‘𝑏)))))
24		1stinr 9915	. . . . . . . . . 10 ⊢ (𝑏 ∈ 𝐵 → (1st ‘(inr‘𝑏)) = 1o)
25		1n0 8472	. . . . . . . . . . . 12 ⊢ 1o ≠ ∅
26	25	neii 2966	. . . . . . . . . . 11 ⊢ ¬ 1o = ∅
27		eqeq1 2773	. . . . . . . . . . 11 ⊢ ((1st ‘(inr‘𝑏)) = 1o → ((1st ‘(inr‘𝑏)) = ∅ ↔ 1o = ∅))
28	26, 27	mtbiri 330	. . . . . . . . . 10 ⊢ ((1st ‘(inr‘𝑏)) = 1o → ¬ (1st ‘(inr‘𝑏)) = ∅)
29	24, 28	syl 18	. . . . . . . . 9 ⊢ (𝑏 ∈ 𝐵 → ¬ (1st ‘(inr‘𝑏)) = ∅)
30	29	adantl 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ¬ (1st ‘(inr‘𝑏)) = ∅)
31	30	adantr 485	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐵) ∧ 𝑥 = (inr‘𝑏)) → ¬ (1st ‘(inr‘𝑏)) = ∅)
32	31	iffalsed 4503	. . . . . 6 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐵) ∧ 𝑥 = (inr‘𝑏)) → if((1st ‘(inr‘𝑏)) = ∅, (𝐹‘(2nd ‘(inr‘𝑏))), (𝐺‘(2nd ‘(inr‘𝑏)))) = (𝐺‘(2nd ‘(inr‘𝑏))))
33	23, 32	eqtrd 2804	. . . . 5 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐵) ∧ 𝑥 = (inr‘𝑏)) → if((1st ‘𝑥) = ∅, (𝐹‘(2nd ‘𝑥)), (𝐺‘(2nd ‘𝑥))) = (𝐺‘(2nd ‘(inr‘𝑏))))
34		djurcl 9897	. . . . . 6 ⊢ (𝑏 ∈ 𝐵 → (inr‘𝑏) ∈ (𝐴 ⊔ 𝐵))
35	34	adantl 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (inr‘𝑏) ∈ (𝐴 ⊔ 𝐵))
36	2	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → 𝐺:𝐵⟶𝐶)
37		2ndinr 9916	. . . . . . . 8 ⊢ (𝑏 ∈ 𝐵 → (2nd ‘(inr‘𝑏)) = 𝑏)
38	37	adantl 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (2nd ‘(inr‘𝑏)) = 𝑏)
39		simpr 489	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → 𝑏 ∈ 𝐵)
40	38, 39	eqeltrd 2869	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (2nd ‘(inr‘𝑏)) ∈ 𝐵)
41	36, 40	ffvelcdmd 7081	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝐺‘(2nd ‘(inr‘𝑏))) ∈ 𝐶)
42	3, 33, 35, 41	fvmptd2 6999	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝐻‘(inr‘𝑏)) = (𝐺‘(2nd ‘(inr‘𝑏))))
43	18, 42	eqtrd 2804	. . 3 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝐻‘((inr ↾ 𝐵)‘𝑏)) = (𝐺‘(2nd ‘(inr‘𝑏))))
44	38	fveq2d 6886	. . 3 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝐺‘(2nd ‘(inr‘𝑏))) = (𝐺‘𝑏))
45	15, 43, 44	3eqtrd 2808	. 2 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ((𝐻 ∘ (inr ↾ 𝐵))‘𝑏) = (𝐺‘𝑏))
46	12, 13, 45	eqfnfvd 7029	1 ⊢ (𝜑 → (𝐻 ∘ (inr ↾ 𝐵)) = 𝐺)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 400   = wceq 1567   ∈ wcel 2149   ⊆ wss 3913  ∅c0 4294  ifcif 4492   ↦ cmpt 5196  ran crn 5663   ↾ cres 5664   ∘ ccom 5666   Fn wfn 6532  ⟶wf 6533  ‘cfv 6537  1^st c1st 7984  2^nd c2nd 7985  1_oc1o 8446   ⊔ cdju 9884  inrcinr 9886

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-sep 5261  ax-nul 5271  ax-pr 5405  ax-un 7733

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-om 7863  df-1st 7986  df-2nd 7987  df-1o 8453  df-dju 9887  df-inr 9889

This theorem is referenced by:  updjud  9920