# HG changeset patch
# User cek@localhost.localdomain
# Date 1256393733 -7200
# Node ID 3a8978c335f06d963714fb39ac38c152a66ed724
# Parent  f7602653dddd8ca6014ac76459befa6cfa26a83d# Parent  09048a951dca292531c2b6148a228de4a36ca18a
Merge

diff -r f7602653dddd -r 3a8978c335f0 FSet.thy
--- a/FSet.thy	Sat Oct 24 16:15:58 2009 +0200
+++ b/FSet.thy	Sat Oct 24 16:15:33 2009 +0200
@@ -14,18 +14,11 @@
 quotient qt = "t" / "Rt"
     by (rule t_eq)
 
-setup {*
-  maps_update @{type_name "list"} {mapfun = @{const_name "map"},      relfun = @{const_name "LIST_REL"}} #>
-  maps_update @{type_name "*"}    {mapfun = @{const_name "prod_fun"}, relfun = @{const_name "prod_rel"}} #>
-  maps_update @{type_name "fun"}  {mapfun = @{const_name "fun_map"},  relfun = @{const_name "FUN_REL"}}
-*}
-
-
 ML {*
 get_fun repF @{typ t} @{typ qt} @{context} @{typ "((((qt \<Rightarrow> qt) \<Rightarrow> qt) \<Rightarrow> qt) list) * nat"}
  |> fst
  |> Syntax.string_of_term @{context}
- |> writeln
+ |> writeln*)
 *}
 
 ML {*
diff -r f7602653dddd -r 3a8978c335f0 QuotMain.thy
--- a/QuotMain.thy	Sat Oct 24 16:15:58 2009 +0200
+++ b/QuotMain.thy	Sat Oct 24 16:15:33 2009 +0200
@@ -158,6 +158,12 @@
 use "quotient.ML"
 
 (* mapfuns for some standard types *)
+setup {*
+  maps_update @{type_name "list"} {mapfun = @{const_name "map"},      relfun = @{const_name "LIST_REL"}} #>
+  maps_update @{type_name "*"}    {mapfun = @{const_name "prod_fun"}, relfun = @{const_name "prod_rel"}} #>
+  maps_update @{type_name "fun"}  {mapfun = @{const_name "fun_map"},  relfun = @{const_name "FUN_REL"}}
+*}
+
 
 ML {* quotdata_lookup @{theory} *}
 setup {* quotdata_update_thy (@{typ nat}, @{typ bool}, @{term "True"})*}