Metamath Proof Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >  ltbval Structured version   Visualization version   GIF version

Theorem ltbval 19411
 Description: Value of the well-order on finite bags. (Contributed by Mario Carneiro, 8-Feb-2015.)
Hypotheses
Ref Expression
ltbval.c 𝐶 = (𝑇 <bag 𝐼)
ltbval.d 𝐷 = { ∈ (ℕ0𝑚 𝐼) ∣ ( “ ℕ) ∈ Fin}
ltbval.i (𝜑𝐼𝑉)
ltbval.t (𝜑𝑇𝑊)
Assertion
Ref Expression
ltbval (𝜑𝐶 = {⟨𝑥, 𝑦⟩ ∣ ({𝑥, 𝑦} ⊆ 𝐷 ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))})
Distinct variable groups:   𝑥,𝑦,𝐷   𝑤,,𝑥,𝑦,𝑧,𝐼   𝜑,,𝑥,𝑦   𝑤,𝑇,𝑥,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑧,𝑤)   𝐶(𝑥,𝑦,𝑧,𝑤,)   𝐷(𝑧,𝑤,)   𝑇()   𝑉(𝑥,𝑦,𝑧,𝑤,)   𝑊(𝑥,𝑦,𝑧,𝑤,)

Proof of Theorem ltbval
Dummy variables 𝑖 𝑟 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ltbval.c . 2 𝐶 = (𝑇 <bag 𝐼)
2 ltbval.t . . 3 (𝜑𝑇𝑊)
3 ltbval.i . . 3 (𝜑𝐼𝑉)
4 elex 3202 . . . 4 (𝑇𝑊𝑇 ∈ V)
5 elex 3202 . . . 4 (𝐼𝑉𝐼 ∈ V)
6 simpr 477 . . . . . . . . . . 11 ((𝑟 = 𝑇𝑖 = 𝐼) → 𝑖 = 𝐼)
76oveq2d 6631 . . . . . . . . . 10 ((𝑟 = 𝑇𝑖 = 𝐼) → (ℕ0𝑚 𝑖) = (ℕ0𝑚 𝐼))
8 rabeq 3183 . . . . . . . . . 10 ((ℕ0𝑚 𝑖) = (ℕ0𝑚 𝐼) → { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} = { ∈ (ℕ0𝑚 𝐼) ∣ ( “ ℕ) ∈ Fin})
97, 8syl 17 . . . . . . . . 9 ((𝑟 = 𝑇𝑖 = 𝐼) → { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} = { ∈ (ℕ0𝑚 𝐼) ∣ ( “ ℕ) ∈ Fin})
10 ltbval.d . . . . . . . . 9 𝐷 = { ∈ (ℕ0𝑚 𝐼) ∣ ( “ ℕ) ∈ Fin}
119, 10syl6eqr 2673 . . . . . . . 8 ((𝑟 = 𝑇𝑖 = 𝐼) → { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} = 𝐷)
1211sseq2d 3618 . . . . . . 7 ((𝑟 = 𝑇𝑖 = 𝐼) → ({𝑥, 𝑦} ⊆ { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} ↔ {𝑥, 𝑦} ⊆ 𝐷))
13 simpl 473 . . . . . . . . . . . 12 ((𝑟 = 𝑇𝑖 = 𝐼) → 𝑟 = 𝑇)
1413breqd 4634 . . . . . . . . . . 11 ((𝑟 = 𝑇𝑖 = 𝐼) → (𝑧𝑟𝑤𝑧𝑇𝑤))
1514imbi1d 331 . . . . . . . . . 10 ((𝑟 = 𝑇𝑖 = 𝐼) → ((𝑧𝑟𝑤 → (𝑥𝑤) = (𝑦𝑤)) ↔ (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))
166, 15raleqbidv 3145 . . . . . . . . 9 ((𝑟 = 𝑇𝑖 = 𝐼) → (∀𝑤𝑖 (𝑧𝑟𝑤 → (𝑥𝑤) = (𝑦𝑤)) ↔ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))
1716anbi2d 739 . . . . . . . 8 ((𝑟 = 𝑇𝑖 = 𝐼) → (((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝑖 (𝑧𝑟𝑤 → (𝑥𝑤) = (𝑦𝑤))) ↔ ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤)))))
186, 17rexeqbidv 3146 . . . . . . 7 ((𝑟 = 𝑇𝑖 = 𝐼) → (∃𝑧𝑖 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝑖 (𝑧𝑟𝑤 → (𝑥𝑤) = (𝑦𝑤))) ↔ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤)))))
1912, 18anbi12d 746 . . . . . 6 ((𝑟 = 𝑇𝑖 = 𝐼) → (({𝑥, 𝑦} ⊆ { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} ∧ ∃𝑧𝑖 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝑖 (𝑧𝑟𝑤 → (𝑥𝑤) = (𝑦𝑤)))) ↔ ({𝑥, 𝑦} ⊆ 𝐷 ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))))
2019opabbidv 4688 . . . . 5 ((𝑟 = 𝑇𝑖 = 𝐼) → {⟨𝑥, 𝑦⟩ ∣ ({𝑥, 𝑦} ⊆ { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} ∧ ∃𝑧𝑖 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝑖 (𝑧𝑟𝑤 → (𝑥𝑤) = (𝑦𝑤))))} = {⟨𝑥, 𝑦⟩ ∣ ({𝑥, 𝑦} ⊆ 𝐷 ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))})
21 df-ltbag 19299 . . . . 5 <bag = (𝑟 ∈ V, 𝑖 ∈ V ↦ {⟨𝑥, 𝑦⟩ ∣ ({𝑥, 𝑦} ⊆ { ∈ (ℕ0𝑚 𝑖) ∣ ( “ ℕ) ∈ Fin} ∧ ∃𝑧𝑖 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝑖 (𝑧𝑟𝑤 → (𝑥𝑤) = (𝑦𝑤))))})
22 vex 3193 . . . . . . . . 9 𝑥 ∈ V
23 vex 3193 . . . . . . . . 9 𝑦 ∈ V
2422, 23prss 4326 . . . . . . . 8 ((𝑥𝐷𝑦𝐷) ↔ {𝑥, 𝑦} ⊆ 𝐷)
2524anbi1i 730 . . . . . . 7 (((𝑥𝐷𝑦𝐷) ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤)))) ↔ ({𝑥, 𝑦} ⊆ 𝐷 ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤)))))
2625opabbii 4689 . . . . . 6 {⟨𝑥, 𝑦⟩ ∣ ((𝑥𝐷𝑦𝐷) ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))} = {⟨𝑥, 𝑦⟩ ∣ ({𝑥, 𝑦} ⊆ 𝐷 ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))}
27 ovex 6643 . . . . . . . . 9 (ℕ0𝑚 𝐼) ∈ V
2810, 27rabex2 4785 . . . . . . . 8 𝐷 ∈ V
2928, 28xpex 6927 . . . . . . 7 (𝐷 × 𝐷) ∈ V
30 opabssxp 5164 . . . . . . 7 {⟨𝑥, 𝑦⟩ ∣ ((𝑥𝐷𝑦𝐷) ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))} ⊆ (𝐷 × 𝐷)
3129, 30ssexi 4773 . . . . . 6 {⟨𝑥, 𝑦⟩ ∣ ((𝑥𝐷𝑦𝐷) ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))} ∈ V
3226, 31eqeltrri 2695 . . . . 5 {⟨𝑥, 𝑦⟩ ∣ ({𝑥, 𝑦} ⊆ 𝐷 ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))} ∈ V
3320, 21, 32ovmpt2a 6756 . . . 4 ((𝑇 ∈ V ∧ 𝐼 ∈ V) → (𝑇 <bag 𝐼) = {⟨𝑥, 𝑦⟩ ∣ ({𝑥, 𝑦} ⊆ 𝐷 ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))})
344, 5, 33syl2an 494 . . 3 ((𝑇𝑊𝐼𝑉) → (𝑇 <bag 𝐼) = {⟨𝑥, 𝑦⟩ ∣ ({𝑥, 𝑦} ⊆ 𝐷 ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))})
352, 3, 34syl2anc 692 . 2 (𝜑 → (𝑇 <bag 𝐼) = {⟨𝑥, 𝑦⟩ ∣ ({𝑥, 𝑦} ⊆ 𝐷 ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))})
361, 35syl5eq 2667 1 (𝜑𝐶 = {⟨𝑥, 𝑦⟩ ∣ ({𝑥, 𝑦} ⊆ 𝐷 ∧ ∃𝑧𝐼 ((𝑥𝑧) < (𝑦𝑧) ∧ ∀𝑤𝐼 (𝑧𝑇𝑤 → (𝑥𝑤) = (𝑦𝑤))))})
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ∧ wa 384   = wceq 1480   ∈ wcel 1987  ∀wral 2908  ∃wrex 2909  {crab 2912  Vcvv 3190   ⊆ wss 3560  {cpr 4157   class class class wbr 4623  {copab 4682   × cxp 5082  ◡ccnv 5083   “ cima 5087  ‘cfv 5857  (class class class)co 6615   ↑𝑚 cmap 7817  Fincfn 7915   < clt 10034  ℕcn 10980  ℕ0cn0 11252
 Copyright terms: Public domain W3C validator