fact: Definition format_SumType {m} (types : Vector.t Type m) (formatrs : ilist (B := fun T => T -> CacheFormat -> Comp (B * CacheFormat)) types) (st : SumType types) : CacheFormat -> Comp (B * CacheFormat) := ith formatrs (SumType_index types st) (SumType_proj types st).
imports: Fiat.Common.ilist Fiat.Common.SumType Fiat.Common.IterateBoundedIndex Fiat.Narcissus.Common.Specs Coq.Sets.Ensembles Bedrock.Word