changeset 63038 | 1fbad761c1ba |
parent 63019 | 80ef19b51493 |
child 63041 | cb495c4807b3 |
--- a/src/Pure/Isar/specification.ML Sun Apr 24 20:29:49 2016 +0200 +++ b/src/Pure/Isar/specification.ML Sun Apr 24 20:37:24 2016 +0200 @@ -237,7 +237,7 @@ let val ((vars, [((raw_name, atts), prop)]), get_pos) = fst (prep (the_list raw_var) [raw_spec] lthy); - val (((x, T), rhs), prove) = Local_Defs.derived_def lthy true prop; + val (((x, T), rhs), prove) = Local_Defs.derived_def lthy {conditional = true} prop; val _ = Name.reject_internal (x, []); val (b, mx) = (case vars of