fact: Fixpoint decode_Vector (n : nat) (b : B) (cd : CacheDecode) : option (Vector.t A n * B * CacheDecode) := match n with | O => Some (Vector.nil _, b, cd) | S s' => `(x, b1, e1) <- A_decode b cd; `(xs, b2, e2) <- decode_Vector s' b1 e1; Some (Vector.cons _ x _ xs, b2, e2) end.
imports: Fiat.Narcissus.Common.Specs Coq.Arith.Peano_dec Coq.Logic.Eqdep_dec Coq.Lists.List