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

Theorem riotass2 5856
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 3415 . . . 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 528 . . . 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 5845 . . . . 5  |-  ( E! x  e.  A  ph  ->  [. ( iota_ x  e.  A  ph )  /  x ]. ph )
4 riotacl 5844 . . . . . 6  |-  ( E! x  e.  A  ph  ->  ( iota_ x  e.  A  ph )  e.  A )
5 rspsbc 3045 . . . . . . 7  |-  ( (
iota_ x  e.  A  ph )  e.  A  -> 
( A. x  e.  A  ( ph  ->  ps )  ->  [. ( iota_ x  e.  A  ph )  /  x ]. ( ph  ->  ps ) ) )
6 sbcimg 3004 . . . . . . 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 149 . . . . . 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 42 . . . 4  |-  ( E! x  e.  A  ph  ->  ( A. x  e.  A  ( ph  ->  ps )  ->  [. ( iota_ x  e.  A  ph )  /  x ]. ps )
)
101, 2, 9sylc 62 . . 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 3149 . . . . . 6  |-  ( A 
C_  B  ->  (
( iota_ x  e.  A  ph )  e.  A  -> 
( iota_ x  e.  A  ph )  e.  B ) )
1312ad2antrr 488 . . . . 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 531 . . . 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 5837 . . . . 5  |-  F/_ x
( iota_ x  e.  A  ph )
1716nfsbc1 2980 . . . . 5  |-  F/ x [. ( iota_ x  e.  A  ph )  /  x ]. ps
18 sbceq1a 2972 . . . . 5  |-  ( x  =  ( iota_ x  e.  A  ph )  -> 
( ps  <->  [. ( iota_ x  e.  A  ph )  /  x ]. ps )
)
1916, 17, 18riota2f 5851 . . . 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 411 . . 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 147 . 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 2183 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 104    <-> wb 105    = wceq 1353    e. wcel 2148   A.wral 2455   E.wrex 2456   E!wreu 2457   [.wsbc 2962    C_ wss 3129   iota_crio 5829
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-ext 2159
This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ral 2460  df-rex 2461  df-reu 2462  df-rab 2464  df-v 2739  df-sbc 2963  df-un 3133  df-in 3135  df-ss 3142  df-sn 3598  df-pr 3599  df-uni 3810  df-iota 5178  df-riota 5830
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator