Theorem rdgeqoa 34130

Description: If a recursive function with an initial value 𝐴 at step 𝑁 is equal to itself with an initial value 𝐵 at step 𝑀, then every finite number of successor steps will also be equal. (Contributed by ML, 21-Oct-2020.)

Assertion

Ref	Expression
rdgeqoa	⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑋 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑋)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑋))))

Proof of Theorem rdgeqoa

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simp3 1119	. 2 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑋 ∈ ω) → 𝑋 ∈ ω)
2		eleq1 2846	. . . . 5 ⊢ (𝑥 = 𝑋 → (𝑥 ∈ ω ↔ 𝑋 ∈ ω))
3	2	3anbi3d 1422	. . . 4 ⊢ (𝑥 = 𝑋 → ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) ↔ (𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑋 ∈ ω)))
4		oveq2 6982	. . . . . . 7 ⊢ (𝑥 = 𝑋 → (𝑁 +o 𝑥) = (𝑁 +o 𝑋))
5	4	fveq2d 6500	. . . . . 6 ⊢ (𝑥 = 𝑋 → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐴)‘(𝑁 +o 𝑋)))
6		oveq2 6982	. . . . . . 7 ⊢ (𝑥 = 𝑋 → (𝑀 +o 𝑥) = (𝑀 +o 𝑋))
7	6	fveq2d 6500	. . . . . 6 ⊢ (𝑥 = 𝑋 → (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑋)))
8	5, 7	eqeq12d 2786	. . . . 5 ⊢ (𝑥 = 𝑋 → ((rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) ↔ (rec(𝐹, 𝐴)‘(𝑁 +o 𝑋)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑋))))
9	8	imbi2d 333	. . . 4 ⊢ (𝑥 = 𝑋 → (((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))) ↔ ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑋)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑋)))))
10	3, 9	imbi12d 337	. . 3 ⊢ (𝑥 = 𝑋 → (((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))) ↔ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑋 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑋)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑋))))))
11		peano1 7414	. . . . 5 ⊢ ∅ ∈ ω
12		oa0 7941	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ On → (𝑁 +o ∅) = 𝑁)
13	12	fveq2d 6500	. . . . . . . . . . 11 ⊢ (𝑁 ∈ On → (rec(𝐹, 𝐴)‘(𝑁 +o ∅)) = (rec(𝐹, 𝐴)‘𝑁))
14	13	eqcomd 2777	. . . . . . . . . 10 ⊢ (𝑁 ∈ On → (rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐴)‘(𝑁 +o ∅)))
15		oa0 7941	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ On → (𝑀 +o ∅) = 𝑀)
16	15	fveq2d 6500	. . . . . . . . . . 11 ⊢ (𝑀 ∈ On → (rec(𝐹, 𝐵)‘(𝑀 +o ∅)) = (rec(𝐹, 𝐵)‘𝑀))
17	16	eqcomd 2777	. . . . . . . . . 10 ⊢ (𝑀 ∈ On → (rec(𝐹, 𝐵)‘𝑀) = (rec(𝐹, 𝐵)‘(𝑀 +o ∅)))
18	14, 17	eqeqan12d 2787	. . . . . . . . 9 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) ↔ (rec(𝐹, 𝐴)‘(𝑁 +o ∅)) = (rec(𝐹, 𝐵)‘(𝑀 +o ∅))))
19	18	biimpd 221	. . . . . . . 8 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o ∅)) = (rec(𝐹, 𝐵)‘(𝑀 +o ∅))))
20		eleq1 2846	. . . . . . . . . . 11 ⊢ (𝑥 = ∅ → (𝑥 ∈ ω ↔ ∅ ∈ ω))
21	20	3anbi3d 1422	. . . . . . . . . 10 ⊢ (𝑥 = ∅ → ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) ↔ (𝑁 ∈ On ∧ 𝑀 ∈ On ∧ ∅ ∈ ω)))
22	11	biantru 522	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ On ↔ (𝑀 ∈ On ∧ ∅ ∈ ω))
23	22	anbi2i 614	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On) ↔ (𝑁 ∈ On ∧ (𝑀 ∈ On ∧ ∅ ∈ ω)))
24		3anass 1077	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ ∅ ∈ ω) ↔ (𝑁 ∈ On ∧ (𝑀 ∈ On ∧ ∅ ∈ ω)))
25	23, 24	bitr4i 270	. . . . . . . . . 10 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On) ↔ (𝑁 ∈ On ∧ 𝑀 ∈ On ∧ ∅ ∈ ω))
26	21, 25	syl6bbr 281	. . . . . . . . 9 ⊢ (𝑥 = ∅ → ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) ↔ (𝑁 ∈ On ∧ 𝑀 ∈ On)))
27		oveq2 6982	. . . . . . . . . . . 12 ⊢ (𝑥 = ∅ → (𝑁 +o 𝑥) = (𝑁 +o ∅))
28	27	fveq2d 6500	. . . . . . . . . . 11 ⊢ (𝑥 = ∅ → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐴)‘(𝑁 +o ∅)))
29		oveq2 6982	. . . . . . . . . . . 12 ⊢ (𝑥 = ∅ → (𝑀 +o 𝑥) = (𝑀 +o ∅))
30	29	fveq2d 6500	. . . . . . . . . . 11 ⊢ (𝑥 = ∅ → (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o ∅)))
31	28, 30	eqeq12d 2786	. . . . . . . . . 10 ⊢ (𝑥 = ∅ → ((rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) ↔ (rec(𝐹, 𝐴)‘(𝑁 +o ∅)) = (rec(𝐹, 𝐵)‘(𝑀 +o ∅))))
32	31	imbi2d 333	. . . . . . . . 9 ⊢ (𝑥 = ∅ → (((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))) ↔ ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o ∅)) = (rec(𝐹, 𝐵)‘(𝑀 +o ∅)))))
33	26, 32	imbi12d 337	. . . . . . . 8 ⊢ (𝑥 = ∅ → (((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))) ↔ ((𝑁 ∈ On ∧ 𝑀 ∈ On) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o ∅)) = (rec(𝐹, 𝐵)‘(𝑀 +o ∅))))))
34	19, 33	mpbiri 250	. . . . . . 7 ⊢ (𝑥 = ∅ → ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))))
35	34	ax-gen 1759	. . . . . 6 ⊢ ∀𝑥(𝑥 = ∅ → ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))))
36		sbc6g 3700	. . . . . 6 ⊢ (∅ ∈ ω → ([∅ / 𝑥]((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))) ↔ ∀𝑥(𝑥 = ∅ → ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))))))
37	35, 36	mpbiri 250	. . . . 5 ⊢ (∅ ∈ ω → [∅ / 𝑥]((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))))
38	11, 37	ax-mp 5	. . . 4 ⊢ [∅ / 𝑥]((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))))
39		peano2b 7410	. . . . 5 ⊢ (𝑥 ∈ ω ↔ suc 𝑥 ∈ ω)
40	39	3anbi3i 1140	. . . . . . . 8 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) ↔ (𝑁 ∈ On ∧ 𝑀 ∈ On ∧ suc 𝑥 ∈ ω))
41	40	imbi1i 342	. . . . . . 7 ⊢ (((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))) ↔ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ suc 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))))
42		nnon 7400	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ ω → 𝑥 ∈ On)
43		oacl 7960	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ On ∧ 𝑥 ∈ On) → (𝑁 +o 𝑥) ∈ On)
44		oacl 7960	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 ∈ On ∧ 𝑥 ∈ On) → (𝑀 +o 𝑥) ∈ On)
45	43, 44	anim12i 604	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 ∈ On ∧ 𝑥 ∈ On) ∧ (𝑀 ∈ On ∧ 𝑥 ∈ On)) → ((𝑁 +o 𝑥) ∈ On ∧ (𝑀 +o 𝑥) ∈ On))
46	45	3impdir 1332	. . . . . . . . . . . . . . 15 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ On) → ((𝑁 +o 𝑥) ∈ On ∧ (𝑀 +o 𝑥) ∈ On))
47		rdgsuc 7862	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 +o 𝑥) ∈ On → (rec(𝐹, 𝐴)‘suc (𝑁 +o 𝑥)) = (𝐹‘(rec(𝐹, 𝐴)‘(𝑁 +o 𝑥))))
48		fveq2 6496	. . . . . . . . . . . . . . . . . 18 ⊢ ((rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) → (𝐹‘(rec(𝐹, 𝐴)‘(𝑁 +o 𝑥))) = (𝐹‘(rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))))
49	47, 48	sylan9eqr 2829	. . . . . . . . . . . . . . . . 17 ⊢ (((rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) ∧ (𝑁 +o 𝑥) ∈ On) → (rec(𝐹, 𝐴)‘suc (𝑁 +o 𝑥)) = (𝐹‘(rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))))
50	49	adantrr 705	. . . . . . . . . . . . . . . 16 ⊢ (((rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) ∧ ((𝑁 +o 𝑥) ∈ On ∧ (𝑀 +o 𝑥) ∈ On)) → (rec(𝐹, 𝐴)‘suc (𝑁 +o 𝑥)) = (𝐹‘(rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))))
51		rdgsuc 7862	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 +o 𝑥) ∈ On → (rec(𝐹, 𝐵)‘suc (𝑀 +o 𝑥)) = (𝐹‘(rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))))
52	51	ad2antll 717	. . . . . . . . . . . . . . . 16 ⊢ (((rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) ∧ ((𝑁 +o 𝑥) ∈ On ∧ (𝑀 +o 𝑥) ∈ On)) → (rec(𝐹, 𝐵)‘suc (𝑀 +o 𝑥)) = (𝐹‘(rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))))
53	50, 52	eqtr4d 2810	. . . . . . . . . . . . . . 15 ⊢ (((rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) ∧ ((𝑁 +o 𝑥) ∈ On ∧ (𝑀 +o 𝑥) ∈ On)) → (rec(𝐹, 𝐴)‘suc (𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘suc (𝑀 +o 𝑥)))
54	46, 53	sylan2 584	. . . . . . . . . . . . . 14 ⊢ (((rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) ∧ (𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ On)) → (rec(𝐹, 𝐴)‘suc (𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘suc (𝑀 +o 𝑥)))
55	54	ancoms 451	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ On) ∧ (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))) → (rec(𝐹, 𝐴)‘suc (𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘suc (𝑀 +o 𝑥)))
56	42, 55	syl3anl3 1395	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) ∧ (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))) → (rec(𝐹, 𝐴)‘suc (𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘suc (𝑀 +o 𝑥)))
57		onasuc 7953	. . . . . . . . . . . . . . 15 ⊢ ((𝑁 ∈ On ∧ 𝑥 ∈ ω) → (𝑁 +o suc 𝑥) = suc (𝑁 +o 𝑥))
58	57	fveq2d 6500	. . . . . . . . . . . . . 14 ⊢ ((𝑁 ∈ On ∧ 𝑥 ∈ ω) → (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐴)‘suc (𝑁 +o 𝑥)))
59	58	3adant2 1112	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐴)‘suc (𝑁 +o 𝑥)))
60	59	adantr 473	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) ∧ (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))) → (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐴)‘suc (𝑁 +o 𝑥)))
61		onasuc 7953	. . . . . . . . . . . . . . 15 ⊢ ((𝑀 ∈ On ∧ 𝑥 ∈ ω) → (𝑀 +o suc 𝑥) = suc (𝑀 +o 𝑥))
62	61	fveq2d 6500	. . . . . . . . . . . . . 14 ⊢ ((𝑀 ∈ On ∧ 𝑥 ∈ ω) → (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘suc (𝑀 +o 𝑥)))
63	62	3adant1 1111	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘suc (𝑀 +o 𝑥)))
64	63	adantr 473	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) ∧ (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))) → (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘suc (𝑀 +o 𝑥)))
65	56, 60, 64	3eqtr4d 2817	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) ∧ (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))) → (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥)))
66	65	ex 405	. . . . . . . . . 10 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) → (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥))))
67	66	imim2d 57	. . . . . . . . 9 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → (((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥)))))
68	40, 67	sylbir 227	. . . . . . . 8 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ suc 𝑥 ∈ ω) → (((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥)))))
69	68	a2i 14	. . . . . . 7 ⊢ (((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ suc 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))) → ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ suc 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥)))))
70	41, 69	sylbi 209	. . . . . 6 ⊢ (((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))) → ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ suc 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥)))))
71		sbcimg 3717	. . . . . . 7 ⊢ (suc 𝑥 ∈ ω → ([suc 𝑥 / 𝑥]((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))) ↔ ([suc 𝑥 / 𝑥](𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → [suc 𝑥 / 𝑥]((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))))))
72		sbc3an 3734	. . . . . . . . 9 ⊢ ([suc 𝑥 / 𝑥](𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) ↔ ([suc 𝑥 / 𝑥]𝑁 ∈ On ∧ [suc 𝑥 / 𝑥]𝑀 ∈ On ∧ [suc 𝑥 / 𝑥]𝑥 ∈ ω))
73		sbcg 3743	. . . . . . . . . 10 ⊢ (suc 𝑥 ∈ ω → ([suc 𝑥 / 𝑥]𝑁 ∈ On ↔ 𝑁 ∈ On))
74		sbcg 3743	. . . . . . . . . 10 ⊢ (suc 𝑥 ∈ ω → ([suc 𝑥 / 𝑥]𝑀 ∈ On ↔ 𝑀 ∈ On))
75		sbcel1v 3735	. . . . . . . . . . 11 ⊢ ([suc 𝑥 / 𝑥]𝑥 ∈ ω ↔ suc 𝑥 ∈ ω)
76	75	a1i 11	. . . . . . . . . 10 ⊢ (suc 𝑥 ∈ ω → ([suc 𝑥 / 𝑥]𝑥 ∈ ω ↔ suc 𝑥 ∈ ω))
77	73, 74, 76	3anbi123d 1416	. . . . . . . . 9 ⊢ (suc 𝑥 ∈ ω → (([suc 𝑥 / 𝑥]𝑁 ∈ On ∧ [suc 𝑥 / 𝑥]𝑀 ∈ On ∧ [suc 𝑥 / 𝑥]𝑥 ∈ ω) ↔ (𝑁 ∈ On ∧ 𝑀 ∈ On ∧ suc 𝑥 ∈ ω)))
78	72, 77	syl5bb 275	. . . . . . . 8 ⊢ (suc 𝑥 ∈ ω → ([suc 𝑥 / 𝑥](𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) ↔ (𝑁 ∈ On ∧ 𝑀 ∈ On ∧ suc 𝑥 ∈ ω)))
79		sbcimg 3717	. . . . . . . . 9 ⊢ (suc 𝑥 ∈ ω → ([suc 𝑥 / 𝑥]((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))) ↔ ([suc 𝑥 / 𝑥](rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → [suc 𝑥 / 𝑥](rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))))
80		sbcg 3743	. . . . . . . . . 10 ⊢ (suc 𝑥 ∈ ω → ([suc 𝑥 / 𝑥](rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) ↔ (rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀)))
81		sbceqg 4241	. . . . . . . . . . 11 ⊢ (suc 𝑥 ∈ ω → ([suc 𝑥 / 𝑥](rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) ↔ ⦋suc 𝑥 / 𝑥⦌(rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = ⦋suc 𝑥 / 𝑥⦌(rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))))
82		csbfv12 6540	. . . . . . . . . . . . 13 ⊢ ⦋suc 𝑥 / 𝑥⦌(rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (⦋suc 𝑥 / 𝑥⦌rec(𝐹, 𝐴)‘⦋suc 𝑥 / 𝑥⦌(𝑁 +o 𝑥))
83		csbconstg 3792	. . . . . . . . . . . . . 14 ⊢ (suc 𝑥 ∈ ω → ⦋suc 𝑥 / 𝑥⦌rec(𝐹, 𝐴) = rec(𝐹, 𝐴))
84		csbov123 7015	. . . . . . . . . . . . . . 15 ⊢ ⦋suc 𝑥 / 𝑥⦌(𝑁 +o 𝑥) = (⦋suc 𝑥 / 𝑥⦌𝑁⦋suc 𝑥 / 𝑥⦌ +o ⦋suc 𝑥 / 𝑥⦌𝑥)
85		csbconstg 3792	. . . . . . . . . . . . . . . 16 ⊢ (suc 𝑥 ∈ ω → ⦋suc 𝑥 / 𝑥⦌ +o = +o )
86		csbconstg 3792	. . . . . . . . . . . . . . . 16 ⊢ (suc 𝑥 ∈ ω → ⦋suc 𝑥 / 𝑥⦌𝑁 = 𝑁)
87		csbvarg 4261	. . . . . . . . . . . . . . . 16 ⊢ (suc 𝑥 ∈ ω → ⦋suc 𝑥 / 𝑥⦌𝑥 = suc 𝑥)
88	85, 86, 87	oveq123d 6995	. . . . . . . . . . . . . . 15 ⊢ (suc 𝑥 ∈ ω → (⦋suc 𝑥 / 𝑥⦌𝑁⦋suc 𝑥 / 𝑥⦌ +o ⦋suc 𝑥 / 𝑥⦌𝑥) = (𝑁 +o suc 𝑥))
89	84, 88	syl5eq 2819	. . . . . . . . . . . . . 14 ⊢ (suc 𝑥 ∈ ω → ⦋suc 𝑥 / 𝑥⦌(𝑁 +o 𝑥) = (𝑁 +o suc 𝑥))
90	83, 89	fveq12d 6503	. . . . . . . . . . . . 13 ⊢ (suc 𝑥 ∈ ω → (⦋suc 𝑥 / 𝑥⦌rec(𝐹, 𝐴)‘⦋suc 𝑥 / 𝑥⦌(𝑁 +o 𝑥)) = (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)))
91	82, 90	syl5eq 2819	. . . . . . . . . . . 12 ⊢ (suc 𝑥 ∈ ω → ⦋suc 𝑥 / 𝑥⦌(rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)))
92		csbfv12 6540	. . . . . . . . . . . . 13 ⊢ ⦋suc 𝑥 / 𝑥⦌(rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) = (⦋suc 𝑥 / 𝑥⦌rec(𝐹, 𝐵)‘⦋suc 𝑥 / 𝑥⦌(𝑀 +o 𝑥))
93		csbconstg 3792	. . . . . . . . . . . . . 14 ⊢ (suc 𝑥 ∈ ω → ⦋suc 𝑥 / 𝑥⦌rec(𝐹, 𝐵) = rec(𝐹, 𝐵))
94		csbov123 7015	. . . . . . . . . . . . . . 15 ⊢ ⦋suc 𝑥 / 𝑥⦌(𝑀 +o 𝑥) = (⦋suc 𝑥 / 𝑥⦌𝑀⦋suc 𝑥 / 𝑥⦌ +o ⦋suc 𝑥 / 𝑥⦌𝑥)
95		csbconstg 3792	. . . . . . . . . . . . . . . 16 ⊢ (suc 𝑥 ∈ ω → ⦋suc 𝑥 / 𝑥⦌𝑀 = 𝑀)
96	85, 95, 87	oveq123d 6995	. . . . . . . . . . . . . . 15 ⊢ (suc 𝑥 ∈ ω → (⦋suc 𝑥 / 𝑥⦌𝑀⦋suc 𝑥 / 𝑥⦌ +o ⦋suc 𝑥 / 𝑥⦌𝑥) = (𝑀 +o suc 𝑥))
97	94, 96	syl5eq 2819	. . . . . . . . . . . . . 14 ⊢ (suc 𝑥 ∈ ω → ⦋suc 𝑥 / 𝑥⦌(𝑀 +o 𝑥) = (𝑀 +o suc 𝑥))
98	93, 97	fveq12d 6503	. . . . . . . . . . . . 13 ⊢ (suc 𝑥 ∈ ω → (⦋suc 𝑥 / 𝑥⦌rec(𝐹, 𝐵)‘⦋suc 𝑥 / 𝑥⦌(𝑀 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥)))
99	92, 98	syl5eq 2819	. . . . . . . . . . . 12 ⊢ (suc 𝑥 ∈ ω → ⦋suc 𝑥 / 𝑥⦌(rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥)))
100	91, 99	eqeq12d 2786	. . . . . . . . . . 11 ⊢ (suc 𝑥 ∈ ω → (⦋suc 𝑥 / 𝑥⦌(rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = ⦋suc 𝑥 / 𝑥⦌(rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) ↔ (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥))))
101	81, 100	bitrd 271	. . . . . . . . . 10 ⊢ (suc 𝑥 ∈ ω → ([suc 𝑥 / 𝑥](rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)) ↔ (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥))))
102	80, 101	imbi12d 337	. . . . . . . . 9 ⊢ (suc 𝑥 ∈ ω → (([suc 𝑥 / 𝑥](rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → [suc 𝑥 / 𝑥](rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))) ↔ ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥)))))
103	79, 102	bitrd 271	. . . . . . . 8 ⊢ (suc 𝑥 ∈ ω → ([suc 𝑥 / 𝑥]((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))) ↔ ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥)))))
104	78, 103	imbi12d 337	. . . . . . 7 ⊢ (suc 𝑥 ∈ ω → (([suc 𝑥 / 𝑥](𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → [suc 𝑥 / 𝑥]((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))) ↔ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ suc 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥))))))
105	71, 104	bitrd 271	. . . . . 6 ⊢ (suc 𝑥 ∈ ω → ([suc 𝑥 / 𝑥]((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))) ↔ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ suc 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o suc 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o suc 𝑥))))))
106	70, 105	syl5ibr 238	. . . . 5 ⊢ (suc 𝑥 ∈ ω → (((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))) → [suc 𝑥 / 𝑥]((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))))))
107	39, 106	sylbi 209	. . . 4 ⊢ (𝑥 ∈ ω → (((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))) → [suc 𝑥 / 𝑥]((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥))))))
108	38, 107	findes 7425	. . 3 ⊢ (𝑥 ∈ ω → ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑥 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑥)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑥)))))
109	10, 108	vtoclga 3486	. 2 ⊢ (𝑋 ∈ ω → ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑋 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑋)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑋)))))
110	1, 109	mpcom 38	1 ⊢ ((𝑁 ∈ On ∧ 𝑀 ∈ On ∧ 𝑋 ∈ ω) → ((rec(𝐹, 𝐴)‘𝑁) = (rec(𝐹, 𝐵)‘𝑀) → (rec(𝐹, 𝐴)‘(𝑁 +o 𝑋)) = (rec(𝐹, 𝐵)‘(𝑀 +o 𝑋))))

