Theorem dfpetparts2 39354

Description: Alternate definition of PetParts as typedness + disjoint-span + block-lift equilibrium.

This theorem is the key modularization step. It decomposes PetParts into the intersection of three orthogonal modules:

(T) typedness: ⟨𝑟, 𝑛⟩ ∈ ( Rels × MembParts ),

(D) disjoint-span: (𝑟 ⋉ (^◡ E ↾ 𝑛)) ∈ Disjs,

(E) semantic equilibrium: ⟨𝑟, 𝑛⟩ ∈ BlockLiftFix, i.e. the carrier 𝑛 is a fixpoint of the induced block-generation operator.

Conceptually, (D) provides the disjointness/quotient discipline for the lifted span, while (E) prevents hidden carrier drift (refinement or coarsening of what counts as a block) by enforcing the fixpoint equation. The point of this theorem is that these constraints can be imposed and reused independently by later constructions, while their intersection recovers the intended Parts-based notion.

This mirrors the internal packaging of Disjs (see dfdisjs6 39324 / dfdisjs7 39325): for disjoint relations, the "map layer + carrier layer" decomposition is internal via QMap and ElDisjs; for PetParts, the carrier 𝑛 is an external parameter, so the additional carrier stability must be factored explicitly as BlockLiftFix. (Contributed by Peter Mazsa, 20-Feb-2026.) (Revised by Peter Mazsa, 25-Feb-2026.)

Assertion

Ref	Expression
dfpetparts2	⊢ PetParts = ((( Rels × MembParts ) ∩ {⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs }) ∩ BlockLiftFix )

Distinct variable group:   𝑛,𝑟

Proof of Theorem dfpetparts2

