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

Theorem riotass2 5616
Description: Restriction of a unique element to a smaller class. (Contributed by NM, 21-Aug-2011.) (Revised by NM, 22-Mar-2013.)
Assertion
Ref Expression
riotass2  |-  ( ( ( A  C_  B  /\  A. x  e.  A  ( ph  ->  ps )
)  /\  ( E. x  e.  A  ph  /\  E! x  e.  B  ps ) )  ->  ( iota_ x  e.  A  ph )  =  ( iota_ x  e.  B  ps )
)
Distinct variable groups:    x, A    x, B
Allowed substitution hints:    ph( x)    ps( x)

Proof of Theorem riotass2
StepHypRef Expression
1 reuss2 3277 . . . 4  |-  ( ( ( A  C_  B  /\  A. x  e.  A  ( ph  ->  ps )
)  /\  ( E. x  e.  A  ph  /\  E! x  e.  B  ps ) )  ->  E! x  e.  A  ph )
2 simplr 497 . . . 4  |-  ( ( ( A  C_  B  /\  A. x  e.  A  ( ph  ->  ps )
)  /\  ( E. x  e.  A  ph  /\  E! x  e.  B  ps ) )  ->  A. x  e.  A  ( ph  ->  ps ) )
3 riotasbc 5605 . . . . 5  |-  ( E! x  e.  A  ph  ->  [. ( iota_ x  e.  A  ph )  /  x ]. ph )
4 riotacl 5604 . . . . . 6  |-  ( E! x  e.  A  ph  ->  ( iota_ x  e.  A  ph )  e.  A )
5 rspsbc 2919 . . . . . . 7  |-  ( (
iota_ x  e.  A  ph )  e.  A  -> 
( A. x  e.  A  ( ph  ->  ps )  ->  [. ( iota_ x  e.  A  ph )  /  x ]. ( ph  ->  ps ) ) )
6 sbcimg 2878 . . . . . . 7  |-  ( (
iota_ x  e.  A  ph )  e.  A  -> 
( [. ( iota_ x  e.  A  ph )  /  x ]. ( ph  ->  ps )  <->  ( [. ( iota_ x  e.  A  ph )  /  x ]. ph  ->  [. ( iota_ x  e.  A  ph )  /  x ]. ps ) ) )
75, 6sylibd 147 . . . . . 6  |-  ( (
iota_ x  e.  A  ph )  e.  A  -> 
( A. x  e.  A  ( ph  ->  ps )  ->  ( [. ( iota_ x  e.  A  ph )  /  x ]. ph 
->  [. ( iota_ x  e.  A  ph )  /  x ]. ps ) ) )
84, 7syl 14 . . . . 5  |-  ( E! x  e.  A  ph  ->  ( A. x  e.  A  ( ph  ->  ps )  ->  ( [. ( iota_ x  e.  A  ph )  /  x ]. ph 
->  [. ( iota_ x  e.  A  ph )  /  x ]. ps ) ) )
93, 8mpid 41 . . . 4  |-  ( E! x  e.  A  ph  ->  ( A. x  e.  A  ( ph  ->  ps )  ->  [. ( iota_ x  e.  A  ph )  /  x ]. ps )
)
101, 2, 9sylc 61 . . 3  |-  ( ( ( A  C_  B  /\  A. x  e.  A  ( ph  ->  ps )
)  /\  ( E. x  e.  A  ph  /\  E! x  e.  B  ps ) )  ->  [. ( iota_ x  e.  A  ph )  /  x ]. ps )
111, 4syl 14 . . . . 5  |-  ( ( ( A  C_  B  /\  A. x  e.  A  ( ph  ->  ps )
)  /\  ( E. x  e.  A  ph  /\  E! x  e.  B  ps ) )  ->  ( iota_ x  e.  A  ph )  e.  A )
12 ssel 3017 . . . . . 6  |-  ( A 
C_  B  ->  (
( iota_ x  e.  A  ph )  e.  A  -> 
( iota_ x  e.  A  ph )  e.  B ) )
1312ad2antrr 472 . . . . 5  |-  ( ( ( A  C_  B  /\  A. x  e.  A  ( ph  ->  ps )
)  /\  ( E. x  e.  A  ph  /\  E! x  e.  B  ps ) )  ->  (
( iota_ x  e.  A  ph )  e.  A  -> 
( iota_ x  e.  A  ph )  e.  B ) )
1411, 13mpd 13 . . . 4  |-  ( ( ( A  C_  B  /\  A. x  e.  A  ( ph  ->  ps )
)  /\  ( E. x  e.  A  ph  /\  E! x  e.  B  ps ) )  ->  ( iota_ x  e.  A  ph )  e.  B )
15 simprr 499 . . . 4  |-  ( ( ( A  C_  B  /\  A. x  e.  A  ( ph  ->  ps )
)  /\  ( E. x  e.  A  ph  /\  E! x  e.  B  ps ) )  ->  E! x  e.  B  ps )
16 nfriota1 5597 . . . . 5  |-  F/_ x
( iota_ x  e.  A  ph )
1716nfsbc1 2855 . . . . 5  |-  F/ x [. ( iota_ x  e.  A  ph )  /  x ]. ps
18 sbceq1a 2847 . . . . 5  |-  ( x  =  ( iota_ x  e.  A  ph )  -> 
( ps  <->  [. ( iota_ x  e.  A  ph )  /  x ]. ps )
)
1916, 17, 18riota2f 5611 . . . 4  |-  ( ( ( iota_ x  e.  A  ph )  e.  B  /\  E! x  e.  B  ps )  ->  ( [. ( iota_ x  e.  A  ph )  /  x ]. ps 
<->  ( iota_ x  e.  B  ps )  =  ( iota_ x  e.  A  ph ) ) )
2014, 15, 19syl2anc 403 . . 3  |-  ( ( ( A  C_  B  /\  A. x  e.  A  ( ph  ->  ps )
)  /\  ( E. x  e.  A  ph  /\  E! x  e.  B  ps ) )  ->  ( [. ( iota_ x  e.  A  ph )  /  x ]. ps 
<->  ( iota_ x  e.  B  ps )  =  ( iota_ x  e.  A  ph ) ) )
2110, 20mpbid 145 . 2  |-  ( ( ( A  C_  B  /\  A. x  e.  A  ( ph  ->  ps )
)  /\  ( E. x  e.  A  ph  /\  E! x  e.  B  ps ) )  ->  ( iota_ x  e.  B  ps )  =  ( iota_ x  e.  A  ph )
)
2221eqcomd 2093 1  |-  ( ( ( A  C_  B  /\  A. x  e.  A  ( ph  ->  ps )
)  /\  ( E. x  e.  A  ph  /\  E! x  e.  B  ps ) )  ->  ( iota_ x  e.  A  ph )  =  ( iota_ x  e.  B  ps )
)
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 102    <-> wb 103    = wceq 1289    e. wcel 1438   A.wral 2359   E.wrex 2360   E!wreu 2361   [.wsbc 2838    C_ wss 2997   iota_crio 5589
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-io 665  ax-5 1381  ax-7 1382  ax-gen 1383  ax-ie1 1427  ax-ie2 1428  ax-8 1440  ax-10 1441  ax-11 1442  ax-i12 1443  ax-bndl 1444  ax-4 1445  ax-17 1464  ax-i9 1468  ax-ial 1472  ax-i5r 1473  ax-ext 2070
This theorem depends on definitions:  df-bi 115  df-3an 926  df-tru 1292  df-nf 1395  df-sb 1693  df-eu 1951  df-mo 1952  df-clab 2075  df-cleq 2081  df-clel 2084  df-nfc 2217  df-ral 2364  df-rex 2365  df-reu 2366  df-rab 2368  df-v 2621  df-sbc 2839  df-un 3001  df-in 3003  df-ss 3010  df-sn 3447  df-pr 3448  df-uni 3649  df-iota 4967  df-riota 5590
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator