Mercurial > urweb
comparison src/explify.sml @ 628:12b73f3c108e
Switch to TDisjoint from CDisjoint; still need to implement obligation generation at EDisjoint uses
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 24 Feb 2009 12:01:24 -0500 |
parents | 354800878b4d |
children | 70cbdcf5989b |
comparison
equal
deleted
inserted
replaced
627:f4f2b09a533a | 628:12b73f3c108e |
---|---|
50 | 50 |
51 fun explifyCon (c, loc) = | 51 fun explifyCon (c, loc) = |
52 case c of | 52 case c of |
53 L.TFun (t1, t2) => (L'.TFun (explifyCon t1, explifyCon t2), loc) | 53 L.TFun (t1, t2) => (L'.TFun (explifyCon t1, explifyCon t2), loc) |
54 | L.TCFun (_, x, k, t) => (L'.TCFun (x, explifyKind k, explifyCon t), loc) | 54 | L.TCFun (_, x, k, t) => (L'.TCFun (x, explifyKind k, explifyCon t), loc) |
55 | L.CDisjoint (_, _, _, c) => explifyCon c | 55 | L.TDisjoint (_, _, t) => explifyCon t |
56 | L.TRecord c => (L'.TRecord (explifyCon c), loc) | 56 | L.TRecord c => (L'.TRecord (explifyCon c), loc) |
57 | 57 |
58 | L.CRel n => (L'.CRel n, loc) | 58 | L.CRel n => (L'.CRel n, loc) |
59 | L.CNamed n => (L'.CNamed n, loc) | 59 | L.CNamed n => (L'.CNamed n, loc) |
60 | L.CModProj (m, ms, x) => (L'.CModProj (m, ms, x), loc) | 60 | L.CModProj (m, ms, x) => (L'.CModProj (m, ms, x), loc) |