Theorem sb8eulem

Description: Lemma. Factor out the common proof skeleton of sb8euv and sb8eu . Variable substitution in unique existential quantifier. (Contributed by NM, 7-Aug-1994) (Revised by Mario Carneiro, 7-Oct-2016) (Proof shortened by Wolf Lammen, 24-Aug-2019) Factor out common proof lines. (Revised by Wolf Lammen, 9-Feb-2023)

	Ref	Expression
Hypothesis	sb8eulem.nfsb	|- F/ y [ w / x ] ph
Assertion	sb8eulem	|- ( E! x ph <-> E! y [ y / x ] ph )

Proof

Step	Hyp	Ref	Expression
1		sb8eulem.nfsb	|- F/ y [ w / x ] ph
2		nfv	|- F/ w ( ph <-> x = z )
3	2	sb8v	|- ( A. x ( ph <-> x = z ) <-> A. w [ w / x ] ( ph <-> x = z ) )
4		equsb3	|- ( [ w / x ] x = z <-> w = z )
5	4	sblbis	|- ( [ w / x ] ( ph <-> x = z ) <-> ( [ w / x ] ph <-> w = z ) )
6	5	albii	|- ( A. w [ w / x ] ( ph <-> x = z ) <-> A. w ( [ w / x ] ph <-> w = z ) )
7		nfv	|- F/ y w = z
8	1 7	nfbi	|- F/ y ( [ w / x ] ph <-> w = z )
9		nfv	|- F/ w ( [ y / x ] ph <-> y = z )
10		sbequ	|- ( w = y -> ( [ w / x ] ph <-> [ y / x ] ph ) )
11		equequ1	|- ( w = y -> ( w = z <-> y = z ) )
12	10 11	bibi12d	|- ( w = y -> ( ( [ w / x ] ph <-> w = z ) <-> ( [ y / x ] ph <-> y = z ) ) )
13	8 9 12	cbvalv1	|- ( A. w ( [ w / x ] ph <-> w = z ) <-> A. y ( [ y / x ] ph <-> y = z ) )
14	3 6 13	3bitri	|- ( A. x ( ph <-> x = z ) <-> A. y ( [ y / x ] ph <-> y = z ) )
15	14	exbii	|- ( E. z A. x ( ph <-> x = z ) <-> E. z A. y ( [ y / x ] ph <-> y = z ) )
16		eu6	|- ( E! x ph <-> E. z A. x ( ph <-> x = z ) )
17		eu6	|- ( E! y [ y / x ] ph <-> E. z A. y ( [ y / x ] ph <-> y = z ) )
18	15 16 17	3bitr4i	|- ( E! x ph <-> E! y [ y / x ] ph )