# HG changeset patch
# User Christian Urban <urbanc@in.tum.de>
# Date 1259073089 -3600
# Node ID ba057402ea537ba6b1419da121a3ea756235e632
# Parent  82cfedb16a99a1869b83a63e5ad05d70062af908
use error instead of raising our own exception

diff -r 82cfedb16a99 -r ba057402ea53 QuotMain.thy
--- a/QuotMain.thy	Tue Nov 24 15:15:33 2009 +0100
+++ b/QuotMain.thy	Tue Nov 24 15:31:29 2009 +0100
@@ -1180,7 +1180,7 @@
   val qtrm_str = quote (Syntax.string_of_term lthy qtrm)
   val msg = ["The quotient theorem", qtrm_str, "and lifted theorem", rtrm_str, "do not match."]
 in
-  raise LIFT_MATCH (space_implode " " msg)
+  raise error (space_implode " " msg)
 end 
 *}
 
diff -r 82cfedb16a99 -r ba057402ea53 quotient.ML
--- a/quotient.ML	Tue Nov 24 15:15:33 2009 +0100
+++ b/quotient.ML	Tue Nov 24 15:31:29 2009 +0100
@@ -1,7 +1,5 @@
 signature QUOTIENT =
 sig
-  exception LIFT_MATCH of string 
-
   val quotient_type: ((binding * mixfix) * (typ * term)) list -> Proof.context -> Proof.state
   val quotient_type_cmd: (((bstring * mixfix) * string) * string) list -> Proof.context -> Proof.state
 
@@ -11,9 +9,6 @@
 structure Quotient: QUOTIENT =
 struct
 
-(* exception for when quotient and lifted things do not match *)
-exception LIFT_MATCH of string 
-
 (* wrappers for define, note and theorem_i *)
 fun define (name, mx, rhs) lthy =
 let
diff -r 82cfedb16a99 -r ba057402ea53 quotient_def.ML
--- a/quotient_def.ML	Tue Nov 24 15:15:33 2009 +0100
+++ b/quotient_def.ML	Tue Nov 24 15:31:29 2009 +0100
@@ -40,7 +40,7 @@
   val (rty_str, qty_str) = ty_strs lthy (rty, qty) 
   val msg = ["quotient type", qty_str, "and lifted type", rty_str, "do not match."]
 in
-  raise LIFT_MATCH (space_implode " " msg)
+  error (space_implode " " msg)
 end
 
 fun ty_lift_error2 lthy rty qty =
@@ -48,13 +48,13 @@
   val (rty_str, qty_str) = ty_strs lthy (rty, qty)   
   val msg = ["No type variables allowed in", qty_str, "and", rty_str, "."]
 in
-  raise LIFT_MATCH (space_implode " " msg)
+  error (space_implode " " msg)
 end
 
 fun get_fun_aux lthy s fs =
   case (maps_lookup (ProofContext.theory_of lthy) s) of
     SOME info => list_comb (Const (#mapfun info, dummyT), fs)
-  | NONE      => raise LIFT_MATCH (space_implode " " ["No map function for type", quote s, "."])
+  | NONE      => error (space_implode " " ["No map function for type", quote s, "."])
 
 fun get_const flag lthy _ qty =
 (* FIXME: check here that _ and qty are related *)