MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  updjudhcoinlf Structured version   Visualization version   GIF version

Theorem updjudhcoinlf 9044
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.
StepHypRef Expression
1 updjud.f . . . . 5 (𝜑𝐹:𝐴𝐶)
2 updjud.g . . . . 5 (𝜑𝐺:𝐵𝐶)
3 updjudhf.h . . . . 5 𝐻 = (𝑥 ∈ (𝐴𝐵) ↦ if((1st𝑥) = ∅, (𝐹‘(2nd𝑥)), (𝐺‘(2nd𝑥))))
41, 2, 3updjudhf 9043 . . . 4 (𝜑𝐻:(𝐴𝐵)⟶𝐶)
54ffnd 6257 . . 3 (𝜑𝐻 Fn (𝐴𝐵))
6 inlresf 9026 . . . 4 (inl ↾ 𝐴):𝐴⟶(𝐴𝐵)
7 ffn 6256 . . . 4 ((inl ↾ 𝐴):𝐴⟶(𝐴𝐵) → (inl ↾ 𝐴) Fn 𝐴)
86, 7mp1i 13 . . 3 (𝜑 → (inl ↾ 𝐴) Fn 𝐴)
9 frn 6262 . . . 4 ((inl ↾ 𝐴):𝐴⟶(𝐴𝐵) → ran (inl ↾ 𝐴) ⊆ (𝐴𝐵))
106, 9mp1i 13 . . 3 (𝜑 → ran (inl ↾ 𝐴) ⊆ (𝐴𝐵))
11 fnco 6210 . . 3 ((𝐻 Fn (𝐴𝐵) ∧ (inl ↾ 𝐴) Fn 𝐴 ∧ ran (inl ↾ 𝐴) ⊆ (𝐴𝐵)) → (𝐻 ∘ (inl ↾ 𝐴)) Fn 𝐴)
125, 8, 10, 11syl3anc 1491 . 2 (𝜑 → (𝐻 ∘ (inl ↾ 𝐴)) Fn 𝐴)
131ffnd 6257 . 2 (𝜑𝐹 Fn 𝐴)
14 fvco2 6498 . . . 4 (((inl ↾ 𝐴) Fn 𝐴𝑎𝐴) → ((𝐻 ∘ (inl ↾ 𝐴))‘𝑎) = (𝐻‘((inl ↾ 𝐴)‘𝑎)))
158, 14sylan 576 . . 3 ((𝜑𝑎𝐴) → ((𝐻 ∘ (inl ↾ 𝐴))‘𝑎) = (𝐻‘((inl ↾ 𝐴)‘𝑎)))
16 fvres 6430 . . . . . 6 (𝑎𝐴 → ((inl ↾ 𝐴)‘𝑎) = (inl‘𝑎))
1716adantl 474 . . . . 5 ((𝜑𝑎𝐴) → ((inl ↾ 𝐴)‘𝑎) = (inl‘𝑎))
1817fveq2d 6415 . . . 4 ((𝜑𝑎𝐴) → (𝐻‘((inl ↾ 𝐴)‘𝑎)) = (𝐻‘(inl‘𝑎)))
193a1i 11 . . . . 5 ((𝜑𝑎𝐴) → 𝐻 = (𝑥 ∈ (𝐴𝐵) ↦ if((1st𝑥) = ∅, (𝐹‘(2nd𝑥)), (𝐺‘(2nd𝑥)))))
20 fveqeq2 6420 . . . . . . . 8 (𝑥 = (inl‘𝑎) → ((1st𝑥) = ∅ ↔ (1st ‘(inl‘𝑎)) = ∅))
21 2fveq3 6416 . . . . . . . 8 (𝑥 = (inl‘𝑎) → (𝐹‘(2nd𝑥)) = (𝐹‘(2nd ‘(inl‘𝑎))))
22 2fveq3 6416 . . . . . . . 8 (𝑥 = (inl‘𝑎) → (𝐺‘(2nd𝑥)) = (𝐺‘(2nd ‘(inl‘𝑎))))
2320, 21, 22ifbieq12d 4304 . . . . . . 7 (𝑥 = (inl‘𝑎) → if((1st𝑥) = ∅, (𝐹‘(2nd𝑥)), (𝐺‘(2nd𝑥))) = if((1st ‘(inl‘𝑎)) = ∅, (𝐹‘(2nd ‘(inl‘𝑎))), (𝐺‘(2nd ‘(inl‘𝑎)))))
2423adantl 474 . . . . . 6 (((𝜑𝑎𝐴) ∧ 𝑥 = (inl‘𝑎)) → if((1st𝑥) = ∅, (𝐹‘(2nd𝑥)), (𝐺‘(2nd𝑥))) = if((1st ‘(inl‘𝑎)) = ∅, (𝐹‘(2nd ‘(inl‘𝑎))), (𝐺‘(2nd ‘(inl‘𝑎)))))
25 1stinl 9039 . . . . . . . . 9 (𝑎𝐴 → (1st ‘(inl‘𝑎)) = ∅)
2625adantl 474 . . . . . . . 8 ((𝜑𝑎𝐴) → (1st ‘(inl‘𝑎)) = ∅)
2726adantr 473 . . . . . . 7 (((𝜑𝑎𝐴) ∧ 𝑥 = (inl‘𝑎)) → (1st ‘(inl‘𝑎)) = ∅)
2827iftrued 4285 . . . . . 6 (((𝜑𝑎𝐴) ∧ 𝑥 = (inl‘𝑎)) → if((1st ‘(inl‘𝑎)) = ∅, (𝐹‘(2nd ‘(inl‘𝑎))), (𝐺‘(2nd ‘(inl‘𝑎)))) = (𝐹‘(2nd ‘(inl‘𝑎))))
2924, 28eqtrd 2833 . . . . 5 (((𝜑𝑎𝐴) ∧ 𝑥 = (inl‘𝑎)) → if((1st𝑥) = ∅, (𝐹‘(2nd𝑥)), (𝐺‘(2nd𝑥))) = (𝐹‘(2nd ‘(inl‘𝑎))))
30 djulcl 9022 . . . . . 6 (𝑎𝐴 → (inl‘𝑎) ∈ (𝐴𝐵))
3130adantl 474 . . . . 5 ((𝜑𝑎𝐴) → (inl‘𝑎) ∈ (𝐴𝐵))
321adantr 473 . . . . . 6 ((𝜑𝑎𝐴) → 𝐹:𝐴𝐶)
33 2ndinl 9040 . . . . . . . 8 (𝑎𝐴 → (2nd ‘(inl‘𝑎)) = 𝑎)
3433adantl 474 . . . . . . 7 ((𝜑𝑎𝐴) → (2nd ‘(inl‘𝑎)) = 𝑎)
35 simpr 478 . . . . . . 7 ((𝜑𝑎𝐴) → 𝑎𝐴)
3634, 35eqeltrd 2878 . . . . . 6 ((𝜑𝑎𝐴) → (2nd ‘(inl‘𝑎)) ∈ 𝐴)
3732, 36ffvelrnd 6586 . . . . 5 ((𝜑𝑎𝐴) → (𝐹‘(2nd ‘(inl‘𝑎))) ∈ 𝐶)
3819, 29, 31, 37fvmptd 6513 . . . 4 ((𝜑𝑎𝐴) → (𝐻‘(inl‘𝑎)) = (𝐹‘(2nd ‘(inl‘𝑎))))
3918, 38eqtrd 2833 . . 3 ((𝜑𝑎𝐴) → (𝐻‘((inl ↾ 𝐴)‘𝑎)) = (𝐹‘(2nd ‘(inl‘𝑎))))
4034fveq2d 6415 . . 3 ((𝜑𝑎𝐴) → (𝐹‘(2nd ‘(inl‘𝑎))) = (𝐹𝑎))
4115, 39, 403eqtrd 2837 . 2 ((𝜑𝑎𝐴) → ((𝐻 ∘ (inl ↾ 𝐴))‘𝑎) = (𝐹𝑎))
4212, 13, 41eqfnfvd 6540 1 (𝜑 → (𝐻 ∘ (inl ↾ 𝐴)) = 𝐹)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 385   = wceq 1653  wcel 2157  wss 3769  c0 4115  ifcif 4277  cmpt 4922  ran crn 5313  cres 5314  ccom 5316   Fn wfn 6096  wf 6097  cfv 6101  1st c1st 7399  2nd c2nd 7400  cdju 9011  inlcinl 9012
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1891  ax-4 1905  ax-5 2006  ax-6 2072  ax-7 2107  ax-8 2159  ax-9 2166  ax-10 2185  ax-11 2200  ax-12 2213  ax-13 2377  ax-ext 2777  ax-sep 4975  ax-nul 4983  ax-pow 5035  ax-pr 5097  ax-un 7183
This theorem depends on definitions:  df-bi 199  df-an 386  df-or 875  df-3an 1110  df-tru 1657  df-ex 1876  df-nf 1880  df-sb 2065  df-mo 2591  df-eu 2609  df-clab 2786  df-cleq 2792  df-clel 2795  df-nfc 2930  df-ne 2972  df-ral 3094  df-rex 3095  df-rab 3098  df-v 3387  df-sbc 3634  df-csb 3729  df-dif 3772  df-un 3774  df-in 3776  df-ss 3783  df-nul 4116  df-if 4278  df-sn 4369  df-pr 4371  df-op 4375  df-uni 4629  df-br 4844  df-opab 4906  df-mpt 4923  df-id 5220  df-xp 5318  df-rel 5319  df-cnv 5320  df-co 5321  df-dm 5322  df-rn 5323  df-res 5324  df-ima 5325  df-suc 5947  df-iota 6064  df-fun 6103  df-fn 6104  df-f 6105  df-f1 6106  df-fo 6107  df-f1o 6108  df-fv 6109  df-1st 7401  df-2nd 7402  df-1o 7799  df-dju 9014  df-inl 9015
This theorem is referenced by:  updjud  9046
  Copyright terms: Public domain W3C validator