tuned comments;
authorwenzelm
Mon, 09 Aug 2010 13:56:02 +0200
changeset 38252 175a5b4b2c94
parent 38251 ea417f69b36f
child 38253 3d4e521014f7
tuned comments;
src/HOL/Tools/record.ML
--- a/src/HOL/Tools/record.ML	Mon Aug 09 11:45:30 2010 +0200
+++ b/src/HOL/Tools/record.ML	Mon Aug 09 13:56:02 2010 +0200
@@ -74,7 +74,7 @@
 
 val tuple_iso_tuple = (@{const_name Record.tuple_iso_tuple}, @{thm tuple_iso_tuple});
 
-fun named_cterm_instantiate values thm =
+fun named_cterm_instantiate values thm =  (* FIXME eliminate *)
   let
     fun match name ((name', _), _) = name = name';
     fun getvar name =