src/HOL/Tools/record.ML
changeset 32808 0059238fe4bc
parent 32799 7478ea535416
child 32809 e72347dd3e64
     1.1 --- a/src/HOL/Tools/record.ML	Thu Oct 01 11:33:32 2009 +0200
     1.2 +++ b/src/HOL/Tools/record.ML	Thu Oct 01 12:15:35 2009 +0200
     1.3 @@ -1052,7 +1052,6 @@
     1.4    then noopt ()
     1.5    else opt ();
     1.6  
     1.7 -(* FIXME non-standard name for partial identity; rename to check_... (??) *)
     1.8  fun is_sel_upd_pair thy (Const (s, _)) (Const (u, t')) =
     1.9    (case get_updates thy u of
    1.10      SOME u_name => u_name = s