From dad7867e24a9baad297ce59b0597a394c25dc32c Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Tue, 11 Sep 2018 21:13:26 -0400 Subject: Help for fixpoint refolding in expr.interp --- src/Experiments/NewPipeline/Language.v | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Experiments/NewPipeline/Language.v b/src/Experiments/NewPipeline/Language.v index 4d17d9afd..a615bfd9c 100644 --- a/src/Experiments/NewPipeline/Language.v +++ b/src/Experiments/NewPipeline/Language.v @@ -442,7 +442,8 @@ Module Compilers. := match e in expr t return type.interp _ t with | Ident t idc => interp_ident _ idc | Var t v => v - | Abs s d f => fun x => @interp _ _ _ interp_ident _ (f x) + | Abs s d f => fun x : type.interp interp_base_type s + => @interp _ _ _ interp_ident _ (f x) | App s d f x => (@interp _ _ _ interp_ident _ f) (@interp _ _ _ interp_ident _ x) | LetIn A B x f -- cgit v1.2.3