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