src/HOL/Tools/Sledgehammer/metis_clauses.ML
changeset 39318 ad9a1f9b0558
parent 38864 4abe644fcea5
child 39355 104a6d9e493e
--- a/src/HOL/Tools/Sledgehammer/metis_clauses.ML	Sat Sep 11 10:20:48 2010 +0200
+++ b/src/HOL/Tools/Sledgehammer/metis_clauses.ML	Sat Sep 11 10:21:52 2010 +0200
@@ -270,7 +270,7 @@
     val tvars = gen_TVars (length args)
     val tvars_srts = ListPair.zip (tvars, args)
   in
-    ArityClause {name = name, 
+    ArityClause {name = name,
                  conclLit = TConsLit (`make_type_class cls,
                                       `make_fixed_type_const tcons,
                                       tvars ~~ tvars),