src/HOL/Quickcheck_Exhaustive.thy
changeset 58350 919149921e46
parent 58334 7553a1bcecb7
child 58813 625d04d4fd2a
     1.1 --- a/src/HOL/Quickcheck_Exhaustive.thy	Tue Sep 16 18:42:33 2014 +0200
     1.2 +++ b/src/HOL/Quickcheck_Exhaustive.thy	Tue Sep 16 19:23:37 2014 +0200
     1.3 @@ -574,8 +574,11 @@
     1.4  where
     1.5    "pos_bound_cps_if b = (if b then pos_bound_cps_single () else pos_bound_cps_empty)"
     1.6  
     1.7 -datatype (plugins only: code) (dead 'a) unknown = Unknown | Known 'a
     1.8 -datatype (plugins only: code) (dead 'a) three_valued = Unknown_value | Value 'a | No_value
     1.9 +datatype (plugins only: code extraction) (dead 'a) unknown =
    1.10 +  Unknown | Known 'a
    1.11 +
    1.12 +datatype (plugins only: code extraction) (dead 'a) three_valued =
    1.13 +  Unknown_value | Value 'a | No_value
    1.14  
    1.15  type_synonym 'a neg_bound_cps = "('a unknown => term list three_valued) => natural => term list three_valued"
    1.16