Mercurial > urweb

annotate tests/cfold_disj.lac @ 169:2232ab355f66

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Took more advantage of new ability to exit with an error message
author Adam Chlipala <adamc@hcoop.net>
date Tue, 29 Jul 2008 16:02:02 -0400
parents 94ef20a31550
children
rev   line source
adamc@90 1 con id = fold (fn nm => fn t :: Type => fn acc => [nm] ~ acc => [nm = t] ++ acc) []
adamc@90 2
adamc@90 3 con idT = id [D = int, E = float]
adamc@90 4
adamc@90 5 val idV = fn x : $idT => x.E