# HG changeset patch
# User Christian Urban <urbanc@in.tum.de>
# Date 1261256997 -3600
# Node ID e2ac18492c68f078d1f76d4779910fab57218be8
# Parent  c1989de100b42a49d3abab6b1eeb01fee58fa366
small tuning

diff -r c1989de100b4 -r e2ac18492c68 Quot/quotient_tacs.ML
--- a/Quot/quotient_tacs.ML	Sat Dec 19 22:04:34 2009 +0100
+++ b/Quot/quotient_tacs.ML	Sat Dec 19 22:09:57 2009 +0100
@@ -564,6 +564,7 @@
   error msg
 end
 
+open Quotient_Term;
  
 fun procedure_inst ctxt rtrm qtrm =
 let
diff -r c1989de100b4 -r e2ac18492c68 Quot/quotient_term.ML
--- a/Quot/quotient_term.ML	Sat Dec 19 22:04:34 2009 +0100
+++ b/Quot/quotient_term.ML	Sat Dec 19 22:09:57 2009 +0100
@@ -46,26 +46,27 @@
     case (rty, qty) of
       (Type (s, tys), Type (s', tys')) =>
        if s = s' 
-       then let
-              val map_info = maps_lookup thy s
-                             handle NotFound => 
-                               raise LIFT_MATCH ("mk_resp_arg (no map function found for type " ^ s) 
-              val args = map (mk_resp_arg lthy) (tys ~~ tys')
-            in
-              list_comb (Const (#relfun map_info, dummyT), args) 
-            end  
-       else let  
-              val SOME qinfo = quotdata_lookup_thy thy s'
-              (* FIXME: check in this case that the rty and qty *)
-              (* FIXME: correspond to each other *)
-              val (s, _) = dest_Const (#rel qinfo)
-              (* FIXME: the relation should only be the string        *)
-              (* FIXME: and the type needs to be calculated as below; *)
-              (* FIXME: maybe one should actually have a term         *)
-              (* FIXME: and one needs to force it to have this type   *)
-            in
-              Const (s, rty --> rty --> @{typ bool})
-            end
+       then 
+         let
+           val exc = LIFT_MATCH ("mk_resp_arg (no map function found for type " ^ s) 
+           val map_info = maps_lookup thy s handle NotFound => raise exc
+           val args = map (mk_resp_arg lthy) (tys ~~ tys')
+         in
+           list_comb (Const (#relfun map_info, dummyT), args) 
+         end  
+       else 
+         let  
+           val SOME qinfo = quotdata_lookup_thy thy s'
+           (* FIXME: check in this case that the rty and qty *)
+           (* FIXME: correspond to each other *)
+           val (s, _) = dest_Const (#rel qinfo)
+           (* FIXME: the relation should only be the string        *)
+           (* FIXME: and the type needs to be calculated as below; *)
+           (* FIXME: maybe one should actually have a term         *)
+           (* FIXME: and one needs to force it to have this type   *)
+         in
+           Const (s, rty --> rty --> @{typ bool})
+         end
       | _ => HOLogic.eq_const dummyT 
              (* FIXME: check that the types correspond to each other? *)
 end
@@ -270,6 +271,5 @@
 
 end; (* structure *)
 
-open Quotient_Term;