Step	Hyp	Ref	Expression
1		inopab 5775	. . . 4 ⊢ ({⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs } ∩ {⟨𝑟, 𝑛⟩ ∣ (dom (𝑟 ⋉ (◡ E ↾ 𝑛)) / (𝑟 ⋉ (◡ E ↾ 𝑛))) = 𝑛}) = {⟨𝑟, 𝑛⟩ ∣ ((𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs ∧ (dom (𝑟 ⋉ (◡ E ↾ 𝑛)) / (𝑟 ⋉ (◡ E ↾ 𝑛))) = 𝑛)}
2		df-blockliftfix 38863	. . . . 5 ⊢ BlockLiftFix = {⟨𝑟, 𝑛⟩ ∣ (dom (𝑟 ⋉ (◡ E ↾ 𝑛)) / (𝑟 ⋉ (◡ E ↾ 𝑛))) = 𝑛}
3	2	ineq2i 4149	. . . 4 ⊢ ({⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs } ∩ BlockLiftFix ) = ({⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs } ∩ {⟨𝑟, 𝑛⟩ ∣ (dom (𝑟 ⋉ (◡ E ↾ 𝑛)) / (𝑟 ⋉ (◡ E ↾ 𝑛))) = 𝑛})
4		xrncnvepresex 38813	. . . . . . 7 ⊢ ((𝑛 ∈ V ∧ 𝑟 ∈ V) → (𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ V)
5	4	el2v 3440	. . . . . 6 ⊢ (𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ V
6		brparts2 39257	. . . . . . 7 ⊢ ((𝑛 ∈ V ∧ (𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ V) → ((𝑟 ⋉ (◡ E ↾ 𝑛)) Parts 𝑛 ↔ ((𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs ∧ (dom (𝑟 ⋉ (◡ E ↾ 𝑛)) / (𝑟 ⋉ (◡ E ↾ 𝑛))) = 𝑛)))
7	6	el2v1 38611	. . . . . 6 ⊢ ((𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ V → ((𝑟 ⋉ (◡ E ↾ 𝑛)) Parts 𝑛 ↔ ((𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs ∧ (dom (𝑟 ⋉ (◡ E ↾ 𝑛)) / (𝑟 ⋉ (◡ E ↾ 𝑛))) = 𝑛)))
8	5, 7	ax-mp 5	. . . . 5 ⊢ ((𝑟 ⋉ (◡ E ↾ 𝑛)) Parts 𝑛 ↔ ((𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs ∧ (dom (𝑟 ⋉ (◡ E ↾ 𝑛)) / (𝑟 ⋉ (◡ E ↾ 𝑛))) = 𝑛))
9	8	opabbii 5142	. . . 4 ⊢ {⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) Parts 𝑛} = {⟨𝑟, 𝑛⟩ ∣ ((𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs ∧ (dom (𝑟 ⋉ (◡ E ↾ 𝑛)) / (𝑟 ⋉ (◡ E ↾ 𝑛))) = 𝑛)}
10	1, 3, 9	3eqtr4ri 2775	. . 3 ⊢ {⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) Parts 𝑛} = ({⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs } ∩ BlockLiftFix )
11	10	ineq2i 4149	. 2 ⊢ (( Rels × MembParts ) ∩ {⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) Parts 𝑛}) = (( Rels × MembParts ) ∩ ({⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs } ∩ BlockLiftFix ))
12		inopab 5775	. . 3 ⊢ ({⟨𝑟, 𝑛⟩ ∣ (𝑟 ∈ Rels ∧ 𝑛 ∈ MembParts )} ∩ {⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) Parts 𝑛}) = {⟨𝑟, 𝑛⟩ ∣ ((𝑟 ∈ Rels ∧ 𝑛 ∈ MembParts ) ∧ (𝑟 ⋉ (◡ E ↾ 𝑛)) Parts 𝑛)}
13		df-xp 5627	. . . 4 ⊢ ( Rels × MembParts ) = {⟨𝑟, 𝑛⟩ ∣ (𝑟 ∈ Rels ∧ 𝑛 ∈ MembParts )}
14	13	ineq1i 4148	. . 3 ⊢ (( Rels × MembParts ) ∩ {⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) Parts 𝑛}) = ({⟨𝑟, 𝑛⟩ ∣ (𝑟 ∈ Rels ∧ 𝑛 ∈ MembParts )} ∩ {⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) Parts 𝑛})
15		df-petparts 39350	. . 3 ⊢ PetParts = {⟨𝑟, 𝑛⟩ ∣ ((𝑟 ∈ Rels ∧ 𝑛 ∈ MembParts ) ∧ (𝑟 ⋉ (◡ E ↾ 𝑛)) Parts 𝑛)}
16	12, 14, 15	3eqtr4ri 2775	. 2 ⊢ PetParts = (( Rels × MembParts ) ∩ {⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) Parts 𝑛})
17		inass 4159	. 2 ⊢ ((( Rels × MembParts ) ∩ {⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs }) ∩ BlockLiftFix ) = (( Rels × MembParts ) ∩ ({⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs } ∩ BlockLiftFix ))
18	11, 16, 17	3eqtr4i 2774	1 ⊢ PetParts = ((( Rels × MembParts ) ∩ {⟨𝑟, 𝑛⟩ ∣ (𝑟 ⋉ (◡ E ↾ 𝑛)) ∈ Disjs }) ∩ BlockLiftFix )

Syntax hints:   ↔ wb 208   ∧ wa 397   = wceq 1548   ∈ wcel 2121  Vcvv 3433   ∩ cin 3884   class class class wbr 5075  {copab 5137   E cep 5520   × cxp 5619  ^◡ccnv 5620  dom cdm 5621   ↾ cres 5623   / cqs 8636   ⋉ cxrn 38556   BlockLiftFix cblockliftfix 38563   Rels crels 38567   Disjs cdisjs 38600   Parts cparts 38605   MembParts cmembparts 38607   PetParts cpetparts 38609

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-10 2154  ax-11 2170  ax-12 2191  ax-ext 2713  ax-rep 5202  ax-sep 5221  ax-nul 5231  ax-pow 5297  ax-pr 5365  ax-un 7682

This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-nf 1792  df-sb 2075  df-mo 2545  df-eu 2575  df-clab 2720  df-cleq 2733  df-clel 2816  df-nfc 2890  df-ne 2937  df-ral 3056  df-rex 3066  df-rab 3394  df-v 3435  df-dif 3888  df-un 3890  df-in 3892  df-ss 3902  df-nul 4265  df-if 4458  df-pw 4534  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4842  df-iun 4926  df-br 5076  df-opab 5138  df-mpt 5157  df-id 5516  df-eprel 5521  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-iota 6445  df-fun 6491  df-fn 6492  df-f 6493  df-fo 6495  df-fv 6497  df-1st 7935  df-2nd 7936  df-ec 8639  df-qs 8643  df-xrn 38762  df-blockliftfix 38863  df-dmqss 39104  df-parts 39250  df-petparts 39350

This theorem is referenced by:  dfpet2parts2  39355