α : Type u_1
β : Type ?u.137451
γ : Type ?u.137454
σ : Type u_2
inst✝³ : Primcodable α
inst✝² : Primcodable β
inst✝¹ : Primcodable γ
inst✝ : Primcodable σ
n : ℕ
f : Fin (n + 1) → α →. σ
hf : ∀ (i : Fin (n + 1)), Partrec (f i)
⊢ Partrec fun a =>
    Part.bind (f 0 a) fun a_1 => Part.bind (Vector.mOfFn fun i => f (Fin.succ i) a) fun v => Part.some (a_1 ::ᵥ v)
α : Type u_1
β : Type ?u.137451
γ : Type ?u.137454
σ : Type u_2
inst✝³ : Primcodable α
inst✝² : Primcodable β
inst✝¹ : Primcodable γ
inst✝ : Primcodable σ
n : ℕ
f : Fin (n + 1) → α →. σ
hf : ∀ (i : Fin (n + 1)), Partrec (f i)
⊢ Partrec fun a => Vector.mOfFn fun i => f i a
simp [Vector.mOfFn]
no goals
α : Type u_1
β : Type ?u.137451
γ : Type ?u.137454
σ : Type u_2
inst✝³ : Primcodable α
inst✝² : Primcodable β
inst✝¹ : Primcodable γ
inst✝ : Primcodable σ
n : ℕ
f : Fin (n + 1) → α →. σ
hf : ∀ (i : Fin (n + 1)), Partrec (f i)
⊢ Partrec fun a =>
    Part.bind (f 0 a) fun a_1 => Part.bind (Vector.mOfFn fun i => f (Fin.succ i) a) fun v => Part.some (a_1 ::ᵥ v)
exact
  (hf 0).bind
    (Partrec.bind ((vector_mOfFn fun i => hf i.succ).comp fst)
      (Primrec.vector_cons.to_comp.comp (snd.comp fst) snd))