fact: Definition interp_constantOf {T} : onelevelG interp_TypeCode T -> interp_TypeCode T := match T return onelevelG _ T -> interp_TypeCode T with | cnat | cbool | cstring | cascii | critem_ascii | crchar_expr_ascii => fun x => x | clist T => List.map interp_Term | cprod A B => fun xy => (interp_Term (fst xy), interp_Term (snd xy)) | carrow A B => fun x : Empty_set => match x with end end.
imports: Fiat.Parsers.Reflective.Syntax Fiat.Parsers.Reflective.Semantics Fiat.Parsers.Reflective.Syntactify Fiat.Common Fiat.Common.NatFacts Fiat.Common.List.Operations