src/HOL/Tools/Metis/metis_tactic.ML
changeset 55523 9429e7b5b827
parent 55521 241c6a2fdda1
child 57263 2b6a96cc64c9
--- a/src/HOL/Tools/Metis/metis_tactic.ML	Sun Feb 16 21:09:47 2014 +0100
+++ b/src/HOL/Tools/Metis/metis_tactic.ML	Sun Feb 16 21:33:28 2014 +0100
@@ -283,7 +283,7 @@
 
 fun set_opt _ x NONE = SOME x
   | set_opt get x (SOME x0) =
-    error ("Cannot specify both " ^ quote (get x0) ^ " and " ^ quote (get x) ^ ".")
+    error ("Cannot specify both " ^ quote (get x0) ^ " and " ^ quote (get x))
 
 fun consider_opt s =
   if member (op =) metis_lam_transs s then apsnd (set_opt I s) else apfst (set_opt hd [s])