diff -r 26fefde1d124 -r d1064fa29424 Quot/quotient_def.ML
--- a/Quot/quotient_def.ML	Tue Dec 22 21:16:11 2009 +0100
+++ b/Quot/quotient_def.ML	Tue Dec 22 21:31:44 2009 +0100
@@ -36,8 +36,7 @@
 let
   val Free (lhs_str, lhs_ty) = lhs;
   val qconst_bname = Binding.name lhs_str;
-  val absrep_trm = get_fun absF lthy (fastype_of rhs, lhs_ty) $ rhs
-                   |> Syntax.check_term lthy
+  val absrep_trm = absrep_fun_chk absF lthy (fastype_of rhs, lhs_ty) $ rhs
   val prop = Logic.mk_equals (lhs, absrep_trm)
   val (_, prop') = LocalDefs.cert_def lthy prop
   val (_, newrhs) = Primitive_Defs.abs_def prop'