diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-11-29 18:15:15 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-11-29 18:15:15 +0000 |
| commit | 5b9249a422cb1ac172d6b5f1f03d5cde629d6216 (patch) | |
| tree | 357db7dd0d5d6340bbca68803be6d26807e3c552 /transfer/examples/pair.tr | |
| parent | f6159d4bffe1f163914a41f33afea36a499bc89a (diff) | |
Split widesnake example. Changed examples to use rec and sig keywords.
Diffstat (limited to 'transfer/examples/pair.tr')
| -rw-r--r-- | transfer/examples/pair.tr | 4 |
1 files changed, 2 insertions, 2 deletions
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 |