From 5b9249a422cb1ac172d6b5f1f03d5cde629d6216 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Tue, 29 Nov 2005 18:15:15 +0000
Subject: Split widesnake example. Changed examples to use rec and sig
 keywords.

---
 transfer/examples/pair.tr | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'transfer/examples/pair.tr')

diff --git a/transfer/examples/pair.tr b/transfer/examples/pair.tr
index bdd517d9c..1b70411e8 100644
--- a/transfer/examples/pair.tr
+++ b/transfer/examples/pair.tr
@@ -1,8 +1,8 @@
 Pair : Type -> Type -> Type
-Pair A B = { p1 : A; p2 : B }
+Pair A B = sig { p1 : A; p2 : B }
 
 pair : (A:Type) -> (B:Type) -> A -> B -> Pair A B
-pair _ _ x y = { p1 = x; p2 = y }
+pair _ _ x y = rec { p1 = x; p2 = y }
 
 fst : (A:Type) -> (B:Type) -> Pair A B -> A
 fst _ _ p = case p of Pair _ _ x _ -> x
-- 
cgit v1.2.3