diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-09-11 09:36:47 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-11 09:36:47 -0400 |
commit | 7bc788c67ed9331773355ceeae4ace7923a6e914 (patch) | |
tree | 94beda93e06e4418c5d001aa317365a1d878efdb /src/core_env.sml | |
parent | 9e804908dd69043c8a9942cdf6042b8dc0d76175 (diff) |
Unpoly non-recursive function
Diffstat (limited to 'src/core_env.sml')
-rw-r--r-- | src/core_env.sml | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/src/core_env.sml b/src/core_env.sml index e2a3c40f..a4d5fc50 100644 --- a/src/core_env.sml +++ b/src/core_env.sml @@ -65,6 +65,34 @@ val subConInCon = | (ctx, _) => ctx} +val liftConInExp = + U.Exp.mapB {kind = fn k => k, + con = fn bound => fn c => + case c of + CRel xn => + if xn < bound then + c + else + CRel (xn + 1) + | _ => c, + exp = fn _ => fn e => e, + bind = fn (bound, U.Exp.RelC _) => bound + 1 + | (bound, _) => bound} + +val subConInExp = + U.Exp.mapB {kind = fn k => k, + con = fn (xn, rep) => fn c => + case c of + CRel xn' => + (case Int.compare (xn', xn) of + EQUAL => #1 rep + | GREATER => CRel (xn' - 1) + | LESS => c) + | _ => c, + exp = fn _ => fn e => e, + bind = fn ((xn, rep), U.Exp.RelC _) => (xn+1, liftConInCon 0 rep) + | (ctx, _) => ctx} + (* Back to environments *) exception UnboundRel of int |