Theorem updjudhcoinrg 7385

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	|- ( ph -> F : A --> C )
updjud.g	|- ( ph -> G : B --> C )
updjudhf.h	|- H = ( x e. ( A ⊔ B ) |-> if ( ( 1st ` x ) = (/) , ( F ` ( 2nd ` x ) ) , ( G ` ( 2nd ` x ) ) ) )

Assertion

Ref	Expression
updjudhcoinrg	|- ( ph -> ( H o. (inr |` B ) ) = G )

Distinct variable groups:   x, A   x, B   x, C   ph, x   x, F   x, G

Allowed substitution hint:   H( x)

Proof of Theorem updjudhcoinrg

Dummy variable b is distinct from all other variables.

Step	Hyp	Ref	Expression
1		updjud.f	. . . . 5 |- ( ph -> F : A --> C )
2		updjud.g	. . . . 5 |- ( ph -> G : B --> C )
3		updjudhf.h	. . . . 5 |- H = ( x e. ( A ⊔ B ) |-> if ( ( 1st ` x ) = (/) , ( F ` ( 2nd ` x ) ) , ( G ` ( 2nd ` x ) ) ) )
4	1, 2, 3	updjudhf 7383	. . . 4 |- ( ph -> H : ( A ⊔ B ) --> C )
5		ffn 5513	. . . 4 |- ( H : ( A ⊔ B ) --> C -> H Fn ( A ⊔ B ) )
6	4, 5	syl 14	. . 3 |- ( ph -> H Fn ( A ⊔ B ) )
7		inrresf1 7366	. . . 4 |- (inr |` B ) : B -1-1-> ( A ⊔ B )
8		f1fn 5580	. . . 4 |- ( (inr |` B ) : B -1-1-> ( A ⊔ B ) -> (inr |` B ) Fn B )
9	7, 8	mp1i 10	. . 3 |- ( ph -> (inr |` B ) Fn B )
10		f1f 5578	. . . . 5 |- ( (inr |` B ) : B -1-1-> ( A ⊔ B ) -> (inr |` B ) : B --> ( A ⊔ B ) )
11	7, 10	ax-mp 5	. . . 4 |- (inr |` B ) : B --> ( A ⊔ B )
12		frn 5522	. . . 4 |- ( (inr |` B ) : B --> ( A ⊔ B ) -> ran (inr |` B ) C_ ( A ⊔ B ) )
13	11, 12	mp1i 10	. . 3 |- ( ph -> ran (inr |` B ) C_ ( A ⊔ B ) )
14		fnco 5471	. . 3 |- ( ( H Fn ( A ⊔ B ) /\ (inr |` B ) Fn B /\ ran (inr |` B ) C_ ( A ⊔ B ) ) -> ( H o. (inr |` B ) ) Fn B )
15	6, 9, 13, 14	syl3anc 1274	. 2 |- ( ph -> ( H o. (inr |` B ) ) Fn B )
16		ffn 5513	. . 3 |- ( G : B --> C -> G Fn B )
17	2, 16	syl 14	. 2 |- ( ph -> G Fn B )
18		fvco2 5751	. . . 4 |- ( ( (inr |` B ) Fn B /\ b e. B ) -> ( ( H o. (inr |` B ) ) ` b ) = ( H ` ( (inr |` B ) ` b ) ) )
19	9, 18	sylan 283	. . 3 |- ( ( ph /\ b e. B ) -> ( ( H o. (inr |` B ) ) ` b ) = ( H ` ( (inr |` B ) ` b ) ) )
20		fvres 5699	. . . . . 6 |- ( b e. B -> ( (inr |` B ) ` b ) = (inr ` b ) )
21	20	adantl 277	. . . . 5 |- ( ( ph /\ b e. B ) -> ( (inr |` B ) ` b ) = (inr ` b ) )
22	21	fveq2d 5679	. . . 4 |- ( ( ph /\ b e. B ) -> ( H ` ( (inr |` B ) ` b ) ) = ( H ` (inr ` b ) ) )
23	3	a1i 9	. . . . 5 |- ( ( ph /\ b e. B ) -> H = ( x e. ( A ⊔ B ) |-> if ( ( 1st ` x ) = (/) , ( F ` ( 2nd ` x ) ) , ( G ` ( 2nd ` x ) ) ) ) )
24		fveq2 5675	. . . . . . . . 9 |- ( x = (inr ` b ) -> ( 1st ` x ) = ( 1st ` (inr ` b ) ) )
25	24	eqeq1d 2243	. . . . . . . 8 |- ( x = (inr ` b ) -> ( ( 1st ` x ) = (/) <-> ( 1st ` (inr ` b ) ) = (/) ) )
26		fveq2 5675	. . . . . . . . 9 |- ( x = (inr ` b ) -> ( 2nd ` x ) = ( 2nd ` (inr ` b ) ) )
27	26	fveq2d 5679	. . . . . . . 8 |- ( x = (inr ` b ) -> ( F ` ( 2nd ` x ) ) = ( F ` ( 2nd ` (inr ` b ) ) ) )
28	26	fveq2d 5679	. . . . . . . 8 |- ( x = (inr ` b ) -> ( G ` ( 2nd ` x ) ) = ( G ` ( 2nd ` (inr ` b ) ) ) )
29	25, 27, 28	ifbieq12d 3653	. . . . . . 7 |- ( x = (inr ` b ) -> if ( ( 1st ` x ) = (/) , ( F ` ( 2nd ` x ) ) , ( G ` ( 2nd ` x ) ) ) = if ( ( 1st ` (inr ` b ) ) = (/) , ( F ` ( 2nd ` (inr ` b ) ) ) , ( G ` ( 2nd ` (inr ` b ) ) ) ) )
30	29	adantl 277	. . . . . 6 |- ( ( ( ph /\ b e. B ) /\ x = (inr ` b ) ) -> if ( ( 1st ` x ) = (/) , ( F ` ( 2nd ` x ) ) , ( G ` ( 2nd ` x ) ) ) = if ( ( 1st ` (inr ` b ) ) = (/) , ( F ` ( 2nd ` (inr ` b ) ) ) , ( G ` ( 2nd ` (inr ` b ) ) ) ) )
31		1stinr 7380	. . . . . . . . . 10 |- ( b e. B -> ( 1st ` (inr ` b ) ) = 1o )
32		1n0 6678	. . . . . . . . . . . 12 |- 1o =/= (/)
33	32	neii 2416	. . . . . . . . . . 11 |- -. 1o = (/)
34		eqeq1 2241	. . . . . . . . . . 11 |- ( ( 1st ` (inr ` b ) ) = 1o -> ( ( 1st ` (inr ` b ) ) = (/) <-> 1o = (/) ) )
35	33, 34	mtbiri 682	. . . . . . . . . 10 |- ( ( 1st ` (inr ` b ) ) = 1o -> -. ( 1st ` (inr ` b ) ) = (/) )
36	31, 35	syl 14	. . . . . . . . 9 |- ( b e. B -> -. ( 1st ` (inr ` b ) ) = (/) )
37	36	adantl 277	. . . . . . . 8 |- ( ( ph /\ b e. B ) -> -. ( 1st ` (inr ` b ) ) = (/) )
38	37	adantr 276	. . . . . . 7 |- ( ( ( ph /\ b e. B ) /\ x = (inr ` b ) ) -> -. ( 1st ` (inr ` b ) ) = (/) )
39	38	iffalsed 3636	. . . . . 6 |- ( ( ( ph /\ b e. B ) /\ x = (inr ` b ) ) -> if ( ( 1st ` (inr ` b ) ) = (/) , ( F ` ( 2nd ` (inr ` b ) ) ) , ( G ` ( 2nd ` (inr ` b ) ) ) ) = ( G ` ( 2nd ` (inr ` b ) ) ) )
40	30, 39	eqtrd 2267	. . . . 5 |- ( ( ( ph /\ b e. B ) /\ x = (inr ` b ) ) -> if ( ( 1st ` x ) = (/) , ( F ` ( 2nd ` x ) ) , ( G ` ( 2nd ` x ) ) ) = ( G ` ( 2nd ` (inr ` b ) ) ) )
41		djurcl 7356	. . . . . 6 |- ( b e. B -> (inr ` b ) e. ( A ⊔ B ) )
42	41	adantl 277	. . . . 5 |- ( ( ph /\ b e. B ) -> (inr ` b ) e. ( A ⊔ B ) )
43	2	adantr 276	. . . . . 6 |- ( ( ph /\ b e. B ) -> G : B --> C )
44		2ndinr 7381	. . . . . . . 8 |- ( b e. B -> ( 2nd ` (inr ` b ) ) = b )
45	44	adantl 277	. . . . . . 7 |- ( ( ph /\ b e. B ) -> ( 2nd ` (inr ` b ) ) = b )
46		simpr 110	. . . . . . 7 |- ( ( ph /\ b e. B ) -> b e. B )
47	45, 46	eqeltrd 2311	. . . . . 6 |- ( ( ph /\ b e. B ) -> ( 2nd ` (inr ` b ) ) e. B )
48	43, 47	ffvelcdmd 5818	. . . . 5 |- ( ( ph /\ b e. B ) -> ( G ` ( 2nd ` (inr ` b ) ) ) e. C )
49	23, 40, 42, 48	fvmptd 5763	. . . 4 |- ( ( ph /\ b e. B ) -> ( H ` (inr ` b ) ) = ( G ` ( 2nd ` (inr ` b ) ) ) )
50	22, 49	eqtrd 2267	. . 3 |- ( ( ph /\ b e. B ) -> ( H ` ( (inr |` B ) ` b ) ) = ( G ` ( 2nd ` (inr ` b ) ) ) )
51	45	fveq2d 5679	. . 3 |- ( ( ph /\ b e. B ) -> ( G ` ( 2nd ` (inr ` b ) ) ) = ( G ` b ) )
52	19, 50, 51	3eqtrd 2271	. 2 |- ( ( ph /\ b e. B ) -> ( ( H o. (inr |` B ) ) ` b ) = ( G ` b ) )
53	15, 17, 52	eqfnfvd 5783	1 |- ( ph -> ( H o. (inr |` B ) ) = G )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 104   = wceq 1398   e. wcel 2205   C_ wss 3214   (/)c0 3512   ifcif 3624   |-> cmpt 4176   ran crn 4755   |` cres 4756   o. ccom 4758   Fn wfn 5352   -->wf 5353   -1-1->wf1 5354   ` cfv 5357   1stc1st 6345   2ndc2nd 6346   1oc1o 6653   ⊔ cdju 7341  inrcinr 7350

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 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2207  ax-14 2208  ax-ext 2216  ax-sep 4233  ax-nul 4241  ax-pow 4292  ax-pr 4327  ax-un 4559

This theorem depends on definitions:  df-bi 117  df-dc 843  df-3an 1007  df-tru 1401  df-nf 1510  df-sb 1812  df-eu 2085  df-mo 2086  df-clab 2221  df-cleq 2227  df-clel 2230  df-nfc 2375  df-ne 2415  df-ral 2527  df-rex 2528  df-rab 2531  df-v 2817  df-sbc 3046  df-csb 3142  df-dif 3216  df-un 3218  df-in 3220  df-ss 3227  df-nul 3513  df-if 3625  df-pw 3676  df-sn 3700  df-pr 3701  df-op 3703  df-uni 3920  df-br 4115  df-opab 4177  df-mpt 4178  df-tr 4214  df-id 4419  df-iord 4492  df-on 4494  df-suc 4497  df-xp 4760  df-rel 4761  df-cnv 4762  df-co 4763  df-dm 4764  df-rn 4765  df-res 4766  df-ima 4767  df-iota 5317  df-fun 5359  df-fn 5360  df-f 5361  df-f1 5362  df-fo 5363  df-f1o 5364  df-fv 5365  df-1st 6347  df-2nd 6348  df-1o 6660  df-dju 7342  df-inl 7351  df-inr 7352

This theorem is referenced by:  updjud  7386