fact: Definition ASN1_Format_Tag (tag : BoundedString Tag_Classes) (primitive : bool) (identifier : nat) : CacheFormat -> Comp (B * CacheFormat) := format_enum Tag_Class_Codes (ibound (indexb tag)) ThenC format_word (WS primitive WO) ThenC (If (NPeano.ltb identifier 31) Then format_nat 5 identifier Else (format_nat 31 identifier ThenC format_nat 5 identifier)) DoneC.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Lists.List Coq.Strings.Ascii Coq.Strings.String Coq.Numbers.BinNums Fiat.Common Fiat.Computation.Notations Fiat.Narcissus.Common.Specs Fiat.Narcissus.Common.WordFacts Bedrock.Word Fiat.Common.EnumType Fiat.Common.BoundedLookup Fiat.Narcissus.Formats.WordOpt Fiat.Narcissus.Formats.EnumOpt Fiat.Narcissus.Formats.Bool Fiat.Narcissus.Formats.NatOpt Fiat.Narcissus.Formats.FixStringOpt Fiat.Narcissus.Common.ComposeOpt