Metamath Proof Explorer


Theorem intabs

Description: Absorption of a redundant conjunct in the intersection of a class abstraction. (Contributed by NM, 3-Jul-2005)

Ref Expression
Hypotheses intabs.1 ⊢ x = y → φ ↔ ψ
intabs.2 ⊢ x = ⋂ y | ψ → φ ↔ χ
intabs.3 ⊢ ⋂ y | ψ ⊆ A ∧ χ
Assertion intabs ⊢ ⋂ x | x ⊆ A ∧ φ = ⋂ x | φ

Proof

Step Hyp Ref Expression
1 intabs.1 ⊢ x = y → φ ↔ ψ
2 intabs.2 ⊢ x = ⋂ y | ψ → φ ↔ χ
3 intabs.3 ⊢ ⋂ y | ψ ⊆ A ∧ χ
4 sseq1 ⊢ x = ⋂ y | ψ → x ⊆ A ↔ ⋂ y | ψ ⊆ A
5 4 2 anbi12d ⊢ x = ⋂ y | ψ → x ⊆ A ∧ φ ↔ ⋂ y | ψ ⊆ A ∧ χ
6 5 3 intmin3 ⊢ ⋂ y | ψ ∈ V → ⋂ x | x ⊆ A ∧ φ ⊆ ⋂ y | ψ
7 intnex ⊢ ¬ ⋂ y | ψ ∈ V ↔ ⋂ y | ψ = V
8 ssv ⊢ ⋂ x | x ⊆ A ∧ φ ⊆ V
9 sseq2 ⊢ ⋂ y | ψ = V → ⋂ x | x ⊆ A ∧ φ ⊆ ⋂ y | ψ ↔ ⋂ x | x ⊆ A ∧ φ ⊆ V
10 8 9 mpbiri ⊢ ⋂ y | ψ = V → ⋂ x | x ⊆ A ∧ φ ⊆ ⋂ y | ψ
11 7 10 sylbi ⊢ ¬ ⋂ y | ψ ∈ V → ⋂ x | x ⊆ A ∧ φ ⊆ ⋂ y | ψ
12 6 11 pm2.61i ⊢ ⋂ x | x ⊆ A ∧ φ ⊆ ⋂ y | ψ
13 1 cbvabv ⊢ x | φ = y | ψ
14 13 inteqi ⊢ ⋂ x | φ = ⋂ y | ψ
15 12 14 sseqtrri ⊢ ⋂ x | x ⊆ A ∧ φ ⊆ ⋂ x | φ
16 simpr ⊢ x ⊆ A ∧ φ → φ
17 16 ss2abi ⊢ x | x ⊆ A ∧ φ ⊆ x | φ
18 intss ⊢ x | x ⊆ A ∧ φ ⊆ x | φ → ⋂ x | φ ⊆ ⋂ x | x ⊆ A ∧ φ
19 17 18 ax-mp ⊢ ⋂ x | φ ⊆ ⋂ x | x ⊆ A ∧ φ
20 15 19 eqssi ⊢ ⋂ x | x ⊆ A ∧ φ = ⋂ x | φ