fact: Fixpoint meaning {T} (t : Term normalized_of T) : normalized_of T := match t in Term _ T return normalized_of T with | RLiteralApp _ l af => match l with | RLC l' => fun af => RLiteralApp l' (unmeanings af) | RLNC l' => fun af => option_rect (fun _ => _) (fun x => x) (RLiteralApp l' (unmeanings af)) (specific_meaning l' af) end (meanings (@meaning) af) | RLambda _ _ f => fun x => @meaning _ (f x) | RVar _ v => v | RApp _ _ f x => @meaning _ f (@meaning _ x) end.
imports: Fiat.Parsers.Reflective.Syntax Fiat.Parsers.Reflective.Semantics Fiat.Parsers.Reflective.Syntactify Fiat.Common Fiat.Common.NatFacts Fiat.Common.List.Operations