fact: Fixpoint format_Vector_Impl (A_format_Impl : A -> CacheFormat -> B * CacheFormat) {n} (xs : Vector.t A n) (ce : CacheFormat) : B * CacheFormat := match xs with | Vector.nil => (mempty, ce) | Vector.cons x _ xs' => let (b1, env1) := A_format_Impl x ce in let (b2, env2) := format_Vector_Impl A_format_Impl xs' env1 in (mappend b1 b2, env2) end%comp.
imports: Fiat.Narcissus.Common.Specs Coq.Arith.Peano_dec Coq.Logic.Eqdep_dec Coq.Lists.List