Mercurial > urweb
comparison tests/eq.ur @ 387:7abb28e9d51f
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 |