Metamath Proof Explorer


Theorem moanimlem

Description: Factor out the common proof skeleton of moanimv and moanim . (Contributed by NM, 3-Dec-2001) (Proof shortened by Wolf Lammen, 24-Dec-2018) Factor out common proof lines. (Revised by Wolf Lammen, 8-Feb-2023)

Ref Expression
Hypotheses moanimlem.1 ⊢ φ → ∃* x ψ ↔ ∃* x φ ∧ ψ
moanimlem.2 ⊢ ∃ x φ ∧ ψ → φ
Assertion moanimlem ⊢ ∃* x φ ∧ ψ ↔ φ → ∃* x ψ

Proof

Step Hyp Ref Expression
1 moanimlem.1 ⊢ φ → ∃* x ψ ↔ ∃* x φ ∧ ψ
2 moanimlem.2 ⊢ ∃ x φ ∧ ψ → φ
3 1 biimprcd ⊢ ∃* x φ ∧ ψ → φ → ∃* x ψ
4 nexmo ⊢ ¬ ∃ x φ ∧ ψ → ∃* x φ ∧ ψ
5 2 4 nsyl5 ⊢ ¬ φ → ∃* x φ ∧ ψ
6 moan ⊢ ∃* x ψ → ∃* x φ ∧ ψ
7 5 6 ja ⊢ φ → ∃* x ψ → ∃* x φ ∧ ψ
8 3 7 impbii ⊢ ∃* x φ ∧ ψ ↔ φ → ∃* x ψ