# HG changeset patch
# User Christian Urban <urbanc@in.tum.de>
# Date 1279555183 -3600
# Node ID e163fd99de442692c6e74b2976f7759922e10ee5
# Parent  0321e89e66a38b837ebaadc860c93e6ec8108fd4
minor polishing

diff -r 0321e89e66a3 -r e163fd99de44 Nominal-General/nominal_library.ML
--- a/Nominal-General/nominal_library.ML	Mon Jul 19 14:20:23 2010 +0100
+++ b/Nominal-General/nominal_library.ML	Mon Jul 19 16:59:43 2010 +0100
@@ -61,7 +61,7 @@
 
 fun last2 [] = raise Empty
   | last2 [_] = raise Empty
-  | last2 [x, y] = (x,y)
+  | last2 [x, y] = (x, y)
   | last2 (_ :: xs) = last2 xs
 
 fun dest_listT (Type (@{type_name list}, [T])) = T
diff -r 0321e89e66a3 -r e163fd99de44 Nominal/nominal_dt_alpha.ML
--- a/Nominal/nominal_dt_alpha.ML	Mon Jul 19 14:20:23 2010 +0100
+++ b/Nominal/nominal_dt_alpha.ML	Mon Jul 19 16:59:43 2010 +0100
@@ -65,7 +65,9 @@
     | Set => (mk_union,  bind_set)
     | Res => (mk_union,  bind_set)
 in
-  foldl1 combine_fn (map (bind_fn lthy args) bodies)
+  bodies
+  |> map (bind_fn lthy args)
+  |> foldl1 combine_fn 
 end
 
 (* produces the term for an alpha with abstraction *)
diff -r 0321e89e66a3 -r e163fd99de44 Nominal/nominal_dt_rawfuns.ML
--- a/Nominal/nominal_dt_rawfuns.ML	Mon Jul 19 14:20:23 2010 +0100
+++ b/Nominal/nominal_dt_rawfuns.ML	Mon Jul 19 16:59:43 2010 +0100
@@ -35,6 +35,11 @@
 structure Nominal_Dt_RawFuns: NOMINAL_DT_RAWFUNS =
 struct
 
+(* term              - is constant of the bn-function 
+   int               - is datatype number over which the bn-function is defined
+   int * term option - is number of the corresponding argument with possibly
+                       recursive call with bn-function term 
+*)  
 type bn_info = (term * int * (int * term option) list list) list
 
 datatype bmode = Lst | Res | Set