fact: Fixpoint updateList A (v : list A) (f : A->A) : nat -> list A := match v with | nil => fun _ => nil | cons a' v' => fun i => match i with | 0 => cons (f a') v' | S i' => cons a' (updateList v' f i') end end.
imports: CoRN.stdlib_omissions.List Coq.Arith.Arith Coq.PArith.BinPos