ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  funun Unicode version

Theorem funun 5071
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
Dummy variables  x  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 funrel 5045 . . . . 5  |-  ( Fun 
F  ->  Rel  F )
2 funrel 5045 . . . . 5  |-  ( Fun 
G  ->  Rel  G )
31, 2anim12i 332 . . . 4  |-  ( ( Fun  F  /\  Fun  G )  ->  ( Rel  F  /\  Rel  G ) )
4 relun 4567 . . . 4  |-  ( Rel  ( F  u.  G
)  <->  ( Rel  F  /\  Rel  G ) )
53, 4sylibr 133 . . 3  |-  ( ( Fun  F  /\  Fun  G )  ->  Rel  ( F  u.  G ) )
65adantr 271 . 2  |-  ( ( ( Fun  F  /\  Fun  G )  /\  ( dom  F  i^i  dom  G
)  =  (/) )  ->  Rel  ( F  u.  G
) )
7 elun 3142 . . . . . . . 8  |-  ( <.
x ,  y >.  e.  ( F  u.  G
)  <->  ( <. x ,  y >.  e.  F  \/  <. x ,  y
>.  e.  G ) )
8 elun 3142 . . . . . . . 8  |-  ( <.
x ,  z >.  e.  ( F  u.  G
)  <->  ( <. x ,  z >.  e.  F  \/  <. x ,  z
>.  e.  G ) )
97, 8anbi12i 449 . . . . . . 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 771 . . . . . . 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 183 . . . . . 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 3337 . . . . . . . . . . . . 13  |-  ( ( dom  F  i^i  dom  G )  =  (/)  <->  A. x
( x  e.  dom  F  ->  -.  x  e.  dom  G ) )
1312biimpi 119 . . . . . . . . . . . 12  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  A. x
( x  e.  dom  F  ->  -.  x  e.  dom  G ) )
141319.21bi 1496 . . . . . . . . . . 11  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  (
x  e.  dom  F  ->  -.  x  e.  dom  G ) )
15 imnan 660 . . . . . . . . . . 11  |-  ( ( x  e.  dom  F  ->  -.  x  e.  dom  G )  <->  -.  ( x  e.  dom  F  /\  x  e.  dom  G ) )
1614, 15sylib 121 . . . . . . . . . 10  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  -.  ( x  e.  dom  F  /\  x  e.  dom  G ) )
17 vex 2623 . . . . . . . . . . . 12  |-  x  e. 
_V
18 vex 2623 . . . . . . . . . . . 12  |-  y  e. 
_V
1917, 18opeldm 4652 . . . . . . . . . . 11  |-  ( <.
x ,  y >.  e.  F  ->  x  e. 
dom  F )
20 vex 2623 . . . . . . . . . . . 12  |-  z  e. 
_V
2117, 20opeldm 4652 . . . . . . . . . . 11  |-  ( <.
x ,  z >.  e.  G  ->  x  e. 
dom  G )
2219, 21anim12i 332 . . . . . . . . . 10  |-  ( (
<. x ,  y >.  e.  F  /\  <. x ,  z >.  e.  G
)  ->  ( x  e.  dom  F  /\  x  e.  dom  G ) )
2316, 22nsyl 594 . . . . . . . . 9  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  -.  ( <. x ,  y
>.  e.  F  /\  <. x ,  z >.  e.  G
) )
24 orel2 681 . . . . . . . . 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 14 . . . . . . . 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 590 . . . . . . . . . . 11  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  (
x  e.  dom  G  ->  -.  x  e.  dom  F ) )
27 imnan 660 . . . . . . . . . . 11  |-  ( ( x  e.  dom  G  ->  -.  x  e.  dom  F )  <->  -.  ( x  e.  dom  G  /\  x  e.  dom  F ) )
2826, 27sylib 121 . . . . . . . . . 10  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  -.  ( x  e.  dom  G  /\  x  e.  dom  F ) )
2917, 18opeldm 4652 . . . . . . . . . . 11  |-  ( <.
x ,  y >.  e.  G  ->  x  e. 
dom  G )
3017, 20opeldm 4652 . . . . . . . . . . 11  |-  ( <.
x ,  z >.  e.  F  ->  x  e. 
dom  F )
3129, 30anim12i 332 . . . . . . . . . 10  |-  ( (
<. x ,  y >.  e.  G  /\  <. x ,  z >.  e.  F
)  ->  ( x  e.  dom  G  /\  x  e.  dom  F ) )
3228, 31nsyl 594 . . . . . . . . 9  |-  ( ( dom  F  i^i  dom  G )  =  (/)  ->  -.  ( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  F
) )
33 orel1 680 . . . . . . . . 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 14 . . . . . . . 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 736 . . . . . . 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 272 . . . . . 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 151 . . . . 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 5039 . . . . . . . . . 10  |-  ( Fun 
F  <->  ( Rel  F  /\  A. x A. y A. z ( ( <.
x ,  y >.  e.  F  /\  <. x ,  z >.  e.  F
)  ->  y  =  z ) ) )
3938simprbi 270 . . . . . . . . 9  |-  ( Fun 
F  ->  A. x A. y A. z ( ( <. x ,  y
>.  e.  F  /\  <. x ,  z >.  e.  F
)  ->  y  =  z ) )
403919.21bi 1496 . . . . . . . 8  |-  ( Fun 
F  ->  A. y A. z ( ( <.
x ,  y >.  e.  F  /\  <. x ,  z >.  e.  F
)  ->  y  =  z ) )
414019.21bbi 1497 . . . . . . 7  |-  ( Fun 
F  ->  ( ( <. x ,  y >.  e.  F  /\  <. x ,  z >.  e.  F
)  ->  y  =  z ) )
42 dffun4 5039 . . . . . . . . . 10  |-  ( Fun 
G  <->  ( Rel  G  /\  A. x A. y A. z ( ( <.
x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
)  ->  y  =  z ) ) )
4342simprbi 270 . . . . . . . . 9  |-  ( Fun 
G  ->  A. x A. y A. z ( ( <. x ,  y
>.  e.  G  /\  <. x ,  z >.  e.  G
)  ->  y  =  z ) )
444319.21bi 1496 . . . . . . . 8  |-  ( Fun 
G  ->  A. y A. z ( ( <.
x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
)  ->  y  =  z ) )
454419.21bbi 1497 . . . . . . 7  |-  ( Fun 
G  ->  ( ( <. x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
)  ->  y  =  z ) )
4641, 45jaao 675 . . . . . 6  |-  ( ( Fun  F  /\  Fun  G )  ->  ( (
( <. x ,  y
>.  e.  F  /\  <. x ,  z >.  e.  F
)  \/  ( <.
x ,  y >.  e.  G  /\  <. x ,  z >.  e.  G
) )  ->  y  =  z ) )
4746adantr 271 . . . . 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 45 . . . 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 1803 . . 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 1804 . 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 5039 . 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 409 1  |-  ( ( ( Fun  F  /\  Fun  G )  /\  ( dom  F  i^i  dom  G
)  =  (/) )  ->  Fun  ( F  u.  G
) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 103    \/ wo 665   A.wal 1288    = wceq 1290    e. wcel 1439    u. cun 2998    i^i cin 2999   (/)c0 3287   <.cop 3453   dom cdm 4452   Rel wrel 4457   Fun wfun 5022
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 580  ax-in2 581  ax-io 666  ax-5 1382  ax-7 1383  ax-gen 1384  ax-ie1 1428  ax-ie2 1429  ax-8 1441  ax-10 1442  ax-11 1443  ax-i12 1444  ax-bndl 1445  ax-4 1446  ax-14 1451  ax-17 1465  ax-i9 1469  ax-ial 1473  ax-i5r 1474  ax-ext 2071  ax-sep 3963  ax-pow 4015  ax-pr 4045
This theorem depends on definitions:  df-bi 116  df-3an 927  df-tru 1293  df-nf 1396  df-sb 1694  df-eu 1952  df-mo 1953  df-clab 2076  df-cleq 2082  df-clel 2085  df-nfc 2218  df-ral 2365  df-v 2622  df-dif 3002  df-un 3004  df-in 3006  df-ss 3013  df-nul 3288  df-pw 3435  df-sn 3456  df-pr 3457  df-op 3459  df-br 3852  df-opab 3906  df-id 4129  df-rel 4459  df-cnv 4460  df-co 4461  df-dm 4462  df-fun 5030
This theorem is referenced by:  funprg  5077  funtpg  5078  funtp  5080  fnun  5133  fvun1  5383  sbthlem7  6726  sbthlemi8  6727  casefun  6830  caseinj  6834  djufun  6840  djuinj  6842  exmidfodomrlemim  6888  setsfun  11590  setsfun0  11591  strleund  11643  strleun  11644
  Copyright terms: Public domain W3C validator