diff options
author | Jason Gross <jgross@mit.edu> | 2018-09-11 21:13:26 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2018-09-11 21:13:26 -0400 |
commit | dad7867e24a9baad297ce59b0597a394c25dc32c (patch) | |
tree | b142eea66beddbe4e6c7a08dc0db1fb39c3fe0fb /src | |
parent | 6b03ff5f346225aaf17e57bee2caf7c899989a84 (diff) |
Help for fixpoint refolding in expr.interp
Diffstat (limited to 'src')
-rw-r--r-- | src/Experiments/NewPipeline/Language.v | 3 |
1 files changed, 2 insertions, 1 deletions
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 |