fact: Fixpoint apply_args_for {T} (f : interp_TypeCode T) (argsv : args_for interp_TypeCode T) : interp_TypeCode (range_of T) := match argsv in args_for _ T return interp_TypeCode T -> interp_TypeCode (range_of T) with | an_arg A B arg args => fun f => @apply_args_for _ (f arg) args | noargs T => fun f => f end f.
imports: Coq.Strings.String Fiat.Parsers.Reflective.Syntax Fiat.Parsers.Reflective.Syntactify Fiat.Common.NatFacts Fiat.Common.BoolFacts Fiat.Common.List.Operations