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 φ