Metamath Proof Explorer


Theorem cplem1

Description: Lemma for the Collection Principle cp . (Contributed by NM, 17-Oct-2003) Use the Scott operation. (Revised by BTernaryTau, 19-Jul-2026)

Ref Expression
Hypothesis cplem1.1 𝐶 = 𝑥𝐴 Scott 𝐵
Assertion cplem1 𝑥𝐴 ( 𝐵 ≠ ∅ → ( 𝐵𝐶 ) ≠ ∅ )

Proof

Step Hyp Ref Expression
1 cplem1.1 𝐶 = 𝑥𝐴 Scott 𝐵
2 scott0b ( 𝐵 = ∅ ↔ Scott 𝐵 = ∅ )
3 2 necon3bii ( 𝐵 ≠ ∅ ↔ Scott 𝐵 ≠ ∅ )
4 n0 ( Scott 𝐵 ≠ ∅ ↔ ∃ 𝑦 𝑦 ∈ Scott 𝐵 )
5 3 4 bitri ( 𝐵 ≠ ∅ ↔ ∃ 𝑦 𝑦 ∈ Scott 𝐵 )
6 scottss Scott 𝐵𝐵
7 6 sseli ( 𝑦 ∈ Scott 𝐵𝑦𝐵 )
8 7 a1i ( 𝑥𝐴 → ( 𝑦 ∈ Scott 𝐵𝑦𝐵 ) )
9 ssiun2 ( 𝑥𝐴 → Scott 𝐵 𝑥𝐴 Scott 𝐵 )
10 9 1 sseqtrrdi ( 𝑥𝐴 → Scott 𝐵𝐶 )
11 10 sseld ( 𝑥𝐴 → ( 𝑦 ∈ Scott 𝐵𝑦𝐶 ) )
12 8 11 jcad ( 𝑥𝐴 → ( 𝑦 ∈ Scott 𝐵 → ( 𝑦𝐵𝑦𝐶 ) ) )
13 inelcm ( ( 𝑦𝐵𝑦𝐶 ) → ( 𝐵𝐶 ) ≠ ∅ )
14 12 13 syl6 ( 𝑥𝐴 → ( 𝑦 ∈ Scott 𝐵 → ( 𝐵𝐶 ) ≠ ∅ ) )
15 14 exlimdv ( 𝑥𝐴 → ( ∃ 𝑦 𝑦 ∈ Scott 𝐵 → ( 𝐵𝐶 ) ≠ ∅ ) )
16 5 15 biimtrid ( 𝑥𝐴 → ( 𝐵 ≠ ∅ → ( 𝐵𝐶 ) ≠ ∅ ) )
17 16 rgen 𝑥𝐴 ( 𝐵 ≠ ∅ → ( 𝐵𝐶 ) ≠ ∅ )