fact: Fixpoint interp_TypeCode (t : TypeCode) : Type := match t with | csimple T => interp_SimpleTypeCode T | carrow A B => interp_TypeCode A -> interp_TypeCode 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