on2recsov - Metamath Proof Explorer

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

Theorem on2recsov 8661

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) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))}, (On × On), 𝐺)

**Assertion**
Ref	Expression
on2recsov	⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴𝐹𝐵) = (⟨𝐴, 𝐵⟩𝐺(𝐹 ↾ ((suc 𝐴 × suc 𝐵) ∖ {⟨𝐴, 𝐵⟩}))))

Distinct variable group: 𝑥,𝑦 Allowed substitution hints: 𝐴(𝑥, 𝑦) 𝐵(𝑥, 𝑦) 𝐹(𝑥, 𝑦) 𝐺(𝑥, 𝑦)

**Proof of Theorem on2recsov**
Step	Hyp	Ref	Expression
1		df-ov 7415	. . 3 ⊢ (𝐴𝐹𝐵) = (𝐹‘⟨𝐴, 𝐵⟩)
2		opelxp 5687	. . . 4 ⊢ (⟨𝐴, 𝐵⟩ ∈ (On × On) ↔ (𝐴 ∈ On ∧ 𝐵 ∈ On))
3		eqid 2761	. . . . . . . 8 ⊢ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))} = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))}
4		onfr 6395	. . . . . . . . 9 ⊢ E Fr On
5	4	a1i 11	. . . . . . . 8 ⊢ (⊤ → E Fr On)
6	3, 5, 5	frxp2 8145	. . . . . . 7 ⊢ (⊤ → {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))} Fr (On × On))
7	6	mptru 1577	. . . . . 6 ⊢ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))} Fr (On × On)
8		epweon 7778	. . . . . . . . . 10 ⊢ E We On
9		weso 5642	. . . . . . . . . 10 ⊢ ( E We On → E Or On)
10		sopo 5578	. . . . . . . . . 10 ⊢ ( E Or On → E Po On)
11	8, 9, 10	mp2b 10	. . . . . . . . 9 ⊢ E Po On
12	11	a1i 11	. . . . . . . 8 ⊢ (⊤ → E Po On)
13	3, 12, 12	poxp2 8144	. . . . . . 7 ⊢ (⊤ → {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))} Po (On × On))
14	13	mptru 1577	. . . . . 6 ⊢ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))} Po (On × On)
15		epse 5633	. . . . . . . . 9 ⊢ E Se On
16	15	a1i 11	. . . . . . . 8 ⊢ (⊤ → E Se On)
17	3, 16, 16	sexp2 8147	. . . . . . 7 ⊢ (⊤ → {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))} Se (On × On))
18	17	mptru 1577	. . . . . 6 ⊢ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))} Se (On × On)
19	7, 14, 18	3pm3.2i 1358	. . . . 5 ⊢ ({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))} Fr (On × On) ∧ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))} Po (On × On) ∧ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))} Se (On × On))
20		on2recs.1	. . . . . 6 ⊢ 𝐹 = frecs({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))}, (On × On), 𝐺)
21	20	fpr2 8306	. . . . 5 ⊢ ((({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))} Fr (On × On) ∧ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))} Po (On × On) ∧ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))} Se (On × On)) ∧ ⟨𝐴, 𝐵⟩ ∈ (On × On)) → (𝐹‘⟨𝐴, 𝐵⟩) = (⟨𝐴, 𝐵⟩𝐺(𝐹 ↾ Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))}, (On × On), ⟨𝐴, 𝐵⟩))))
22	19, 21	mpan 703	. . . 4 ⊢ (⟨𝐴, 𝐵⟩ ∈ (On × On) → (𝐹‘⟨𝐴, 𝐵⟩) = (⟨𝐴, 𝐵⟩𝐺(𝐹 ↾ Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))}, (On × On), ⟨𝐴, 𝐵⟩))))
23	2, 22	sylbir 238	. . 3 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐹‘⟨𝐴, 𝐵⟩) = (⟨𝐴, 𝐵⟩𝐺(𝐹 ↾ Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))}, (On × On), ⟨𝐴, 𝐵⟩))))
24	1, 23	eqtrid 2808	. 2 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴𝐹𝐵) = (⟨𝐴, 𝐵⟩𝐺(𝐹 ↾ Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))}, (On × On), ⟨𝐴, 𝐵⟩))))
25	3	xpord2pred 8146	. . . . 5 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))}, (On × On), ⟨𝐴, 𝐵⟩) = (((Pred( E , On, 𝐴) ∪ {𝐴}) × (Pred( E , On, 𝐵) ∪ {𝐵})) ∖ {⟨𝐴, 𝐵⟩}))
26		predon 7789	. . . . . . . . . 10 ⊢ (𝐴 ∈ On → Pred( E , On, 𝐴) = 𝐴)
27	26	adantr 486	. . . . . . . . 9 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → Pred( E , On, 𝐴) = 𝐴)
28	27	uneq1d 4114	. . . . . . . 8 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (Pred( E , On, 𝐴) ∪ {𝐴}) = (𝐴 ∪ {𝐴}))
29		df-suc 6361	. . . . . . . 8 ⊢ suc 𝐴 = (𝐴 ∪ {𝐴})
30	28, 29	eqtr4di 2814	. . . . . . 7 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (Pred( E , On, 𝐴) ∪ {𝐴}) = suc 𝐴)
31		predon 7789	. . . . . . . . . 10 ⊢ (𝐵 ∈ On → Pred( E , On, 𝐵) = 𝐵)
32	31	adantl 487	. . . . . . . . 9 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → Pred( E , On, 𝐵) = 𝐵)
33	32	uneq1d 4114	. . . . . . . 8 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (Pred( E , On, 𝐵) ∪ {𝐵}) = (𝐵 ∪ {𝐵}))
34		df-suc 6361	. . . . . . . 8 ⊢ suc 𝐵 = (𝐵 ∪ {𝐵})
35	33, 34	eqtr4di 2814	. . . . . . 7 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (Pred( E , On, 𝐵) ∪ {𝐵}) = suc 𝐵)
36	30, 35	xpeq12d 5682	. . . . . 6 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → ((Pred( E , On, 𝐴) ∪ {𝐴}) × (Pred( E , On, 𝐵) ∪ {𝐵})) = (suc 𝐴 × suc 𝐵))
37	36	difeq1d 4073	. . . . 5 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (((Pred( E , On, 𝐴) ∪ {𝐴}) × (Pred( E , On, 𝐵) ∪ {𝐵})) ∖ {⟨𝐴, 𝐵⟩}) = ((suc 𝐴 × suc 𝐵) ∖ {⟨𝐴, 𝐵⟩}))
38	25, 37	eqtrd 2796	. . . 4 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))}, (On × On), ⟨𝐴, 𝐵⟩) = ((suc 𝐴 × suc 𝐵) ∖ {⟨𝐴, 𝐵⟩}))
39	38	reseq2d 5970	. . 3 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐹 ↾ Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))}, (On × On), ⟨𝐴, 𝐵⟩)) = (𝐹 ↾ ((suc 𝐴 × suc 𝐵) ∖ {⟨𝐴, 𝐵⟩})))
40	39	oveq2d 7428	. 2 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (⟨𝐴, 𝐵⟩𝐺(𝐹 ↾ Pred({⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On) ∧ (((1^st ‘𝑥) E (1^st ‘𝑦) ∨ (1^st ‘𝑥) = (1^st ‘𝑦)) ∧ ((2^nd ‘𝑥) E (2^nd ‘𝑦) ∨ (2^nd ‘𝑥) = (2^nd ‘𝑦)) ∧ 𝑥 ≠ 𝑦))}, (On × On), ⟨𝐴, 𝐵⟩))) = (⟨𝐴, 𝐵⟩𝐺(𝐹 ↾ ((suc 𝐴 × suc 𝐵) ∖ {⟨𝐴, 𝐵⟩}))))
41	24, 40	eqtrd 2796	1 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴𝐹𝐵) = (⟨𝐴, 𝐵⟩𝐺(𝐹 ↾ ((suc 𝐴 × suc 𝐵) ∖ {⟨𝐴, 𝐵⟩}))))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ∧ wa 401 ∨ wo 861 ∧ w3a 1103 = wceq 1570 ⊤wtru 1571 ∈ wcel 2145 ≠ wne 2956 ∖ cdif 3896 ∪ cun 3897 {csn 4584 ⟨cop 4590 class class class wbr 5103 {copab 5167 E cep 5550 Po wpo 5557 Or wor 5558 Fr wfr 5601 Se wse 5602 We wwe 5603 × cxp 5649 ↾ cres 5653 Predcpred 6296 Oncon0 6355 suc csuc 6357 ‘cfv 6531 (class class class)co 7412 1^st c1st 7988 2^nd c2nd 7989 frecscfrecs 8282

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2733 ax-rep 5232 ax-sep 5249 ax-nul 5260 ax-pow 5327 ax-pr 5391 ax-un 7740

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-ral 3078 df-rex 3088 df-reu 3367 df-rab 3414 df-v 3453 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-op 4591 df-uni 4868 df-iun 4953 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5546 df-eprel 5551 df-po 5559 df-so 5560 df-fr 5604 df-se 5605 df-we 5606 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-res 5663 df-ima 5664 df-pred 6297 df-ord 6358 df-on 6359 df-suc 6361 df-iota 6487 df-fun 6533 df-fn 6534 df-f 6535 df-f1 6536 df-fo 6537 df-f1o 6538 df-fv 6539 df-ov 7415 df-1st 7990 df-2nd 7991 df-frecs 8283

This theorem is used by: naddcllem 8669 nmulprop 36909

W3C validator