fact: Definition interp_RLiteralTerm {T} (t : RLiteralTerm T) : interp_TypeCode T := Eval cbv [interp_RLiteralTerm] in match t with | RLC t' => interp_RLiteralTerm (RLC t') | RLNC t' => match t' in (RLiteralNonConstructor T') return interp_TypeCode T' with | Rnth' _ => nth' | Rmap _ _ => @map _ _ | Rfold_left _ _ => @fold_left _ _ | t'' => interp_RLiteralTerm (RLNC t'') end end.
imports: Fiat.Parsers.Reflective.Syntax Fiat.Parsers.Reflective.Semantics Fiat.Common.List.Operations