simp[bShifts]
L : Language
μ : Type v
α : Type u_1
inst✝³ : Primcodable α
inst✝² : Primcodable μ
inst✝¹ : (k : ℕ) → Primcodable (L.Func k)
inst✝ : UniformlyPrimcodable L.Func
k : ℕ
t : Semiterm L μ k
⊢ UTerm.bind (fun x => if hx : x < k then ↑(subtEquiv ((⇑Rew.bShift ∘ bvar) ⟨x, hx⟩)) else default)
      (fun x => ↑(subtEquiv ((⇑Rew.bShift ∘ fvar) x))) ↑(subtEquiv t) =
    bShifts 1 ↑(subtEquiv t)
L : Language
μ : Type v
α : Type u_1
inst✝³ : Primcodable α
inst✝² : Primcodable μ
inst✝¹ : (k : ℕ) → Primcodable (L.Func k)
inst✝ : UniformlyPrimcodable L.Func
k : ℕ
t : Semiterm L μ k
⊢ UTerm.bind (fun x => if x < k then UTerm.bvar (x + 1) else default) (fun x => UTerm.fvar x) ↑(subtEquiv t) =
    UTerm.bind (fun x => UTerm.bvar (x + 1)) UTerm.fvar ↑(subtEquiv t)