Users' Mathboxes Mathbox for Mario Carneiro < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  mthmpps Structured version   Visualization version   GIF version

Theorem mthmpps 35566
Description: Given a theorem, there is an explicitly definable witnessing provable pre-statement for the provability of the theorem. (However, this pre-statement requires infinitely many disjoint variable conditions, which is sometimes inconvenient.) (Contributed by Mario Carneiro, 18-Jul-2016.)
Hypotheses
Ref Expression
mthmpps.r 𝑅 = (mStRed‘𝑇)
mthmpps.j 𝐽 = (mPPSt‘𝑇)
mthmpps.u 𝑈 = (mThm‘𝑇)
mthmpps.d 𝐷 = (mDV‘𝑇)
mthmpps.v 𝑉 = (mVars‘𝑇)
mthmpps.z 𝑍 = (𝑉 “ (𝐻 ∪ {𝐴}))
mthmpps.m 𝑀 = (𝐶 ∪ (𝐷 ∖ (𝑍 × 𝑍)))
Assertion
Ref Expression
mthmpps (𝑇 ∈ mFS → (⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈 ↔ (⟨𝑀, 𝐻, 𝐴⟩ ∈ 𝐽 ∧ (𝑅‘⟨𝑀, 𝐻, 𝐴⟩) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))))

