# HG changeset patch
# User Cezary Kaliszyk <kaliszyk@in.tum.de>
# Date 1290410087 -32400
# Node ID 50da1be9a7e5c4bf286a87e1eaa9f15c0c4edb7b
# Parent  6c131c089ce2730ce1fa070cbe03f85f606a09b3
current isabelle

diff -r 6c131c089ce2 -r 50da1be9a7e5 Nominal/Nominal2_Abs.thy
--- a/Nominal/Nominal2_Abs.thy	Sun Nov 21 02:17:19 2010 +0000
+++ b/Nominal/Nominal2_Abs.thy	Mon Nov 22 16:14:47 2010 +0900
@@ -553,7 +553,7 @@
 lemma [quot_preserve]:
   assumes q1: "Quotient R1 abs1 rep1"
   and     q2: "Quotient R2 abs2 rep2"
-  shows "((abs1 ---> id) ---> (abs2 ---> id) ---> prod_fun rep1 rep2 ---> id) prod_fv = prod_fv"
+  shows "((abs1 ---> id) ---> (abs2 ---> id) ---> map_pair rep1 rep2 ---> id) prod_fv = prod_fv"
   by (simp add: fun_eq_iff Quotient_abs_rep[OF q1] Quotient_abs_rep[OF q2])
 
 lemma [mono]: 
diff -r 6c131c089ce2 -r 50da1be9a7e5 Nominal/nominal_dt_quot.ML
--- a/Nominal/nominal_dt_quot.ML	Sun Nov 21 02:17:19 2010 +0000
+++ b/Nominal/nominal_dt_quot.ML	Mon Nov 22 16:14:47 2010 +0900
@@ -99,7 +99,7 @@
   val parser = Scan.repeat (exclude || any)
 in
   fun unraw_str s =
-    s |> explode
+    s |> raw_explode
       |> Scan.finite Symbol.stopper parser >> implode 
       |> fst
 end