MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  funun Unicode version

Theorem funun 5261
Description: The union of functions with disjoint domains is a function. Theorem 4.6 of [Monk1] p. 43. (Contributed by NM, 12-Aug-1994.)
Assertion
Ref Expression
funun  |-  ( ( ( Fun  F  /\  Fun  G )  /\  ( dom  F  i^i  dom  G
)  =  (/) )  ->  Fun  ( F  u.  G
) )

Proof of Theorem funun
StepHypRef Expression
1 funrel 5238 . . . . 5  |-  ( Fun 
F  ->  Rel  F )
2 funrel 5238 . . . . 5  |-  ( Fun 
G  ->  Rel  G )
31, 2anim12i 551 . . . 4  |-  ( ( Fun  F  /\  Fun  G )  ->  ( Rel  F  /\  Rel  G ) )
4 relun 4801 . . . 4  |-  ( Rel  ( F  u.  G
)  <->  ( Rel  F  /\  Rel  G ) )
53, 4sylibr 205 . . 3  |-  ( ( Fun  F  /\  Fun  G )  ->  Rel  ( F  u.  G ) )
65adantr 453 . 2  |-  ( ( ( Fun  F  /\  Fun  G )  /\  ( dom  F  i^i  dom  G
)  =  (/) )  ->  Rel  ( F  u.  G
) )
7 elun 3317 . . . . . . . 8  |-  ( <.
x ,  y >.  e.  ( F  u.  G
)  <->  ( <. x ,  y >.  e.  F  \/  <. x ,  y
>.  e.  G ) )
8 elun 3317 . . . . . . . 8  |-  ( <.
x ,  z >.  e.  ( F  u.  G
)  <->  ( <. x ,  z >.  e.  F  \/  <. x ,  z
>.  e.  G ) )
97, 8anbi12i 681 . . . . . . 7  |-  ( (
<. x ,  y >.  e.  ( F  u.  G
)  /\  <. x ,  z >.  e.  ( F  u.  G )
)  <->  ( ( <.
x ,  y >.  e.  F  \/  <. x ,  y >.  e.  G
)  /\  ( <. x ,  z >.  e.  F  \/  <. x ,  z
>.  e.  G ) ) )
10 anddi 845 . . . . . . 7  |-  ( ( ( <. x ,  y
>.  e.  F  \/  <. x ,  y >.  e.  G
)  /\  ( <. x ,  z >.  e.  F  \/  <. x ,  z
>.  e.  G ) )  <-> 
( ( ( <.
x ,  y >.  e.  F  /\  <. x ,  z >.  e.  F
)  \/  ( <.
x ,  y >.  e.  F  /\  <. x ,  z >.  e.  G
) )  \/  (
( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  F
)  \/  ( <.
x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
) ) ) )
119, 10bitri 242 . . . . . 6  |-  ( (
<. x ,  y >.  e.  ( F  u.  G
)  /\  <. x ,  z >.  e.  ( F  u.  G )
)  <->  ( ( (
<. x ,  y >.  e.  F  /\  <. x ,  z >.  e.  F
)  \/  ( <.
x ,  y >.  e.  F  /\  <. x ,  z >.  e.  G
) )  \/  (
( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  F
)  \/  ( <.
x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
) ) ) )
12 disj1 3498 . . . . . . . . . . . . 13  |-  ( ( dom  F  i^i  dom  G )  =  (/)  <->  A. x
( x  e.  dom  F  ->  -.  x  e.  dom  G ) )
1312biimpi 188 . . . . . . . . . . . 12  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  A. x
( x  e.  dom  F  ->  -.  x  e.  dom  G ) )
141319.21bi 1798 . . . . . . . . . . 11  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  (
x  e.  dom  F  ->  -.  x  e.  dom  G ) )
15 imnan 413 . . . . . . . . . . 11  |-  ( ( x  e.  dom  F  ->  -.  x  e.  dom  G )  <->  -.  ( x  e.  dom  F  /\  x  e.  dom  G ) )
1614, 15sylib 190 . . . . . . . . . 10  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  -.  ( x  e.  dom  F  /\  x  e.  dom  G ) )
17 vex 2792 . . . . . . . . . . . 12  |-  x  e. 
_V
18 vex 2792 . . . . . . . . . . . 12  |-  y  e. 
_V
1917, 18opeldm 4881 . . . . . . . . . . 11  |-  ( <.
x ,  y >.  e.  F  ->  x  e. 
dom  F )
20 vex 2792 . . . . . . . . . . . 12  |-  z  e. 
_V
2117, 20opeldm 4881 . . . . . . . . . . 11  |-  ( <.
x ,  z >.  e.  G  ->  x  e. 
dom  G )
2219, 21anim12i 551 . . . . . . . . . 10  |-  ( (
<. x ,  y >.  e.  F  /\  <. x ,  z >.  e.  G
)  ->  ( x  e.  dom  F  /\  x  e.  dom  G ) )
2316, 22nsyl 115 . . . . . . . . 9  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  -.  ( <. x ,  y
>.  e.  F  /\  <. x ,  z >.  e.  G
) )
24 orel2 374 . . . . . . . . 9  |-  ( -.  ( <. x ,  y
>.  e.  F  /\  <. x ,  z >.  e.  G
)  ->  ( (
( <. x ,  y
>.  e.  F  /\  <. x ,  z >.  e.  F
)  \/  ( <.
x ,  y >.  e.  F  /\  <. x ,  z >.  e.  G
) )  ->  ( <. x ,  y >.  e.  F  /\  <. x ,  z >.  e.  F
) ) )
2523, 24syl 17 . . . . . . . 8  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  (
( ( <. x ,  y >.  e.  F  /\  <. x ,  z
>.  e.  F )  \/  ( <. x ,  y
>.  e.  F  /\  <. x ,  z >.  e.  G
) )  ->  ( <. x ,  y >.  e.  F  /\  <. x ,  z >.  e.  F
) ) )
2614con2d 109 . . . . . . . . . . 11  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  (
x  e.  dom  G  ->  -.  x  e.  dom  F ) )
27 imnan 413 . . . . . . . . . . 11  |-  ( ( x  e.  dom  G  ->  -.  x  e.  dom  F )  <->  -.  ( x  e.  dom  G  /\  x  e.  dom  F ) )
2826, 27sylib 190 . . . . . . . . . 10  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  -.  ( x  e.  dom  G  /\  x  e.  dom  F ) )
2917, 18opeldm 4881 . . . . . . . . . . 11  |-  ( <.
x ,  y >.  e.  G  ->  x  e. 
dom  G )
3017, 20opeldm 4881 . . . . . . . . . . 11  |-  ( <.
x ,  z >.  e.  F  ->  x  e. 
dom  F )
3129, 30anim12i 551 . . . . . . . . . 10  |-  ( (
<. x ,  y >.  e.  G  /\  <. x ,  z >.  e.  F
)  ->  ( x  e.  dom  G  /\  x  e.  dom  F ) )
3228, 31nsyl 115 . . . . . . . . 9  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  -.  ( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  F
) )
33 orel1 373 . . . . . . . . 9  |-  ( -.  ( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  F
)  ->  ( (
( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  F
)  \/  ( <.
x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
) )  ->  ( <. x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
) ) )
3432, 33syl 17 . . . . . . . 8  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  (
( ( <. x ,  y >.  e.  G  /\  <. x ,  z
>.  e.  F )  \/  ( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  G
) )  ->  ( <. x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
) ) )
3525, 34orim12d 814 . . . . . . 7  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  (
( ( ( <.
x ,  y >.  e.  F  /\  <. x ,  z >.  e.  F
)  \/  ( <.
x ,  y >.  e.  F  /\  <. x ,  z >.  e.  G
) )  \/  (
( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  F
)  \/  ( <.
x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
) ) )  -> 
( ( <. x ,  y >.  e.  F  /\  <. x ,  z
>.  e.  F )  \/  ( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  G
) ) ) )
3635adantl 454 . . . . . 6  |-  ( ( ( Fun  F  /\  Fun  G )  /\  ( dom  F  i^i  dom  G
)  =  (/) )  -> 
( ( ( (
<. x ,  y >.  e.  F  /\  <. x ,  z >.  e.  F
)  \/  ( <.
x ,  y >.  e.  F  /\  <. x ,  z >.  e.  G
) )  \/  (
( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  F
)  \/  ( <.
x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
) ) )  -> 
( ( <. x ,  y >.  e.  F  /\  <. x ,  z
>.  e.  F )  \/  ( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  G
) ) ) )
3711, 36syl5bi 210 . . . . 5  |-  ( ( ( Fun  F  /\  Fun  G )  /\  ( dom  F  i^i  dom  G
)  =  (/) )  -> 
( ( <. x ,  y >.  e.  ( F  u.  G )  /\  <. x ,  z
>.  e.  ( F  u.  G ) )  -> 
( ( <. x ,  y >.  e.  F  /\  <. x ,  z
>.  e.  F )  \/  ( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  G
) ) ) )
38 dffun4 5233 . . . . . . . . . 10  |-  ( Fun 
F  <->  ( Rel  F  /\  A. x A. y A. z ( ( <.
x ,  y >.  e.  F  /\  <. x ,  z >.  e.  F
)  ->  y  =  z ) ) )
3938simprbi 452 . . . . . . . . 9  |-  ( Fun 
F  ->  A. x A. y A. z ( ( <. x ,  y
>.  e.  F  /\  <. x ,  z >.  e.  F
)  ->  y  =  z ) )
403919.21bi 1798 . . . . . . . 8  |-  ( Fun 
F  ->  A. y A. z ( ( <.
x ,  y >.  e.  F  /\  <. x ,  z >.  e.  F
)  ->  y  =  z ) )
414019.21bbi 1799 . . . . . . 7  |-  ( Fun 
F  ->  ( ( <. x ,  y >.  e.  F  /\  <. x ,  z >.  e.  F
)  ->  y  =  z ) )
42 dffun4 5233 . . . . . . . . . 10  |-  ( Fun 
G  <->  ( Rel  G  /\  A. x A. y A. z ( ( <.
x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
)  ->  y  =  z ) ) )
4342simprbi 452 . . . . . . . . 9  |-  ( Fun 
G  ->  A. x A. y A. z ( ( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  G
)  ->  y  =  z ) )
444319.21bi 1798 . . . . . . . 8  |-  ( Fun 
G  ->  A. y A. z ( ( <.
x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
)  ->  y  =  z ) )
454419.21bbi 1799 . . . . . . 7  |-  ( Fun 
G  ->  ( ( <. x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
)  ->  y  =  z ) )
4641, 45jaao 497 . . . . . 6  |-  ( ( Fun  F  /\  Fun  G )  ->  ( (
( <. x ,  y
>.  e.  F  /\  <. x ,  z >.  e.  F
)  \/  ( <.
x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
) )  ->  y  =  z ) )
4746adantr 453 . . . . 5  |-  ( ( ( Fun  F  /\  Fun  G )  /\  ( dom  F  i^i  dom  G
)  =  (/) )  -> 
( ( ( <.
x ,  y >.  e.  F  /\  <. x ,  z >.  e.  F
)  \/  ( <.
x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
) )  ->  y  =  z ) )
4837, 47syld 42 . . . 4  |-  ( ( ( Fun  F  /\  Fun  G )  /\  ( dom  F  i^i  dom  G
)  =  (/) )  -> 
( ( <. x ,  y >.  e.  ( F  u.  G )  /\  <. x ,  z
>.  e.  ( F  u.  G ) )  -> 
y  =  z ) )
4948alrimiv 1622 . . 3  |-  ( ( ( Fun  F  /\  Fun  G )  /\  ( dom  F  i^i  dom  G
)  =  (/) )  ->  A. z ( ( <.
x ,  y >.  e.  ( F  u.  G
)  /\  <. x ,  z >.  e.  ( F  u.  G )
)  ->  y  =  z ) )
5049alrimivv 1623 . 2  |-  ( ( ( Fun  F  /\  Fun  G )  /\  ( dom  F  i^i  dom  G
)  =  (/) )  ->  A. x A. y A. z ( ( <.
x ,  y >.  e.  ( F  u.  G
)  /\  <. x ,  z >.  e.  ( F  u.  G )
)  ->  y  =  z ) )
51 dffun4 5233 . 2  |-  ( Fun  ( F  u.  G
)  <->  ( Rel  ( F  u.  G )  /\  A. x A. y A. z ( ( <.
x ,  y >.  e.  ( F  u.  G
)  /\  <. x ,  z >.  e.  ( F  u.  G )
)  ->  y  =  z ) ) )
526, 50, 51sylanbrc 648 1  |-  ( ( ( Fun  F  /\  Fun  G )  /\  ( dom  F  i^i  dom  G
)  =  (/) )  ->  Fun  ( F  u.  G
) )
Colors of variables: wff set class
Syntax hints:   -. wn 5    -> wi 6    \/ wo 359    /\ wa 360   A.wal 1532    = wceq 1628    e. wcel 1688    u. cun 3151    i^i cin 3152   (/)c0 3456   <.cop 3644   dom cdm 4688   Rel wrel 4693   Fun wfun 5215
This theorem is referenced by:  funprg  5266  funtp  5268  fnun  5315  fvun  5550  tfrlem10  6398  sbthlem7  6972  sbthlem8  6973  fodomr  7007  axdc3lem4  8074  strlemor1  13229  strleun  13232  wfrlem13  23669  repfuntw  24559  bnj1421  28339
This theorem was proved from axioms:  ax-1 7  ax-2 8  ax-3 9  ax-mp 10  ax-gen 1538  ax-5 1549  ax-17 1608  ax-9 1641  ax-8 1648  ax-14 1692  ax-6 1707  ax-7 1712  ax-11 1719  ax-12 1869  ax-ext 2265  ax-sep 4142  ax-nul 4150  ax-pr 4213
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3an 941  df-tru 1315  df-ex 1534  df-nf 1537  df-sb 1636  df-eu 2148  df-mo 2149  df-clab 2271  df-cleq 2277  df-clel 2280  df-nfc 2409  df-ne 2449  df-ral 2549  df-rab 2553  df-v 2791  df-dif 3156  df-un 3158  df-in 3160  df-ss 3167  df-nul 3457  df-if 3567  df-sn 3647  df-pr 3648  df-op 3650  df-br 4025  df-opab 4079  df-id 4308  df-rel 4695  df-cnv 4696  df-co 4697  df-dm 4698  df-fun 5223
  Copyright terms: Public domain W3C validator