Theorem rmo4 3013

Description: Restricted "at most one" using implicit substitution. (Contributed by NM, 24-Oct-2006.) (Revised by NM, 16-Jun-2017.)

Hypothesis

Ref	Expression
rmo4.1	|- ( x = y -> ( ph <-> ps ) )

Assertion

Ref	Expression
rmo4	|- ( E* x e. A ph <-> A. x e. A A. y e. A ( ( ph /\ ps ) -> x = y ) )

Distinct variable groups:   x, y, A   ph, y   ps, x

Allowed substitution hints:   ph( x)   ps( y)

Proof of Theorem rmo4

Step	Hyp	Ref	Expression
1		df-rmo 2530	. 2 |- ( E* x e. A ph <-> E* x ( x e. A /\ ph ) )
2		an4 588	. . . . . . . . 9 |- ( ( ( x e. A /\ ph ) /\ ( y e. A /\ ps ) ) <-> ( ( x e. A /\ y e. A ) /\ ( ph /\ ps ) ) )
3		ancom 266	. . . . . . . . . 10 |- ( ( x e. A /\ y e. A ) <-> ( y e. A /\ x e. A ) )
4	3	anbi1i 458	. . . . . . . . 9 |- ( ( ( x e. A /\ y e. A ) /\ ( ph /\ ps ) ) <-> ( ( y e. A /\ x e. A ) /\ ( ph /\ ps ) ) )
5	2, 4	bitri 184	. . . . . . . 8 |- ( ( ( x e. A /\ ph ) /\ ( y e. A /\ ps ) ) <-> ( ( y e. A /\ x e. A ) /\ ( ph /\ ps ) ) )
6	5	imbi1i 238	. . . . . . 7 |- ( ( ( ( x e. A /\ ph ) /\ ( y e. A /\ ps ) ) -> x = y ) <-> ( ( ( y e. A /\ x e. A ) /\ ( ph /\ ps ) ) -> x = y ) )
7		impexp 263	. . . . . . 7 |- ( ( ( ( y e. A /\ x e. A ) /\ ( ph /\ ps ) ) -> x = y ) <-> ( ( y e. A /\ x e. A ) -> ( ( ph /\ ps ) -> x = y ) ) )
8		impexp 263	. . . . . . 7 |- ( ( ( y e. A /\ x e. A ) -> ( ( ph /\ ps ) -> x = y ) ) <-> ( y e. A -> ( x e. A -> ( ( ph /\ ps ) -> x = y ) ) ) )
9	6, 7, 8	3bitri 206	. . . . . 6 |- ( ( ( ( x e. A /\ ph ) /\ ( y e. A /\ ps ) ) -> x = y ) <-> ( y e. A -> ( x e. A -> ( ( ph /\ ps ) -> x = y ) ) ) )
10	9	albii 1519	. . . . 5 |- ( A. y ( ( ( x e. A /\ ph ) /\ ( y e. A /\ ps ) ) -> x = y ) <-> A. y ( y e. A -> ( x e. A -> ( ( ph /\ ps ) -> x = y ) ) ) )
11		df-ral 2527	. . . . 5 |- ( A. y e. A ( x e. A -> ( ( ph /\ ps ) -> x = y ) ) <-> A. y ( y e. A -> ( x e. A -> ( ( ph /\ ps ) -> x = y ) ) ) )
12		r19.21v 2621	. . . . 5 |- ( A. y e. A ( x e. A -> ( ( ph /\ ps ) -> x = y ) ) <-> ( x e. A -> A. y e. A ( ( ph /\ ps ) -> x = y ) ) )
13	10, 11, 12	3bitr2i 208	. . . 4 |- ( A. y ( ( ( x e. A /\ ph ) /\ ( y e. A /\ ps ) ) -> x = y ) <-> ( x e. A -> A. y e. A ( ( ph /\ ps ) -> x = y ) ) )
14	13	albii 1519	. . 3 |- ( A. x A. y ( ( ( x e. A /\ ph ) /\ ( y e. A /\ ps ) ) -> x = y ) <-> A. x ( x e. A -> A. y e. A ( ( ph /\ ps ) -> x = y ) ) )
15		eleq1 2297	. . . . 5 |- ( x = y -> ( x e. A <-> y e. A ) )
16		rmo4.1	. . . . 5 |- ( x = y -> ( ph <-> ps ) )
17	15, 16	anbi12d 473	. . . 4 |- ( x = y -> ( ( x e. A /\ ph ) <-> ( y e. A /\ ps ) ) )
18	17	mo4 2144	. . 3 |- ( E* x ( x e. A /\ ph ) <-> A. x A. y ( ( ( x e. A /\ ph ) /\ ( y e. A /\ ps ) ) -> x = y ) )
19		df-ral 2527	. . 3 |- ( A. x e. A A. y e. A ( ( ph /\ ps ) -> x = y ) <-> A. x ( x e. A -> A. y e. A ( ( ph /\ ps ) -> x = y ) ) )
20	14, 18, 19	3bitr4i 212	. 2 |- ( E* x ( x e. A /\ ph ) <-> A. x e. A A. y e. A ( ( ph /\ ps ) -> x = y ) )
21	1, 20	bitri 184	1 |- ( E* x e. A ph <-> A. x e. A A. y e. A ( ( ph /\ ps ) -> x = y ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   A.wal 1396   E*wmo 2083   e. wcel 2205   A.wral 2522   E*wrmo 2525

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 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-ext 2216

This theorem depends on definitions:  df-bi 117  df-nf 1510  df-sb 1812  df-eu 2085  df-mo 2086  df-cleq 2227  df-clel 2230  df-ral 2527  df-rmo 2530

This theorem is referenced by:  reu4  3014  disjnim  4104  supmoti  7297  lteupri  7948  elrealeu  8160  rereceu  8220  exbtwnz  10634  rsqrmo  11737  divalglemeunn  12632  divalglemeuneg  12634  bezoutlemeu  12728  pw2dvdseu  12890  mgmidmo  13635  mndinvmod  13706  dedekindeu  15614  dedekindicclemicc  15623