Mercurial > urweb

comparison tests/eq.ur @ 387:7abb28e9d51f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Binops; equality tested on int; lame 404 substitute
author Adam Chlipala <adamc@hcoop.net>
date Tue, 21 Oct 2008 09:50:19 -0400
parents 32f9212583b2
children 2e93d18daf44
comparison
equal deleted inserted replaced
386:ef43ed6cd1de 387:7abb28e9d51f
1 val b1 = 1 = 1 1 fun main () : transaction page = return <xml><body>
2 val b2 = "Good" = "Bad" 2 {txt _ (1 = 1)}, {txt _ (1 = 2)}<br/>
3 3 {txt _ (1 <> 1)}, {txt _ (1 <> 2)}
4 fun eq_pair (t1 :: Type) (t2 :: Type) (eq1 : eq t1) (eq2 : eq t2) (x : t1 * t2) (y : t1 * t2) = 4 </body></xml>
5 x.1 = y.1
6
7 val b3 = True <> False