Proof of Theorem mthmpps
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 mthmpps.m . . . . . . . 8 𝑀 = (𝐶 ∪ (𝐷 ∖ (𝑍 × 𝑍)))
2 mthmpps.u . . . . . . . . . . . . . 14 𝑈 = (mThm‘𝑇)
3 eqid 2734 . . . . . . . . . . . . . 14 (mPreSt‘𝑇) = (mPreSt‘𝑇)
42, 3mthmsta 35562 . . . . . . . . . . . . 13 𝑈 ⊆ (mPreSt‘𝑇)
5 simpr 484 . . . . . . . . . . . . 13 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈)
64, 5sselid 3992 . . . . . . . . . . . 12 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → ⟨𝐶, 𝐻, 𝐴⟩ ∈ (mPreSt‘𝑇))
7 mthmpps.d . . . . . . . . . . . . 13 𝐷 = (mDV‘𝑇)
8 eqid 2734 . . . . . . . . . . . . 13 (mEx‘𝑇) = (mEx‘𝑇)
97, 8, 3elmpst 35520 . . . . . . . . . . . 12 (⟨𝐶, 𝐻, 𝐴⟩ ∈ (mPreSt‘𝑇) ↔ ((𝐶𝐷𝐶 = 𝐶) ∧ (𝐻 ⊆ (mEx‘𝑇) ∧ 𝐻 ∈ Fin) ∧ 𝐴 ∈ (mEx‘𝑇)))
106, 9sylib 218 . . . . . . . . . . 11 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → ((𝐶𝐷𝐶 = 𝐶) ∧ (𝐻 ⊆ (mEx‘𝑇) ∧ 𝐻 ∈ Fin) ∧ 𝐴 ∈ (mEx‘𝑇)))
1110simp1d 1141 . . . . . . . . . 10 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → (𝐶𝐷𝐶 = 𝐶))
1211simpld 494 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → 𝐶𝐷)
13 difssd 4146 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → (𝐷 ∖ (𝑍 × 𝑍)) ⊆ 𝐷)
1412, 13unssd 4201 . . . . . . . 8 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → (𝐶 ∪ (𝐷 ∖ (𝑍 × 𝑍))) ⊆ 𝐷)
151, 14eqsstrid 4043 . . . . . . 7 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → 𝑀𝐷)
1611simprd 495 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → 𝐶 = 𝐶)
17 cnvdif 6165 . . . . . . . . . . 11 (𝐷 ∖ (𝑍 × 𝑍)) = (𝐷(𝑍 × 𝑍))
18 cnvdif 6165 . . . . . . . . . . . . . 14 (((mVR‘𝑇) × (mVR‘𝑇)) ∖ I ) = (((mVR‘𝑇) × (mVR‘𝑇)) ∖ I )
19 cnvxp 6178 . . . . . . . . . . . . . . 15 ((mVR‘𝑇) × (mVR‘𝑇)) = ((mVR‘𝑇) × (mVR‘𝑇))
20 cnvi 6163 . . . . . . . . . . . . . . 15 I = I
2119, 20difeq12i 4133 . . . . . . . . . . . . . 14 (((mVR‘𝑇) × (mVR‘𝑇)) ∖ I ) = (((mVR‘𝑇) × (mVR‘𝑇)) ∖ I )
2218, 21eqtri 2762 . . . . . . . . . . . . 13 (((mVR‘𝑇) × (mVR‘𝑇)) ∖ I ) = (((mVR‘𝑇) × (mVR‘𝑇)) ∖ I )
23 eqid 2734 . . . . . . . . . . . . . . 15 (mVR‘𝑇) = (mVR‘𝑇)
2423, 7mdvval 35488 . . . . . . . . . . . . . 14 𝐷 = (((mVR‘𝑇) × (mVR‘𝑇)) ∖ I )
2524cnveqi 5887 . . . . . . . . . . . . 13 𝐷 = (((mVR‘𝑇) × (mVR‘𝑇)) ∖ I )
2622, 25, 243eqtr4i 2772 . . . . . . . . . . . 12 𝐷 = 𝐷
27 cnvxp 6178 . . . . . . . . . . . 12 (𝑍 × 𝑍) = (𝑍 × 𝑍)
2826, 27difeq12i 4133 . . . . . . . . . . 11 (𝐷(𝑍 × 𝑍)) = (𝐷 ∖ (𝑍 × 𝑍))
2917, 28eqtri 2762 . . . . . . . . . 10 (𝐷 ∖ (𝑍 × 𝑍)) = (𝐷 ∖ (𝑍 × 𝑍))
3029a1i 11 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → (𝐷 ∖ (𝑍 × 𝑍)) = (𝐷 ∖ (𝑍 × 𝑍)))
3116, 30uneq12d 4178 . . . . . . . 8 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → (𝐶(𝐷 ∖ (𝑍 × 𝑍))) = (𝐶 ∪ (𝐷 ∖ (𝑍 × 𝑍))))
321cnveqi 5887 . . . . . . . . 9 𝑀 = (𝐶 ∪ (𝐷 ∖ (𝑍 × 𝑍)))
33 cnvun 6164 . . . . . . . . 9 (𝐶 ∪ (𝐷 ∖ (𝑍 × 𝑍))) = (𝐶(𝐷 ∖ (𝑍 × 𝑍)))
3432, 33eqtri 2762 . . . . . . . 8 𝑀 = (𝐶(𝐷 ∖ (𝑍 × 𝑍)))
3531, 34, 13eqtr4g 2799 . . . . . . 7 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → 𝑀 = 𝑀)
3615, 35jca 511 . . . . . 6 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → (𝑀𝐷𝑀 = 𝑀))
3710simp2d 1142 . . . . . 6 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → (𝐻 ⊆ (mEx‘𝑇) ∧ 𝐻 ∈ Fin))
3810simp3d 1143 . . . . . 6 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → 𝐴 ∈ (mEx‘𝑇))
397, 8, 3elmpst 35520 . . . . . 6 (⟨𝑀, 𝐻, 𝐴⟩ ∈ (mPreSt‘𝑇) ↔ ((𝑀𝐷𝑀 = 𝑀) ∧ (𝐻 ⊆ (mEx‘𝑇) ∧ 𝐻 ∈ Fin) ∧ 𝐴 ∈ (mEx‘𝑇)))
4036, 37, 38, 39syl3anbrc 1342 . . . . 5 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → ⟨𝑀, 𝐻, 𝐴⟩ ∈ (mPreSt‘𝑇))
41 mthmpps.r . . . . . . . 8 𝑅 = (mStRed‘𝑇)
42 mthmpps.j . . . . . . . 8 𝐽 = (mPPSt‘𝑇)
4341, 42, 2elmthm 35560 . . . . . . 7 (⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈 ↔ ∃𝑥𝐽 (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))
445, 43sylib 218 . . . . . 6 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → ∃𝑥𝐽 (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))
45 eqid 2734 . . . . . . . 8 (mCls‘𝑇) = (mCls‘𝑇)
46 simpll 767 . . . . . . . 8 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → 𝑇 ∈ mFS)
4715adantr 480 . . . . . . . 8 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → 𝑀𝐷)
4837simpld 494 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → 𝐻 ⊆ (mEx‘𝑇))
4948adantr 480 . . . . . . . 8 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → 𝐻 ⊆ (mEx‘𝑇))
503, 42mppspst 35558 . . . . . . . . . . . . . . . . . . 19 𝐽 ⊆ (mPreSt‘𝑇)
51 simprl 771 . . . . . . . . . . . . . . . . . . 19 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → 𝑥𝐽)
5250, 51sselid 3992 . . . . . . . . . . . . . . . . . 18 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → 𝑥 ∈ (mPreSt‘𝑇))
533mpst123 35524 . . . . . . . . . . . . . . . . . 18 (𝑥 ∈ (mPreSt‘𝑇) → 𝑥 = ⟨(1st ‘(1st𝑥)), (2nd ‘(1st𝑥)), (2nd𝑥)⟩)
5452, 53syl 17 . . . . . . . . . . . . . . . . 17 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → 𝑥 = ⟨(1st ‘(1st𝑥)), (2nd ‘(1st𝑥)), (2nd𝑥)⟩)
5554fveq2d 6910 . . . . . . . . . . . . . . . 16 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (𝑅𝑥) = (𝑅‘⟨(1st ‘(1st𝑥)), (2nd ‘(1st𝑥)), (2nd𝑥)⟩))
56 simprr 773 . . . . . . . . . . . . . . . 16 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))
5755, 56eqtr3d 2776 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (𝑅‘⟨(1st ‘(1st𝑥)), (2nd ‘(1st𝑥)), (2nd𝑥)⟩) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))
5854, 52eqeltrrd 2839 . . . . . . . . . . . . . . . 16 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → ⟨(1st ‘(1st𝑥)), (2nd ‘(1st𝑥)), (2nd𝑥)⟩ ∈ (mPreSt‘𝑇))
59 mthmpps.v . . . . . . . . . . . . . . . . 17 𝑉 = (mVars‘𝑇)
60 eqid 2734 . . . . . . . . . . . . . . . . 17 (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) = (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)}))
6159, 3, 41, 60msrval 35522 . . . . . . . . . . . . . . . 16 (⟨(1st ‘(1st𝑥)), (2nd ‘(1st𝑥)), (2nd𝑥)⟩ ∈ (mPreSt‘𝑇) → (𝑅‘⟨(1st ‘(1st𝑥)), (2nd ‘(1st𝑥)), (2nd𝑥)⟩) = ⟨((1st ‘(1st𝑥)) ∩ ( (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) × (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})))), (2nd ‘(1st𝑥)), (2nd𝑥)⟩)
6258, 61syl 17 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (𝑅‘⟨(1st ‘(1st𝑥)), (2nd ‘(1st𝑥)), (2nd𝑥)⟩) = ⟨((1st ‘(1st𝑥)) ∩ ( (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) × (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})))), (2nd ‘(1st𝑥)), (2nd𝑥)⟩)
63 mthmpps.z . . . . . . . . . . . . . . . . . 18 𝑍 = (𝑉 “ (𝐻 ∪ {𝐴}))
6459, 3, 41, 63msrval 35522 . . . . . . . . . . . . . . . . 17 (⟨𝐶, 𝐻, 𝐴⟩ ∈ (mPreSt‘𝑇) → (𝑅‘⟨𝐶, 𝐻, 𝐴⟩) = ⟨(𝐶 ∩ (𝑍 × 𝑍)), 𝐻, 𝐴⟩)
656, 64syl 17 . . . . . . . . . . . . . . . 16 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → (𝑅‘⟨𝐶, 𝐻, 𝐴⟩) = ⟨(𝐶 ∩ (𝑍 × 𝑍)), 𝐻, 𝐴⟩)
6665adantr 480 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (𝑅‘⟨𝐶, 𝐻, 𝐴⟩) = ⟨(𝐶 ∩ (𝑍 × 𝑍)), 𝐻, 𝐴⟩)
6757, 62, 663eqtr3d 2782 . . . . . . . . . . . . . 14 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → ⟨((1st ‘(1st𝑥)) ∩ ( (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) × (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})))), (2nd ‘(1st𝑥)), (2nd𝑥)⟩ = ⟨(𝐶 ∩ (𝑍 × 𝑍)), 𝐻, 𝐴⟩)
68 fvex 6919 . . . . . . . . . . . . . . . 16 (1st ‘(1st𝑥)) ∈ V
6968inex1 5322 . . . . . . . . . . . . . . 15 ((1st ‘(1st𝑥)) ∩ ( (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) × (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})))) ∈ V
70 fvex 6919 . . . . . . . . . . . . . . 15 (2nd ‘(1st𝑥)) ∈ V
71 fvex 6919 . . . . . . . . . . . . . . 15 (2nd𝑥) ∈ V
7269, 70, 71otth 5494 . . . . . . . . . . . . . 14 (⟨((1st ‘(1st𝑥)) ∩ ( (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) × (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})))), (2nd ‘(1st𝑥)), (2nd𝑥)⟩ = ⟨(𝐶 ∩ (𝑍 × 𝑍)), 𝐻, 𝐴⟩ ↔ (((1st ‘(1st𝑥)) ∩ ( (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) × (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})))) = (𝐶 ∩ (𝑍 × 𝑍)) ∧ (2nd ‘(1st𝑥)) = 𝐻 ∧ (2nd𝑥) = 𝐴))
7367, 72sylib 218 . . . . . . . . . . . . 13 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (((1st ‘(1st𝑥)) ∩ ( (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) × (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})))) = (𝐶 ∩ (𝑍 × 𝑍)) ∧ (2nd ‘(1st𝑥)) = 𝐻 ∧ (2nd𝑥) = 𝐴))
7473simp1d 1141 . . . . . . . . . . . 12 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → ((1st ‘(1st𝑥)) ∩ ( (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) × (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})))) = (𝐶 ∩ (𝑍 × 𝑍)))
7573simp2d 1142 . . . . . . . . . . . . . . . . . 18 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (2nd ‘(1st𝑥)) = 𝐻)
7673simp3d 1143 . . . . . . . . . . . . . . . . . . 19 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (2nd𝑥) = 𝐴)
7776sneqd 4642 . . . . . . . . . . . . . . . . . 18 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → {(2nd𝑥)} = {𝐴})
7875, 77uneq12d 4178 . . . . . . . . . . . . . . . . 17 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)}) = (𝐻 ∪ {𝐴}))
7978imaeq2d 6079 . . . . . . . . . . . . . . . 16 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) = (𝑉 “ (𝐻 ∪ {𝐴})))
8079unieqd 4924 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) = (𝑉 “ (𝐻 ∪ {𝐴})))
8180, 63eqtr4di 2792 . . . . . . . . . . . . . 14 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) = 𝑍)
8281sqxpeqd 5720 . . . . . . . . . . . . 13 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → ( (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) × (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)}))) = (𝑍 × 𝑍))
8382ineq2d 4227 . . . . . . . . . . . 12 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → ((1st ‘(1st𝑥)) ∩ ( (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})) × (𝑉 “ ((2nd ‘(1st𝑥)) ∪ {(2nd𝑥)})))) = ((1st ‘(1st𝑥)) ∩ (𝑍 × 𝑍)))
8474, 83eqtr3d 2776 . . . . . . . . . . 11 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (𝐶 ∩ (𝑍 × 𝑍)) = ((1st ‘(1st𝑥)) ∩ (𝑍 × 𝑍)))
85 inss1 4244 . . . . . . . . . . 11 (𝐶 ∩ (𝑍 × 𝑍)) ⊆ 𝐶
8684, 85eqsstrrdi 4050 . . . . . . . . . 10 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → ((1st ‘(1st𝑥)) ∩ (𝑍 × 𝑍)) ⊆ 𝐶)
87 eqidd 2735 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (1st ‘(1st𝑥)) = (1st ‘(1st𝑥)))
8887, 75, 76oteq123d 4892 . . . . . . . . . . . . . 14 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → ⟨(1st ‘(1st𝑥)), (2nd ‘(1st𝑥)), (2nd𝑥)⟩ = ⟨(1st ‘(1st𝑥)), 𝐻, 𝐴⟩)
8954, 88eqtrd 2774 . . . . . . . . . . . . 13 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → 𝑥 = ⟨(1st ‘(1st𝑥)), 𝐻, 𝐴⟩)
9089, 52eqeltrrd 2839 . . . . . . . . . . . 12 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → ⟨(1st ‘(1st𝑥)), 𝐻, 𝐴⟩ ∈ (mPreSt‘𝑇))
917, 8, 3elmpst 35520 . . . . . . . . . . . . . 14 (⟨(1st ‘(1st𝑥)), 𝐻, 𝐴⟩ ∈ (mPreSt‘𝑇) ↔ (((1st ‘(1st𝑥)) ⊆ 𝐷(1st ‘(1st𝑥)) = (1st ‘(1st𝑥))) ∧ (𝐻 ⊆ (mEx‘𝑇) ∧ 𝐻 ∈ Fin) ∧ 𝐴 ∈ (mEx‘𝑇)))
9291simp1bi 1144 . . . . . . . . . . . . 13 (⟨(1st ‘(1st𝑥)), 𝐻, 𝐴⟩ ∈ (mPreSt‘𝑇) → ((1st ‘(1st𝑥)) ⊆ 𝐷(1st ‘(1st𝑥)) = (1st ‘(1st𝑥))))
9392simpld 494 . . . . . . . . . . . 12 (⟨(1st ‘(1st𝑥)), 𝐻, 𝐴⟩ ∈ (mPreSt‘𝑇) → (1st ‘(1st𝑥)) ⊆ 𝐷)
9490, 93syl 17 . . . . . . . . . . 11 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (1st ‘(1st𝑥)) ⊆ 𝐷)
9594ssdifd 4154 . . . . . . . . . 10 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → ((1st ‘(1st𝑥)) ∖ (𝑍 × 𝑍)) ⊆ (𝐷 ∖ (𝑍 × 𝑍)))
96 unss12 4197 . . . . . . . . . 10 ((((1st ‘(1st𝑥)) ∩ (𝑍 × 𝑍)) ⊆ 𝐶 ∧ ((1st ‘(1st𝑥)) ∖ (𝑍 × 𝑍)) ⊆ (𝐷 ∖ (𝑍 × 𝑍))) → (((1st ‘(1st𝑥)) ∩ (𝑍 × 𝑍)) ∪ ((1st ‘(1st𝑥)) ∖ (𝑍 × 𝑍))) ⊆ (𝐶 ∪ (𝐷 ∖ (𝑍 × 𝑍))))
9786, 95, 96syl2anc 584 . . . . . . . . 9 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (((1st ‘(1st𝑥)) ∩ (𝑍 × 𝑍)) ∪ ((1st ‘(1st𝑥)) ∖ (𝑍 × 𝑍))) ⊆ (𝐶 ∪ (𝐷 ∖ (𝑍 × 𝑍))))
98 inundif 4484 . . . . . . . . . 10 (((1st ‘(1st𝑥)) ∩ (𝑍 × 𝑍)) ∪ ((1st ‘(1st𝑥)) ∖ (𝑍 × 𝑍))) = (1st ‘(1st𝑥))
9998eqcomi 2743 . . . . . . . . 9 (1st ‘(1st𝑥)) = (((1st ‘(1st𝑥)) ∩ (𝑍 × 𝑍)) ∪ ((1st ‘(1st𝑥)) ∖ (𝑍 × 𝑍)))
10097, 99, 13sstr4g 4040 . . . . . . . 8 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → (1st ‘(1st𝑥)) ⊆ 𝑀)
101 ssidd 4018 . . . . . . . 8 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → 𝐻𝐻)
1027, 8, 45, 46, 47, 49, 100, 101ss2mcls 35552 . . . . . . 7 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → ((1st ‘(1st𝑥))(mCls‘𝑇)𝐻) ⊆ (𝑀(mCls‘𝑇)𝐻))
10389, 51eqeltrrd 2839 . . . . . . . 8 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → ⟨(1st ‘(1st𝑥)), 𝐻, 𝐴⟩ ∈ 𝐽)
1043, 42, 45elmpps 35557 . . . . . . . . 9 (⟨(1st ‘(1st𝑥)), 𝐻, 𝐴⟩ ∈ 𝐽 ↔ (⟨(1st ‘(1st𝑥)), 𝐻, 𝐴⟩ ∈ (mPreSt‘𝑇) ∧ 𝐴 ∈ ((1st ‘(1st𝑥))(mCls‘𝑇)𝐻)))
105104simprbi 496 . . . . . . . 8 (⟨(1st ‘(1st𝑥)), 𝐻, 𝐴⟩ ∈ 𝐽𝐴 ∈ ((1st ‘(1st𝑥))(mCls‘𝑇)𝐻))
106103, 105syl 17 . . . . . . 7 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → 𝐴 ∈ ((1st ‘(1st𝑥))(mCls‘𝑇)𝐻))
107102, 106sseldd 3995 . . . . . 6 (((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) ∧ (𝑥𝐽 ∧ (𝑅𝑥) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))) → 𝐴 ∈ (𝑀(mCls‘𝑇)𝐻))
10844, 107rexlimddv 3158 . . . . 5 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → 𝐴 ∈ (𝑀(mCls‘𝑇)𝐻))
1093, 42, 45elmpps 35557 . . . . 5 (⟨𝑀, 𝐻, 𝐴⟩ ∈ 𝐽 ↔ (⟨𝑀, 𝐻, 𝐴⟩ ∈ (mPreSt‘𝑇) ∧ 𝐴 ∈ (𝑀(mCls‘𝑇)𝐻)))
11040, 108, 109sylanbrc 583 . . . 4 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → ⟨𝑀, 𝐻, 𝐴⟩ ∈ 𝐽)
1111ineq1i 4223 . . . . . . . 8 (𝑀 ∩ (𝑍 × 𝑍)) = ((𝐶 ∪ (𝐷 ∖ (𝑍 × 𝑍))) ∩ (𝑍 × 𝑍))
112 indir 4291 . . . . . . . 8 ((𝐶 ∪ (𝐷 ∖ (𝑍 × 𝑍))) ∩ (𝑍 × 𝑍)) = ((𝐶 ∩ (𝑍 × 𝑍)) ∪ ((𝐷 ∖ (𝑍 × 𝑍)) ∩ (𝑍 × 𝑍)))
113 disjdifr 4478 . . . . . . . . . 10 ((𝐷 ∖ (𝑍 × 𝑍)) ∩ (𝑍 × 𝑍)) = ∅
114 0ss 4405 . . . . . . . . . 10 ∅ ⊆ (𝐶 ∩ (𝑍 × 𝑍))
115113, 114eqsstri 4029 . . . . . . . . 9 ((𝐷 ∖ (𝑍 × 𝑍)) ∩ (𝑍 × 𝑍)) ⊆ (𝐶 ∩ (𝑍 × 𝑍))
116 ssequn2 4198 . . . . . . . . 9 (((𝐷 ∖ (𝑍 × 𝑍)) ∩ (𝑍 × 𝑍)) ⊆ (𝐶 ∩ (𝑍 × 𝑍)) ↔ ((𝐶 ∩ (𝑍 × 𝑍)) ∪ ((𝐷 ∖ (𝑍 × 𝑍)) ∩ (𝑍 × 𝑍))) = (𝐶 ∩ (𝑍 × 𝑍)))
117115, 116mpbi 230 . . . . . . . 8 ((𝐶 ∩ (𝑍 × 𝑍)) ∪ ((𝐷 ∖ (𝑍 × 𝑍)) ∩ (𝑍 × 𝑍))) = (𝐶 ∩ (𝑍 × 𝑍))
118111, 112, 1173eqtri 2766 . . . . . . 7 (𝑀 ∩ (𝑍 × 𝑍)) = (𝐶 ∩ (𝑍 × 𝑍))
119118a1i 11 . . . . . 6 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → (𝑀 ∩ (𝑍 × 𝑍)) = (𝐶 ∩ (𝑍 × 𝑍)))
120119oteq1d 4889 . . . . 5 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → ⟨(𝑀 ∩ (𝑍 × 𝑍)), 𝐻, 𝐴⟩ = ⟨(𝐶 ∩ (𝑍 × 𝑍)), 𝐻, 𝐴⟩)
12159, 3, 41, 63msrval 35522 . . . . . 6 (⟨𝑀, 𝐻, 𝐴⟩ ∈ (mPreSt‘𝑇) → (𝑅‘⟨𝑀, 𝐻, 𝐴⟩) = ⟨(𝑀 ∩ (𝑍 × 𝑍)), 𝐻, 𝐴⟩)
12240, 121syl 17 . . . . 5 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → (𝑅‘⟨𝑀, 𝐻, 𝐴⟩) = ⟨(𝑀 ∩ (𝑍 × 𝑍)), 𝐻, 𝐴⟩)
123120, 122, 653eqtr4d 2784 . . . 4 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → (𝑅‘⟨𝑀, 𝐻, 𝐴⟩) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))
124110, 123jca 511 . . 3 ((𝑇 ∈ mFS ∧ ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈) → (⟨𝑀, 𝐻, 𝐴⟩ ∈ 𝐽 ∧ (𝑅‘⟨𝑀, 𝐻, 𝐴⟩) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩)))
125124ex 412 . 2 (𝑇 ∈ mFS → (⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈 → (⟨𝑀, 𝐻, 𝐴⟩ ∈ 𝐽 ∧ (𝑅‘⟨𝑀, 𝐻, 𝐴⟩) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))))
12641, 42, 2mthmi 35561 . 2 ((⟨𝑀, 𝐻, 𝐴⟩ ∈ 𝐽 ∧ (𝑅‘⟨𝑀, 𝐻, 𝐴⟩) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩)) → ⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈)
127125, 126impbid1 225 1 (𝑇 ∈ mFS → (⟨𝐶, 𝐻, 𝐴⟩ ∈ 𝑈 ↔ (⟨𝑀, 𝐻, 𝐴⟩ ∈ 𝐽 ∧ (𝑅‘⟨𝑀, 𝐻, 𝐴⟩) = (𝑅‘⟨𝐶, 𝐻, 𝐴⟩))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1086   = wceq 1536  wcel 2105  wrex 3067  cdif 3959  cun 3960  cin 3961  wss 3962  c0 4338  {csn 4630  cotp 4638   cuni 4911   I cid 5581   × cxp 5686  ccnv 5687  cima 5691  cfv 6562  (class class class)co 7430  1st c1st 8010  2nd c2nd 8011  Fincfn 8983  mVRcmvar 35445  mExcmex 35451  mDVcmdv 35452  mVarscmvrs 35453  mPreStcmpst 35457  mStRedcmsr 35458  mFScmfs 35460  mClscmcls 35461  mPPStcmpps 35462  mThmcmthm 35463
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1791  ax-4 1805  ax-5 1907  ax-6 1964  ax-7 2004  ax-8 2107  ax-9 2115  ax-10 2138  ax-11 2154  ax-12 2174  ax-ext 2705  ax-rep 5284  ax-sep 5301  ax-nul 5311  ax-pow 5370  ax-pr 5437  ax-un 7753  ax-cnex 11208  ax-resscn 11209  ax-1cn 11210  ax-icn 11211  ax-addcl 11212  ax-addrcl 11213  ax-mulcl 11214  ax-mulrcl 11215  ax-mulcom 11216  ax-addass 11217  ax-mulass 11218  ax-distr 11219  ax-i2m1 11220  ax-1ne0 11221  ax-1rid 11222  ax-rnegex 11223  ax-rrecex 11224  ax-cnre 11225  ax-pre-lttri 11226  ax-pre-lttrn 11227  ax-pre-ltadd 11228  ax-pre-mulgt0 11229
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1539  df-fal 1549  df-ex 1776  df-nf 1780  df-sb 2062  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2726  df-clel 2813  df-nfc 2889  df-ne 2938  df-nel 3044  df-ral 3059  df-rex 3068  df-rmo 3377  df-reu 3378  df-rab 3433  df-v 3479  df-sbc 3791  df-csb 3908  df-dif 3965  df-un 3967  df-in 3969  df-ss 3979  df-pss 3982  df-nul 4339  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-op 4637  df-ot 4639  df-uni 4912  df-int 4951  df-iun 4997  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5582  df-eprel 5588  df-po 5596  df-so 5597  df-fr 5640  df-we 5642  df-xp 5694  df-rel 5695  df-cnv 5696  df-co 5697  df-dm 5698  df-rn 5699  df-res 5700  df-ima 5701  df-pred 6322  df-ord 6388  df-on 6389  df-lim 6390  df-suc 6391  df-iota 6515  df-fun 6564  df-fn 6565  df-f 6566  df-f1 6567  df-fo 6568  df-f1o 6569  df-fv 6570  df-riota 7387  df-ov 7433  df-oprab 7434  df-mpo 7435  df-om 7887  df-1st 8012  df-2nd 8013  df-frecs 8304  df-wrecs 8335  df-recs 8409  df-rdg 8448  df-1o 8504  df-er 8743  df-map 8866  df-pm 8867  df-en 8984  df-dom 8985  df-sdom 8986  df-fin 8987  df-card 9976  df-pnf 11294  df-mnf 11295  df-xr 11296  df-ltxr 11297  df-le 11298  df-sub 11491  df-neg 11492  df-nn 12264  df-2 12326  df-n0 12524  df-z 12611  df-uz 12876  df-fz 13544  df-fzo 13691  df-seq 14039  df-hash 14366  df-word 14549  df-concat 14605  df-s1 14630  df-struct 17180  df-sets 17197  df-slot 17215  df-ndx 17227  df-base 17245  df-ress 17274  df-plusg 17310  df-0g 17487  df-gsum 17488  df-mgm 18665  df-sgrp 18744  df-mnd 18760  df-submnd 18809  df-frmd 18874  df-mrex 35470  df-mex 35471  df-mdv 35472  df-mrsub 35474  df-msub 35475  df-mvh 35476  df-mpst 35477  df-msr 35478  df-msta 35479  df-mfs 35480  df-mcls 35481  df-mpps 35482  df-mthm 35483
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator