Metamath Proof Explorer


Theorem reuss2

Description: Transfer uniqueness to a smaller subclass. (Contributed by NM, 20-Oct-2005)

Ref Expression
Assertion reuss2 A B x A φ ψ x A φ ∃! x B ψ ∃! x A φ

Proof

Step Hyp Ref Expression
1 df-rex x A φ x x A φ
2 df-reu ∃! x B ψ ∃! x x B ψ
3 1 2 anbi12i x A φ ∃! x B ψ x x A φ ∃! x x B ψ
4 df-ral x A φ ψ x x A φ ψ
5 ssel A B x A x B
6 pm3.2 x B ψ x B ψ
7 6 imim2d x B φ ψ φ x B ψ
8 5 7 syl6 A B x A φ ψ φ x B ψ
9 8 a2d A B x A φ ψ x A φ x B ψ
10 9 imp4a A B x A φ ψ x A φ x B ψ
11 10 alimdv A B x x A φ ψ x x A φ x B ψ
12 11 imp A B x x A φ ψ x x A φ x B ψ
13 4 12 sylan2b A B x A φ ψ x x A φ x B ψ
14 euimmo x x A φ x B ψ ∃! x x B ψ * x x A φ
15 13 14 syl A B x A φ ψ ∃! x x B ψ * x x A φ
16 df-eu ∃! x x A φ x x A φ * x x A φ
17 16 simplbi2 x x A φ * x x A φ ∃! x x A φ
18 15 17 syl9 A B x A φ ψ x x A φ ∃! x x B ψ ∃! x x A φ
19 18 imp32 A B x A φ ψ x x A φ ∃! x x B ψ ∃! x x A φ
20 df-reu ∃! x A φ ∃! x x A φ
21 19 20 sylibr A B x A φ ψ x x A φ ∃! x x B ψ ∃! x A φ
22 3 21 sylan2b A B x A φ ψ x A φ ∃! x B ψ ∃! x A φ