From ea001e7d3ef077a1367933ba8f77eece735be04d Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 12 Mar 2009 10:26:04 -0400
Subject: Change location/type of [fold] to be more uniform w.r.t. derived
 folders

---
 lib/ur/top.urs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'lib/ur/top.urs')

diff --git a/lib/ur/top.urs b/lib/ur/top.urs
index 009a4ed5..bc0b768e 100644
--- a/lib/ur/top.urs
+++ b/lib/ur/top.urs
@@ -2,13 +2,13 @@
 
 con folder :: K --> {K} -> Type
 
-structure Folder : sig
-    val fold : K --> r :: {K} -> folder r
-               -> tf :: ({K} -> Type)
-               -> (nm :: Name -> v :: K -> r :: {K} -> tf r
-                   -> [[nm] ~ r] => tf ([nm = v] ++ r))
-               -> tf [] -> tf r
+val fold : K --> tf :: ({K} -> Type)
+           -> (nm :: Name -> v :: K -> r :: {K} -> [[nm] ~ r] =>
+               tf r -> tf ([nm = v] ++ r))
+           -> tf []
+           -> r :: {K} -> folder r -> tf r
 
+structure Folder : sig
     val nil : K --> folder (([]) :: {K})
     val cons : K --> r ::: {K} -> nm :: Name -> v :: K
                -> [[nm] ~ r] => folder r -> folder ([nm = v] ++ r)
-- 
cgit v1.2.3