Syntax hints:   → wi 4   ↔ wb 198   ∧ wa 387   ∧ w3a 1069  ∀wal 1506   = wceq 1508   ∈ wcel 2051  [wsbc 3674  ⦋csb 3779  ∅c0 4172  Oncon0 6026  suc csuc 6028  ‘cfv 6185  (class class class)co 6974  ωcom 7394  reccrdg 7847   +_o coa 7900

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1759  ax-4 1773  ax-5 1870  ax-6 1929  ax-7 1966  ax-8 2053  ax-9 2060  ax-10 2080  ax-11 2094  ax-12 2107  ax-13 2302  ax-ext 2743  ax-rep 5045  ax-sep 5056  ax-nul 5063  ax-pow 5115  ax-pr 5182  ax-un 7277

This theorem depends on definitions:  df-bi 199  df-an 388  df-or 835  df-3or 1070  df-3an 1071  df-tru 1511  df-fal 1521  df-ex 1744  df-nf 1748  df-sb 2017  df-mo 2548  df-eu 2585  df-clab 2752  df-cleq 2764  df-clel 2839  df-nfc 2911  df-ne 2961  df-ral 3086  df-rex 3087  df-reu 3088  df-rab 3090  df-v 3410  df-sbc 3675  df-csb 3780  df-dif 3825  df-un 3827  df-in 3829  df-ss 3836  df-pss 3838  df-nul 4173  df-if 4345  df-pw 4418  df-sn 4436  df-pr 4438  df-tp 4440  df-op 4442  df-uni 4709  df-iun 4790  df-br 4926  df-opab 4988  df-mpt 5005  df-tr 5027  df-id 5308  df-eprel 5313  df-po 5322  df-so 5323  df-fr 5362  df-we 5364  df-xp 5409  df-rel 5410  df-cnv 5411  df-co 5412  df-dm 5413  df-rn 5414  df-res 5415  df-ima 5416  df-pred 5983  df-ord 6029  df-on 6030  df-lim 6031  df-suc 6032  df-iota 6149  df-fun 6187  df-fn 6188  df-f 6189  df-f1 6190  df-fo 6191  df-f1o 6192  df-fv 6193  df-ov 6977  df-oprab 6978  df-mpo 6979  df-om 7395  df-wrecs 7748  df-recs 7810  df-rdg 7848  df-oadd 7907

This theorem is referenced by:  finxpreclem4  34153