fact: Fixpoint interp_constantOfs_to_values {T} (args : args_for_onelevel interp_TypeCode T) : args_for (fun T => option (interp_TypeCode T)) T := match args in args_for _ T return args_for _ T with | an_arg _ _ arg args => an_arg (option_map interp_constantOf arg) (@interp_constantOfs_to_values _ args) | noargs T => noargs end.
imports: Fiat.Parsers.Reflective.Syntax Fiat.Parsers.Reflective.Semantics Fiat.Parsers.Reflective.Syntactify Fiat.Common Fiat.Common.NatFacts Fiat.Common.List.Operations