Theorem mppspstlem 36044

Description: Lemma for mppspst 36047. (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 7416	. 2 ⊢ {⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∣ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ))} = {𝑥 ∣ ∃𝑑∃ℎ∃𝑎(𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∧ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ)))}
2		df-ot 4599	. . . . . . . . . 10 ⊢ ⟨𝑑, ℎ, 𝑎⟩ = ⟨⟨𝑑, ℎ⟩, 𝑎⟩
3	2	eqeq2i 2776	. . . . . . . . 9 ⊢ (𝑥 = ⟨𝑑, ℎ, 𝑎⟩ ↔ 𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩)
4	3	biimpri 231	. . . . . . . 8 ⊢ (𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ → 𝑥 = ⟨𝑑, ℎ, 𝑎⟩)
5	4	eleq1d 2848	. . . . . . 7 ⊢ (𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ → (𝑥 ∈ 𝑃 ↔ ⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃))
6	5	biimpar 482	. . . . . 6 ⊢ ((𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∧ ⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃) → 𝑥 ∈ 𝑃)
7	6	adantrr 729	. . . . 5 ⊢ ((𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∧ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ))) → 𝑥 ∈ 𝑃)
8	7	exlimiv 1960	. . . 4 ⊢ (∃𝑎(𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∧ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ))) → 𝑥 ∈ 𝑃)
9	8	exlimivv 1962	. . 3 ⊢ (∃𝑑∃ℎ∃𝑎(𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∧ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ))) → 𝑥 ∈ 𝑃)
10	9	abssi 4023	. 2 ⊢ {𝑥 ∣ ∃𝑑∃ℎ∃𝑎(𝑥 = ⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∧ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ)))} ⊆ 𝑃
11	1, 10	eqsstri 3984	1 ⊢ {⟨⟨𝑑, ℎ⟩, 𝑎⟩ ∣ (⟨𝑑, ℎ, 𝑎⟩ ∈ 𝑃 ∧ 𝑎 ∈ (𝑑𝐶ℎ))} ⊆ 𝑃

Syntax hints:   ∧ wa 400   = wceq 1570  ∃wex 1809   ∈ wcel 2143  {cab 2741   ⊆ wss 3906  ⟨cop 4596  ⟨cotp 4598  ‘cfv 6538  (class class class)co 7412  {coprab 7413  mPreStcmpst 35946  mClscmcls 35950  mPPStcmpps 35951

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-ext 2735

This theorem depends on definitions:  df-bi 210  df-an 401  df-tru 1573  df-ex 1810  df-sb 2097  df-clab 2742  df-cleq 2755  df-clel 2838  df-ss 3923  df-ot 4599  df-oprab 7416

This theorem is referenced by:  mppsval  36045  mppspst  36047