Theorem iseqeq4 9527

Description: Equality theorem for the sequence builder operation. (Contributed by Jim Kingdon, 30-May-2020.)

Assertion

Ref	Expression
iseqeq4	⊢ (𝑆 = 𝑇 → seq𝑀( + , 𝐹, 𝑆) = seq𝑀( + , 𝐹, 𝑇))

Proof of Theorem iseqeq4

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2082	. . . . 5 ⊢ (ℤ≥‘𝑀) = (ℤ≥‘𝑀)
2		mpt2eq12 5596	. . . . 5 ⊢ (((ℤ≥‘𝑀) = (ℤ≥‘𝑀) ∧ 𝑆 = 𝑇) → (𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑆 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩) = (𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑇 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩))
3	1, 2	mpan 415	. . . 4 ⊢ (𝑆 = 𝑇 → (𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑆 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩) = (𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑇 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩))
4		freceq1 6041	. . . 4 ⊢ ((𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑆 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩) = (𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑇 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩) → frec((𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑆 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩), ⟨𝑀, (𝐹‘𝑀)⟩) = frec((𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑇 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩), ⟨𝑀, (𝐹‘𝑀)⟩))
5	3, 4	syl 14	. . 3 ⊢ (𝑆 = 𝑇 → frec((𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑆 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩), ⟨𝑀, (𝐹‘𝑀)⟩) = frec((𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑇 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩), ⟨𝑀, (𝐹‘𝑀)⟩))
6	5	rneqd 4591	. 2 ⊢ (𝑆 = 𝑇 → ran frec((𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑆 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩), ⟨𝑀, (𝐹‘𝑀)⟩) = ran frec((𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑇 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩), ⟨𝑀, (𝐹‘𝑀)⟩))
7		df-iseq 9522	. 2 ⊢ seq𝑀( + , 𝐹, 𝑆) = ran frec((𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑆 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩), ⟨𝑀, (𝐹‘𝑀)⟩)
8		df-iseq 9522	. 2 ⊢ seq𝑀( + , 𝐹, 𝑇) = ran frec((𝑥 ∈ (ℤ≥‘𝑀), 𝑦 ∈ 𝑇 ↦ ⟨(𝑥 + 1), (𝑦 + (𝐹‘(𝑥 + 1)))⟩), ⟨𝑀, (𝐹‘𝑀)⟩)
9	6, 7, 8	3eqtr4g 2139	1 ⊢ (𝑆 = 𝑇 → seq𝑀( + , 𝐹, 𝑆) = seq𝑀( + , 𝐹, 𝑇))

Syntax hints:   → wi 4   = wceq 1285  ⟨cop 3409  ran crn 4372  ‘cfv 4932  (class class class)co 5543   ↦ cmpt2 5545  freccfrec 6039  1c1 7044   + caddc 7046  ℤ_≥cuz 8700  seqcseq 9521

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-io 663  ax-5 1377  ax-7 1378  ax-gen 1379  ax-ie1 1423  ax-ie2 1424  ax-8 1436  ax-10 1437  ax-11 1438  ax-i12 1439  ax-bndl 1440  ax-4 1441  ax-17 1460  ax-i9 1464  ax-ial 1468  ax-i5r 1469  ax-ext 2064

This theorem depends on definitions:  df-bi 115  df-3an 922  df-tru 1288  df-nf 1391  df-sb 1687  df-clab 2069  df-cleq 2075  df-clel 2078  df-nfc 2209  df-ral 2354  df-rex 2355  df-v 2604  df-un 2978  df-in 2980  df-ss 2987  df-sn 3412  df-pr 3413  df-op 3415  df-uni 3610  df-br 3794  df-opab 3848  df-mpt 3849  df-cnv 4379  df-dm 4381  df-rn 4382  df-res 4383  df-iota 4897  df-fv 4940  df-oprab 5547  df-mpt2 5548  df-recs 5954  df-frec 6040  df-iseq 9522

This theorem is referenced by: (None)