author | wenzelm |
Mon, 09 Aug 2010 13:56:02 +0200 | |
changeset 38252 | 175a5b4b2c94 |
parent 38251 | ea417f69b36f |
child 38253 | 3d4e521014f7 |
--- 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 =