fact: Fixpoint word_indexed {n : nat} (w : word sz) (t : t (word sz) n) : option (Fin.t n) := match t in Vector.t _ n return option (Fin.t n) with | nil => None | cons w' _ t' => if (weqb w w') then Some (Fin.F1) else match word_indexed w t' with | Some f => Some (Fin.FS f) | None => None end end.
imports: Fiat.Common.BoundedLookup Fiat.Narcissus.Common.Specs Fiat.Narcissus.BaseFormats Fiat.Narcissus.Formats.WordOpt Coq.Vectors.Vector Bedrock.Word