fact: Definition interp_SimpleTypeCode_step (interp_SimpleTypeCode : SimpleTypeCode -> Type) (t : SimpleTypeCode) : Type := match t with | cnat => nat | cbool => bool | cascii => Ascii.ascii | cstring => string | critem_ascii => Reflective.ritem Ascii.ascii | crchar_expr_ascii => Reflective.RCharExpr Ascii.ascii | clist T => list (interp_SimpleTypeCode T) | cprod A B => interp_SimpleTypeCode A * interp_SimpleTypeCode B end%type.
imports: Coq.Strings.String Fiat.Parsers.Reflective.Syntax Fiat.Parsers.Reflective.Syntactify Fiat.Common.NatFacts Fiat.Common.BoolFacts Fiat.Common.List.Operations