Theorem mppspstlem 32813

Description: Lemma for mppspst 32816. (Contributed by Mario Carneiro, 18-Jul-2016.)

Hypotheses

Ref	Expression
mppsval.p	⊢ 𝑃 = (mPreSt‘𝑇)
mppsval.j	⊢ 𝐽 = (mPPSt‘𝑇)
mppsval.c	⊢ 𝐶 = (mCls‘𝑇)

Assertion

Ref	Expression
mppspstlem	⊢ {⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∣ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ))} ⊆ 𝑃

Distinct variable groups:   𝑎,𝑑,ℎ,𝐶   𝑃,𝑎,𝑑,ℎ   𝑇,𝑎,𝑑,ℎ

Allowed substitution hints:   𝐽(ℎ,𝑎,𝑑)

Proof of Theorem mppspstlem

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-oprab 7154	. 2 ⊢ {⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∣ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ))} = {𝑥 ∣ ∃𝑑∃ℎ∃𝑎(𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∧ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ)))}
2		df-ot 4569	. . . . . . . . . 10 ⊢ ⟨𝑑, ℎ, 𝑎⟩ = ⟨⟨𝑑, ℎ⟩, 𝑎⟩
3	2	eqeq2i 2834	. . . . . . . . 9 ⊢ (𝑥 = ⟨𝑑, ℎ, 𝑎⟩ ↔ 𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩)
4	3	biimpri 230	. . . . . . . 8 ⊢ (𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ → 𝑥 = ⟨𝑑, ℎ, 𝑎⟩)
5	4	eleq1d 2897	. . . . . . 7 ⊢ (𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ → (𝑥 ∈ 𝑃 ↔ ⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃))
6	5	biimpar 480	. . . . . 6 ⊢ ((𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∧ ⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃) → 𝑥 ∈ 𝑃)
7	6	adantrr 715	. . . . 5 ⊢ ((𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∧ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ))) → 𝑥 ∈ 𝑃)
8	7	exlimiv 1927	. . . 4 ⊢ (∃𝑎(𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∧ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ))) → 𝑥 ∈ 𝑃)
9	8	exlimivv 1929	. . 3 ⊢ (∃𝑑∃ℎ∃𝑎(𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∧ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ))) → 𝑥 ∈ 𝑃)
10	9	abssi 4045	. 2 ⊢ {𝑥 ∣ ∃𝑑∃ℎ∃𝑎(𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∧ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ)))} ⊆ 𝑃
11	1, 10	eqsstri 4000	1 ⊢ {⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∣ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ))} ⊆ 𝑃

Syntax hints:   ∧ wa 398   = wceq 1533  ∃wex 1776   ∈ wcel 2110  {cab 2799   ⊆ wss 3935  ⟨cop 4566  ⟨cotp 4568  ‘cfv 6349  (class class class)co 7150  {coprab 7151  mPreStcmpst 32715  mClscmcls 32719  mPPStcmpps 32720

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2157  ax-12 2173  ax-ext 2793

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-in 3942  df-ss 3951  df-ot 4569  df-oprab 7154

This theorem is referenced by:  mppsval  32814  mppspst  32816