# HG changeset patch
# User lcp
# Date 777202854 -7200
# Node ID d27056ec0a5a9e2da8ef5249872450166165ee70
# Parent  4cc9149dc675d09540f6e9b4ea5a25d2eac82c7b
HOL/Subst/AList: swapped args of split and simplified

diff -r 4cc9149dc675 -r d27056ec0a5a Subst/AList.ML
--- a/Subst/AList.ML	Thu Aug 18 11:30:27 1994 +0200
+++ b/Subst/AList.ML	Thu Aug 18 11:40:54 1994 +0200
@@ -1,8 +1,8 @@
-(*  Title: 	Substitutions/alist.ML
+(*  Title: 	Substitutions/AList.ML
     Author: 	Martin Coen, Cambridge University Computer Laboratory
     Copyright   1993  University of Cambridge
 
-For alist.thy.
+For AList.thy.
 *)
 
 open AList;
@@ -11,7 +11,7 @@
 
 val al_defs = [alist_rec_def,assoc_def];
 
-val alist_ss = pair_ss addsimps [Nil_not_Cons,Cons_not_Nil,Cons_Cons_eq,
+val alist_ss = prod_ss addsimps [Nil_not_Cons,Cons_not_Nil,Cons_Cons_eq,
                                 list_rec_Nil,list_rec_Cons];
 
 val al_rews = 
diff -r 4cc9149dc675 -r d27056ec0a5a Subst/AList.thy
--- a/Subst/AList.thy	Thu Aug 18 11:30:27 1994 +0200
+++ b/Subst/AList.thy	Thu Aug 18 11:40:54 1994 +0200
@@ -9,14 +9,13 @@
 
 consts
 
-  alist_rec  :: "[('a*'b) list,'c,['a,'b,('a*'b) list,'c]=>'c]=>'c"
+  alist_rec  :: "[('a*'b)list, 'c, ['a, 'b, ('a*'b)list, 'c]=>'c] => 'c"
   assoc      :: "['a,'b,('a*'b) list] => 'b"
 
 rules
 
-  alist_rec_def 
-    "alist_rec(al,b,c) == list_rec(al,b,%p xs g.split(p,%x y.c(x,y,xs,g)))"
+  alist_rec_def "alist_rec(al,b,c) == list_rec(al, b, split(c))"
 
-  assoc_def    "assoc(v,d,al) == alist_rec(al,d,%x y xs g.if(v=x,y,g))"
+  assoc_def     "assoc(v,d,al) == alist_rec(al,d,%x y xs g.if(v=x,y,g))"
 
 end