simp [hts, ht's]
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚺₁
f : M → M
hf : 𝚺₁-Function₁ f
s : M
Hs : Seq s
t : M
Ht : Seq t
hts : lh t = lh s
h : ∀ (i x : M), ⟪i, x⟫ ∈ s → ⟪i, f x⟫ ∈ t
t' : M
Ht' : Seq t'
ht's : lh t' = lh s
h' : ∀ (i x : M), ⟪i, x⟫ ∈ s → ⟪i, f x⟫ ∈ t'
⊢ lh t' = lh t
no goals