# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1212950532 14400
# Node ID e634ae817a8ec35c62857f771701d27f593b33da
# Parent  9a578171de9ec9341b6d82cc28764f00febaab5b
Testing constructor equivalences

diff -r 9a578171de9e -r e634ae817a8e tests/equiv.lac
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/equiv.lac	Sun Jun 08 14:42:12 2008 -0400
@@ -0,0 +1,3 @@
+type t1 = {A : int, B : float}
+type t2 = {B : float, A : int}
+val e1 : t1 -> t2 = fn x => x