diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-10-06 10:15:26 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-10-06 10:15:26 -0400 |
| commit | 80d6d2caaf8994d49c7a411f22993a4bb8eef973 (patch) | |
| tree | bbb81bd1c2dfd38b74df44ae8c236f5353a7a043 /src/elab_ops.sml | |
| parent | 51ab6fecd3f6bd527d9cc044bdd33a9f4ad87c4d (diff) | |
Fix a de Bruijn index bug in map fusion
Diffstat (limited to 'src/elab_ops.sml')
| -rw-r--r-- | src/elab_ops.sml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/elab_ops.sml b/src/elab_ops.sml index b5292e9b..f005ab04 100644 --- a/src/elab_ops.sml +++ b/src/elab_ops.sml @@ -242,6 +242,9 @@ fun hnormCon env (cAll as (c, loc)) = (case #1 (hnormCon env f') of CMap (dom, _) => let + val inner_f = liftConInCon 0 inner_f + val f = liftConInCon 0 f + val f' = (CApp (inner_f, (CRel 0, loc)), loc) val f' = (CApp (f, f'), loc) val f' = (CAbs ("v", dom, f'), loc) |