Mercurial > urweb

comparison src/explify.sml @ 628:12b73f3c108e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)