Users' Mathboxes Mathbox for Scott Fenton < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  on2recsov Structured version   Visualization version   GIF version

Theorem on2recsov 33569
Description: Calculate the value of the double ordinal recursion operator. (Contributed by Scott Fenton, 3-Sep-2024.)
Hypothesis
Ref Expression
on2recs.1 𝐹 = frecs({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))}, (On × On), 𝐺)
Assertion
Ref Expression
on2recsov ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴𝐹𝐵) = (⟨𝐴, 𝐵𝐺(𝐹 ↾ ((suc 𝐴 × suc 𝐵) ∖ {⟨𝐴, 𝐵⟩}))))
Distinct variable group:   𝑥,𝑦
Allowed substitution hints:   𝐴(𝑥,𝑦)   𝐵(𝑥,𝑦)   𝐹(𝑥,𝑦)   𝐺(𝑥,𝑦)

Proof of Theorem on2recsov
StepHypRef Expression
1 df-ov 7221 . . 3 (𝐴𝐹𝐵) = (𝐹‘⟨𝐴, 𝐵⟩)
2 opelxp 5592 . . . 4 (⟨𝐴, 𝐵⟩ ∈ (On × On) ↔ (𝐴 ∈ On ∧ 𝐵 ∈ On))
3 eqid 2737 . . . . . . . 8 {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))} = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))}
4 onfr 6257 . . . . . . . . 9 E Fr On
54a1i 11 . . . . . . . 8 (⊤ → E Fr On)
63, 5, 5frxp2 33533 . . . . . . 7 (⊤ → {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))} Fr (On × On))
76mptru 1550 . . . . . 6 {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))} Fr (On × On)
8 epweon 7565 . . . . . . . . . 10 E We On
9 weso 5547 . . . . . . . . . 10 ( E We On → E Or On)
10 sopo 5492 . . . . . . . . . 10 ( E Or On → E Po On)
118, 9, 10mp2b 10 . . . . . . . . 9 E Po On
1211a1i 11 . . . . . . . 8 (⊤ → E Po On)
133, 12, 12poxp2 33532 . . . . . . 7 (⊤ → {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))} Po (On × On))
1413mptru 1550 . . . . . 6 {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))} Po (On × On)
15 epse 5539 . . . . . . . . 9 E Se On
1615a1i 11 . . . . . . . 8 (⊤ → E Se On)
173, 16, 16sexp2 33535 . . . . . . 7 (⊤ → {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))} Se (On × On))
1817mptru 1550 . . . . . 6 {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))} Se (On × On)
197, 14, 183pm3.2i 1341 . . . . 5 ({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))} Fr (On × On) ∧ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))} Po (On × On) ∧ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))} Se (On × On))
20 on2recs.1 . . . . . 6 𝐹 = frecs({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))}, (On × On), 𝐺)
2120fpr2 8049 . . . . 5 ((({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))} Fr (On × On) ∧ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))} Po (On × On) ∧ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))} Se (On × On)) ∧ ⟨𝐴, 𝐵⟩ ∈ (On × On)) → (𝐹‘⟨𝐴, 𝐵⟩) = (⟨𝐴, 𝐵𝐺(𝐹 ↾ Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))}, (On × On), ⟨𝐴, 𝐵⟩))))
2219, 21mpan 690 . . . 4 (⟨𝐴, 𝐵⟩ ∈ (On × On) → (𝐹‘⟨𝐴, 𝐵⟩) = (⟨𝐴, 𝐵𝐺(𝐹 ↾ Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))}, (On × On), ⟨𝐴, 𝐵⟩))))
232, 22sylbir 238 . . 3 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐹‘⟨𝐴, 𝐵⟩) = (⟨𝐴, 𝐵𝐺(𝐹 ↾ Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))}, (On × On), ⟨𝐴, 𝐵⟩))))
241, 23syl5eq 2790 . 2 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴𝐹𝐵) = (⟨𝐴, 𝐵𝐺(𝐹 ↾ Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))}, (On × On), ⟨𝐴, 𝐵⟩))))
253xpord2pred 33534 . . . . 5 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))}, (On × On), ⟨𝐴, 𝐵⟩) = (((Pred( E , On, 𝐴) ∪ {𝐴}) × (Pred( E , On, 𝐵) ∪ {𝐵})) ∖ {⟨𝐴, 𝐵⟩}))
26 predon 7574 . . . . . . . . . 10 (𝐴 ∈ On → Pred( E , On, 𝐴) = 𝐴)
2726adantr 484 . . . . . . . . 9 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → Pred( E , On, 𝐴) = 𝐴)
2827uneq1d 4081 . . . . . . . 8 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (Pred( E , On, 𝐴) ∪ {𝐴}) = (𝐴 ∪ {𝐴}))
29 df-suc 6224 . . . . . . . 8 suc 𝐴 = (𝐴 ∪ {𝐴})
3028, 29eqtr4di 2796 . . . . . . 7 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (Pred( E , On, 𝐴) ∪ {𝐴}) = suc 𝐴)
31 predon 7574 . . . . . . . . . 10 (𝐵 ∈ On → Pred( E , On, 𝐵) = 𝐵)
3231adantl 485 . . . . . . . . 9 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → Pred( E , On, 𝐵) = 𝐵)
3332uneq1d 4081 . . . . . . . 8 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (Pred( E , On, 𝐵) ∪ {𝐵}) = (𝐵 ∪ {𝐵}))
34 df-suc 6224 . . . . . . . 8 suc 𝐵 = (𝐵 ∪ {𝐵})
3533, 34eqtr4di 2796 . . . . . . 7 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (Pred( E , On, 𝐵) ∪ {𝐵}) = suc 𝐵)
3630, 35xpeq12d 5587 . . . . . 6 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → ((Pred( E , On, 𝐴) ∪ {𝐴}) × (Pred( E , On, 𝐵) ∪ {𝐵})) = (suc 𝐴 × suc 𝐵))
3736difeq1d 4041 . . . . 5 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (((Pred( E , On, 𝐴) ∪ {𝐴}) × (Pred( E , On, 𝐵) ∪ {𝐵})) ∖ {⟨𝐴, 𝐵⟩}) = ((suc 𝐴 × suc 𝐵) ∖ {⟨𝐴, 𝐵⟩}))
3825, 37eqtrd 2777 . . . 4 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))}, (On × On), ⟨𝐴, 𝐵⟩) = ((suc 𝐴 × suc 𝐵) ∖ {⟨𝐴, 𝐵⟩}))
3938reseq2d 5856 . . 3 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐹 ↾ Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))}, (On × On), ⟨𝐴, 𝐵⟩)) = (𝐹 ↾ ((suc 𝐴 × suc 𝐵) ∖ {⟨𝐴, 𝐵⟩})))
4039oveq2d 7234 . 2 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (⟨𝐴, 𝐵𝐺(𝐹 ↾ Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1st𝑥) E (1st𝑦) ∨ (1st𝑥) = (1st𝑦)) ∧ ((2nd𝑥) E (2nd𝑦) ∨ (2nd𝑥) = (2nd𝑦)) ∧ 𝑥𝑦))}, (On × On), ⟨𝐴, 𝐵⟩))) = (⟨𝐴, 𝐵𝐺(𝐹 ↾ ((suc 𝐴 × suc 𝐵) ∖ {⟨𝐴, 𝐵⟩}))))
4124, 40eqtrd 2777 1 ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴𝐹𝐵) = (⟨𝐴, 𝐵𝐺(𝐹 ↾ ((suc 𝐴 × suc 𝐵) ∖ {⟨𝐴, 𝐵⟩}))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 399  wo 847  w3a 1089   = wceq 1543  wtru 1544  wcel 2110  wne 2940  cdif 3868  cun 3869  {csn 4546  cop 4552   class class class wbr 5058  {copab 5120   E cep 5464   Po wpo 5471   Or wor 5472   Fr wfr 5511   Se wse 5512   We wwe 5513   × cxp 5554  cres 5558  Predcpred 6164  Oncon0 6218  suc csuc 6220  cfv 6385  (class class class)co 7218  1st c1st 7764  2nd c2nd 7765  frecscfrecs 8027
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 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-rep 5184  ax-sep 5197  ax-nul 5204  ax-pow 5263  ax-pr 5327  ax-un 7528
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-ral 3066  df-rex 3067  df-reu 3068  df-rab 3070  df-v 3415  df-sbc 3700  df-csb 3817  df-dif 3874  df-un 3876  df-in 3878  df-ss 3888  df-pss 3890  df-nul 4243  df-if 4445  df-pw 4520  df-sn 4547  df-pr 4549  df-tp 4551  df-op 4553  df-uni 4825  df-iun 4911  df-br 5059  df-opab 5121  df-mpt 5141  df-tr 5167  df-id 5460  df-eprel 5465  df-po 5473  df-so 5474  df-fr 5514  df-se 5515  df-we 5516  df-xp 5562  df-rel 5563  df-cnv 5564  df-co 5565  df-dm 5566  df-rn 5567  df-res 5568  df-ima 5569  df-pred 6165  df-ord 6221  df-on 6222  df-suc 6224  df-iota 6343  df-fun 6387  df-fn 6388  df-f 6389  df-f1 6390  df-fo 6391  df-f1o 6392  df-fv 6393  df-ov 7221  df-1st 7766  df-2nd 7767  df-frecs 8028
This theorem is referenced by:  naddcllem  33573
  Copyright terms: Public domain W3C validator