src/Pure/Isar/specification.ML
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