Mercurial > urweb

comparison tests/disjoint.lac @ 85:1f85890c9846

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Disjointness assumptions in expressions
author Adam Chlipala <adamc@hcoop.net>
date Tue, 01 Jul 2008 12:25:12 -0400
parents e86370850c30
children 7f9bcc8bfa1e
comparison
equal deleted inserted replaced
84:e86370850c30 85:1f85890c9846
5 5
6 con c5 = fn r1 :: {Type} => fn r2 => r1 ~ r2 => r1 ++ r2 6 con c5 = fn r1 :: {Type} => fn r2 => r1 ~ r2 => r1 ++ r2
7 con c6 = fn r1 :: {Type} => fn r2 => r2 ~ r1 => r1 ++ r2 7 con c6 = fn r1 :: {Type} => fn r2 => r2 ~ r1 => r1 ++ r2
8 8
9 con c7 = fn x :: Name => fn r => [x] ~ r => [x] ++ r 9 con c7 = fn x :: Name => fn r => [x] ~ r => [x] ++ r
10
11 val v1 = fn x :: Name => fn [x] ~ [A] => fn y : {x : int, A : string} => y.x