Table of ContentsTable of Contents Mathbox for Frédéric Liné < Previous   Next >
Related theorems
Unicode version

Theorem prj1 14395
Description: Projection of the first elements of the pairs of a class A.
Assertion
Ref Expression
prj1 |- (Rel R -> ((1st |` (_V X. _V))"R) = {x | E.y<.x, y>. e. R})
Distinct variable group:   y,R,x

Proof of Theorem prj1
StepHypRef Expression
1 df-rel 4001 . . . . . . . . . 10 |- (Rel R <-> R C_ (_V X. _V))
2 ssel 2615 . . . . . . . . . . 11 |- (R C_ (_V X. _V) -> (u e. R -> u e. (_V X. _V)))
3 elxp6 5041 . . . . . . . . . . . . 13 |- (u e. (_V X. _V) <-> (u = <.(1st`
u), (2nd` u)>. /\ ((1st` u) e. _V /\ (2nd` u) e. _V)))
4 eleq1 1957 . . . . . . . . . . . . . . . . 17 |- (u = <.(1st` u), (2nd` u)>. -> (u e. R <-> <.(1st` u), (2nd` u)>. e. R))
5 fo1st 5032 . . . . . . . . . . . . . . . . . . . . . 22 |- 1st:_V-onto->_V
6 fofun 4618 . . . . . . . . . . . . . . . . . . . . . 22 |- (1st:_V-onto->_V -> Fun 1st)
75, 6ax-mp 7 . . . . . . . . . . . . . . . . . . . . 21 |- Fun 1st
8 funres 4459 . . . . . . . . . . . . . . . . . . . . 21 |- (Fun 1st -> Fun (1st |` (_V X. _V)))
97, 8ax-mp 7 . . . . . . . . . . . . . . . . . . . 20 |- Fun (1st |` (_V X. _V))
10 visset 2295 . . . . . . . . . . . . . . . . . . . . 21 |- z e. _V
1110funbrfv 4709 . . . . . . . . . . . . . . . . . . . 20 |- (Fun (1st |` (_V X. _V)) -> (u(1st |` (_V X. _V))z -> ((1st |` (_V X. _V))` u) = z))
129, 11ax-mp 7 . . . . . . . . . . . . . . . . . . 19 |- (u(1st |` (_V X. _V))z -> ((1st |` (_V X. _V))` u) = z)
13 fvres 4691 . . . . . . . . . . . . . . . . . . . . 21 |- (u e. (_V X. _V) -> ((1st |` (_V X. _V))` u) = (1st` u))
14 eqtr2 1905 . . . . . . . . . . . . . . . . . . . . . . 23 |- ((((1st |` (_V X. _V))` u) = (1st` u) /\ ((1st |` (_V X. _V))` u) = z) -> (1st`
u) = z)
1514ex 402 . . . . . . . . . . . . . . . . . . . . . 22 |- (((1st |` (_V X. _V))` u) = (1st` u) -> (((1st |` (_V X. _V))` u) = z -> (1st` u) = z))
16 opeq1 3158 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- ((1st` u) = z -> <.(1st` u), (2nd` u)>. = <.z, (2nd`
u)>.)
1716eleq1d 1963 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ((1st` u) = z -> (<.(1st`
u), (2nd` u)>. e. R <-> <.z, (2nd` u)>. e. R))
1817biimpd 170 . . . . . . . . . . . . . . . . . . . . . . 23 |- ((1st` u) = z -> (<.(1st`
u), (2nd` u)>. e. R -> <.z, (2nd`
u)>. e. R))
1918a1d 15 . . . . . . . . . . . . . . . . . . . . . 22 |- ((1st` u) = z -> (((1st`
u) e. _V /\ (2nd`
u) e. _V) -> (<.(1st` u), (2nd` u)>. e. R -> <.z, (2nd` u)>. e. R)))
2015, 19syl6 25 . . . . . . . . . . . . . . . . . . . . 21 |- (((1st |` (_V X. _V))` u) = (1st` u) -> (((1st |` (_V X. _V))` u) = z -> (((1st` u) e. _V /\ (2nd` u) e. _V) -> (<.(1st` u), (2nd` u)>. e. R -> <.z, (2nd` u)>. e. R))))
2113, 20syl 12 . . . . . . . . . . . . . . . . . . . 20 |- (u e. (_V X. _V) -> (((1st |` (_V X. _V))` u) = z -> (((1st` u) e. _V /\ (2nd` u) e. _V) -> (<.(1st` u), (2nd` u)>. e. R -> <.z, (2nd` u)>. e. R))))
2221com4l 43 . . . . . . . . . . . . . . . . . . 19 |- (((1st |` (_V X. _V))` u) = z -> (((1st` u) e. _V /\ (2nd` u) e. _V) -> (<.(1st` u), (2nd` u)>. e. R -> (u e. (_V X. _V) -> <.z, (2nd` u)>. e. R))))
2312, 22syl 12 . . . . . . . . . . . . . . . . . 18 |- (u(1st |` (_V X. _V))z -> (((1st` u) e. _V /\ (2nd` u) e. _V) -> (<.(1st` u), (2nd` u)>. e. R -> (u e. (_V X. _V) -> <.z, (2nd` u)>. e. R))))
2423com13 37 . . . . . . . . . . . . . . . . 17 |- (<.(1st` u), (2nd` u)>. e. R -> (((1st` u) e. _V /\ (2nd` u) e. _V) -> (u(1st |` (_V X. _V))z -> (u e. (_V X. _V) -> <.z, (2nd` u)>. e. R))))
254, 24syl6bi 231 . . . . . . . . . . . . . . . 16 |- (u = <.(1st` u), (2nd` u)>. -> (u e. R -> (((1st` u) e. _V /\ (2nd` u) e. _V) -> (u(1st |` (_V X. _V))z -> (u e. (_V X. _V) -> <.z, (2nd` u)>. e. R)))))
2625com23 36 . . . . . . . . . . . . . . 15 |- (u = <.(1st` u), (2nd` u)>. -> (((1st` u) e. _V /\ (2nd` u) e. _V) -> (u e. R -> (u(1st |` (_V X. _V))z -> (u e. (_V X. _V) -> <.z, (2nd` u)>. e. R)))))
2726imp 377 . . . . . . . . . . . . . 14 |- ((u = <.(1st` u), (2nd` u)>. /\ ((1st` u) e. _V /\ (2nd` u) e. _V)) -> (u e. R -> (u(1st |` (_V X. _V))z -> (u e. (_V X. _V) -> <.z, (2nd` u)>. e. R))))
2827com24 41 . . . . . . . . . . . . 13 |- ((u = <.(1st` u), (2nd` u)>. /\ ((1st` u) e. _V /\ (2nd` u) e. _V)) -> (u e. (_V X. _V) -> (u(1st |` (_V X. _V))z -> (u e. R -> <.z, (2nd`
u)>. e. R))))
293, 28sylbi 216 . . . . . . . . . . . 12 |- (u e. (_V X. _V) -> (u e. (_V X. _V) -> (u(1st |` (_V X. _V))z -> (u e. R -> <.z, (2nd`
u)>. e. R))))
3029pm2.43i 78 . . . . . . . . . . 11 |- (u e. (_V X. _V) -> (u(1st |` (_V X. _V))z -> (u e. R -> <.z, (2nd`
u)>. e. R)))
312, 30syl6 25 . . . . . . . . . 10 |- (R C_ (_V X. _V) -> (u e. R -> (u(1st |` (_V X. _V))z -> (u e. R -> <.z, (2nd` u)>. e. R))))
321, 31sylbi 216 . . . . . . . . 9 |- (Rel R -> (u e. R -> (u(1st |` (_V X. _V))z -> (u e. R -> <.z, (2nd` u)>. e. R))))
3332com14 42 . . . . . . . 8 |- (u e. R -> (u e. R -> (u(1st |` (_V X. _V))z -> (Rel R -> <.z, (2nd` u)>. e. R))))
3433pm2.43i 78 . . . . . . 7 |- (u e. R -> (u(1st |` (_V X. _V))z -> (Rel R -> <.z, (2nd` u)>. e. R)))
35 fvex 4689 . . . . . . . 8 |- (2nd` u) e. _V
36 opeq2 3159 . . . . . . . . 9 |- (y = (2nd`
u) -> <.z, y>. = <.z, (2nd` u)>.)
3736eleq1d 1963 . . . . . . . 8 |- (y = (2nd`
u) -> (<.z, y>. e. R <-> <.z, (2nd` u)>. e. R))
3835, 37cla4ev 2371 . . . . . . 7 |- (<.z, (2nd`
u)>. e. R -> E.y<.z, y>. e. R)
3934, 38syl8 27 . . . . . 6 |- (u e. R -> (u(1st |` (_V X. _V))z -> (Rel R -> E.y<.z, y>. e. R)))
4039r19.23aiv 2211 . . . . 5 |- (E.u e. R u(1st |` (_V X. _V))z -> (Rel R -> E.y<.z, y>. e. R))
4140com12 14 . . . 4 |- (Rel R -> (E.u e. R u(1st |` (_V X. _V))z -> E.y<.z, y>. e. R))
42 df-opr 4886 . . . . . . . . 9 |- (z(1st |` (_V X. _V))y) = ((1st |` (_V X. _V))` <.z, y>.)
43 visset 2295 . . . . . . . . . . . 12 |- y e. _V
4443opelxp 4036 . . . . . . . . . . 11 |- (<.z, y>. e. (_V X. _V) <-> (z e. _V /\ y e. _V))
4544, 10, 43mpbir2an 800 . . . . . . . . . 10 |- <.z, y>. e. (_V X. _V)
46 fvres 4691 . . . . . . . . . 10 |- (<.z, y>. e. (_V X. _V) -> ((1st |` (_V X. _V))` <.z, y>.) = (1st` <.z, y>.))
4745, 46ax-mp 7 . . . . . . . . 9 |- ((1st |` (_V X. _V))` <.z, y>.) = (1st` <.z, y>.)
4810op1st 5026 . . . . . . . . 9 |- (1st` <.z, y>.) = z
4942, 47, 483eqtri 1912 . . . . . . . 8 |- (z(1st |` (_V X. _V))y) = z
50 ssv 2636 . . . . . . . . . 10 |- (_V X. _V) C_ _V
51 fofn 4619 . . . . . . . . . . . 12 |- (1st:_V-onto->_V -> 1st Fn _V)
525, 51ax-mp 7 . . . . . . . . . . 11 |- 1st Fn _V
53 fnssresb 4525 . . . . . . . . . . 11 |- (1st Fn _V -> ((1st |` (_V X. _V)) Fn (_V X. _V) <-> (_V X. _V) C_ _V))
5452, 53ax-mp 7 . . . . . . . . . 10 |- ((1st |` (_V X. _V)) Fn (_V X. _V) <-> (_V X. _V) C_ _V)
5550, 54mpbir 207 . . . . . . . . 9 |- (1st |` (_V X. _V)) Fn (_V X. _V)
5610fnotoprb 4916 . . . . . . . . 9 |- (((1st |` (_V X. _V)) Fn (_V X. _V) /\ z e. _V /\ y e. _V) -> ((z(1st |` (_V X. _V))y) = z <-> <.<.z, y>., z>. e. (1st |` (_V X. _V))))
5755, 10, 43, 56mp3an 1191 . . . . . . . 8 |- ((z(1st |` (_V X. _V))y) = z <-> <.<.z, y>., z>. e. (1st |` (_V X. _V)))
5849, 57mpbi 206 . . . . . . 7 |- <.<.z, y>., z>. e. (1st |` (_V X. _V))
59 df-br 3339 . . . . . . 7 |- (<.z, y>.(1st |` (_V X. _V))z <-> <.<.z, y>., z>. e. (1st |` (_V X. _V)))
6058, 59mpbir 207 . . . . . 6 |- <.z, y>.(1st |` (_V X. _V))z
61 breq1 3341 . . . . . . 7 |- (u = <.z, y>. -> (u(1st |` (_V X. _V))z <-> <.z, y>.(1st |` (_V X. _V))z))
6261rcla4ev 2381 . . . . . 6 |- ((<.z, y>. e. R /\ <.z, y>.(1st |` (_V X. _V))z) -> E.u e. R u(1st |` (_V X. _V))z)
6360, 62mpan2 760 . . . . 5 |- (<.z, y>. e. R -> E.u e. R u(1st |` (_V X. _V))z)
646319.23aiv 1674 . . . 4 |- (E.y<.z, y>. e. R -> E.u e. R u(1st |` (_V X. _V))z)
6541, 64impbid1 575 . . 3 |- (Rel R -> (E.u e. R u(1st |` (_V X. _V))z <-> E.y<.z, y>. e. R))
6610elima 4270 . . 3 |- (z e. ((1st |` (_V X. _V))"R) <-> E.u e. R u(1st |` (_V X. _V))z)
67 opeq1 3158 . . . . . 6 |- (x = z -> <.x, y>. = <.z, y>.)
6867eleq1d 1963 . . . . 5 |- (x = z -> (<.x, y>. e. R <-> <.z, y>. e. R))
6968exbidv 1657 . . . 4 |- (x = z -> (E.y<.x, y>. e. R <-> E.y<.z, y>. e. R))
7010, 69elab 2403 . . 3 |- (z e. {x | E.y<.x, y>. e. R} <-> E.y<.z, y>. e. R)
7165, 66, 703bitr4g 614 . 2 |- (Rel R -> (z e. ((1st |` (_V X. _V))"R) <-> z e. {x | E.y<.x, y>. e. R}))
7271eqrdv 1882 1 |- (Rel R -> ((1st |` (_V X. _V))"R) = {x | E.y<.x, y>. e. R})
Colors of variables: wff set class
Syntax hints:   -> wi 3   <-> wb 163   /\ wa 240   = wceq 1298   e. wcel 1300  E.wex 1326  {cab 1871  E.wrex 2106  _Vcvv 2292   C_ wss 2593  <.cop 3046   class class class wbr 3338   X. cxp 3984   |` cres 3988  "cima 3989  Rel wrel 3991  Fun wfun 3992   Fn wfn 3993  -onto->wfo 3996  ` cfv 3998  (class class class)co 4884  1stc1st 5018  2ndc2nd 5019
This theorem is referenced by:  prj1b 14397
This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 1304  ax-gen 1305  ax-8 1306  ax-9 1307  ax-10 1308  ax-11 1309  ax-12 1310  ax-13 1311  ax-14 1312  ax-17 1317  ax-4 1319  ax-5o 1321  ax-6o 1324  ax-9o 1481  ax-10o 1500  ax-16 1580  ax-11o 1588  ax-ext 1865  ax-sep 3438  ax-nul 3445  ax-pow 3481  ax-pr 3524  ax-un 3790
This theorem depends on definitions:  df-bi 164  df-or 241  df-an 242  df-3an 860  df-ex 1327  df-sb 1536  df-eu 1775  df-mo 1776  df-clab 1872  df-cleq 1877  df-clel 1880  df-ne 2019  df-ral 2109  df-rex 2110  df-v 2294  df-dif 2597  df-un 2600  df-in 2603  df-ss 2605  df-nul 2876  df-pw 3035  df-sn 3049  df-pr 3050  df-op 3053  df-uni 3178  df-br 3339  df-opab 3396  df-id 3586  df-xp 4000  df-rel 4001  df-cnv 4002  df-co 4003  df-dm 4004  df-rn 4005  df-res 4006  df-ima 4007  df-fun 4008  df-fn 4009  df-f 4010  df-fo 4012  df-fv 4014  df-opr 4886  df-1st 5020  df-2nd 5021
Copyright terms: Public domain