# HG changeset patch # User wenzelm # Date 1495488265 -7200 # Node ID 637d18b325d0dd79bdf0b554724d7e203c8565ac # Parent 78fa1771f61de929594fd62d13ba69e63f0bae22 less ambitious parallelism to make this work more robustly on Windows; diff -r 78fa1771f61d -r 637d18b325d0 src/HOL/Nitpick_Examples/Mini_Nits.thy --- a/src/HOL/Nitpick_Examples/Mini_Nits.thy Mon May 22 21:49:41 2017 +0200 +++ b/src/HOL/Nitpick_Examples/Mini_Nits.thy Mon May 22 23:24:25 2017 +0200 @@ -24,88 +24,88 @@ val unknown = expect "unknown" \ -ML_val \genuine 1 @{prop "x = Not"}\ -ML_val \none 1 @{prop "\x. x = Not"}\ -ML_val \none 1 @{prop "\ False"}\ -ML_val \genuine 1 @{prop "\ True"}\ -ML_val \none 1 @{prop "\ \ b \ b"}\ -ML_val \none 1 @{prop True}\ -ML_val \genuine 1 @{prop False}\ -ML_val \genuine 1 @{prop "True \ False"}\ -ML_val \none 1 @{prop "True \ \ False"}\ -ML_val \none 4 @{prop "\x. x = x"}\ -ML_val \none 4 @{prop "\x. x = x"}\ -ML_val \none 1 @{prop "\x. x = y"}\ -ML_val \genuine 2 @{prop "\x. x = y"}\ -ML_val \none 2 @{prop "\x. x = y"}\ -ML_val \none 2 @{prop "\x::'a \ 'a. x = x"}\ -ML_val \none 2 @{prop "\x::'a \ 'a. x = y"}\ -ML_val \genuine 2 @{prop "\x::'a \ 'a. x = y"}\ -ML_val \none 2 @{prop "\x::'a \ 'a. x = y"}\ -ML_val \none 1 @{prop "All = Ex"}\ -ML_val \genuine 2 @{prop "All = Ex"}\ -ML_val \none 1 @{prop "All P = Ex P"}\ -ML_val \genuine 2 @{prop "All P = Ex P"}\ -ML_val \none 4 @{prop "x = y \ P x = P y"}\ -ML_val \none 4 @{prop "(x::'a \ 'a) = y \ P x = P y"}\ -ML_val \none 2 @{prop "(x::'a \ 'a) = y \ P x y = P y x"}\ -ML_val \none 4 @{prop "\x::'a \ 'a. x = y \ P x = P y"}\ -ML_val \none 2 @{prop "(x::'a \ 'a) = y \ P x = P y"}\ -ML_val \none 2 @{prop "\x::'a \ 'a. x = y \ P x = P y"}\ -ML_val \genuine 1 @{prop "(op =) X = Ex"}\ -ML_val \none 2 @{prop "\x::'a \ 'a. x = x"}\ -ML_val \none 1 @{prop "x = y"}\ -ML_val \genuine 1 @{prop "x \ y"}\ -ML_val \genuine 2 @{prop "x = y"}\ -ML_val \genuine 1 @{prop "X \ Y"}\ -ML_val \none 1 @{prop "P \ Q \ Q \ P"}\ -ML_val \none 1 @{prop "P \ Q \ P"}\ -ML_val \none 1 @{prop "P \ Q \ Q \ P"}\ -ML_val \genuine 1 @{prop "P \ Q \ P"}\ -ML_val \none 1 @{prop "(P \ Q) \ (\ P \ Q)"}\ -ML_val \none 4 @{prop "{a} = {a, a}"}\ -ML_val \genuine 2 @{prop "{a} = {a, b}"}\ -ML_val \genuine 1 @{prop "{a} \ {a, b}"}\ -ML_val \none 4 @{prop "{}\<^sup>+ = {}"}\ -ML_val \none 4 @{prop "UNIV\<^sup>+ = UNIV"}\ -ML_val \none 4 @{prop "(UNIV :: ('a \ 'b) set) - {} = UNIV"}\ -ML_val \none 4 @{prop "{} - (UNIV :: ('a \ 'b) set) = {}"}\ -ML_val \none 1 @{prop "{(a, b), (b, c)}\<^sup>+ = {(a, b), (a, c), (b, c)}"}\ -ML_val \genuine 2 @{prop "{(a, b), (b, c)}\<^sup>+ = {(a, b), (a, c), (b, c)}"}\ -ML_val \none 4 @{prop "a \ c \ {(a, b), (b, c)}\<^sup>+ = {(a, b), (a, c), (b, c)}"}\ -ML_val \none 4 @{prop "A \ B = {x. x \ A \ x \ B}"}\ -ML_val \none 4 @{prop "A \ B = {x. x \ A \ x \ B}"}\ -ML_val \none 4 @{prop "A - B = (\x. A x \ \ B x)"}\ -ML_val \none 4 @{prop "\a b. (a, b) = (b, a)"}\ -ML_val \genuine 2 @{prop "(a, b) = (b, a)"}\ -ML_val \genuine 2 @{prop "(a, b) \ (b, a)"}\ -ML_val \none 4 @{prop "\a b::'a \ 'a. (a, b) = (b, a)"}\ -ML_val \genuine 2 @{prop "(a::'a \ 'a, b) = (b, a)"}\ -ML_val \none 4 @{prop "\a b::'a \ 'a \ 'a. (a, b) = (b, a)"}\ -ML_val \genuine 2 @{prop "(a::'a \ 'a \ 'a, b) \ (b, a)"}\ -ML_val \none 4 @{prop "\a b::'a \ 'a. (a, b) = (b, a)"}\ -ML_val \genuine 1 @{prop "(a::'a \ 'a, b) \ (b, a)"}\ -ML_val \none 4 @{prop "fst (a, b) = a"}\ -ML_val \none 1 @{prop "fst (a, b) = b"}\ -ML_val \genuine 2 @{prop "fst (a, b) = b"}\ -ML_val \genuine 2 @{prop "fst (a, b) \ b"}\ -ML_val \genuine 2 @{prop "f ((x, z), y) = (x, z)"}\ -ML_val \none 2 @{prop "(ALL x. f x = fst x) \ f ((x, z), y) = (x, z)"}\ -ML_val \none 4 @{prop "snd (a, b) = b"}\ -ML_val \none 1 @{prop "snd (a, b) = a"}\ -ML_val \genuine 2 @{prop "snd (a, b) = a"}\ -ML_val \genuine 2 @{prop "snd (a, b) \ a"}\ -ML_val \genuine 1 @{prop P}\ -ML_val \genuine 1 @{prop "(\x. P) a"}\ -ML_val \genuine 1 @{prop "(\x y z. P y x z) a b c"}\ -ML_val \none 4 @{prop "\f. f = (\x. x) \ f y = y"}\ -ML_val \genuine 1 @{prop "\f. f p \ p \ (\a b. f (a, b) = (a, b))"}\ -ML_val \none 2 @{prop "\f. \a b. f (a, b) = (a, b)"}\ -ML_val \none 3 @{prop "f = (\a b. (b, a)) \ f x y = (y, x)"}\ -ML_val \genuine 2 @{prop "f = (\a b. (b, a)) \ f x y = (x, y)"}\ -ML_val \none 4 @{prop "f = (\x. f x)"}\ -ML_val \none 4 @{prop "f = (\x. f x::'a \ bool)"}\ -ML_val \none 4 @{prop "f = (\x y. f x y)"}\ -ML_val \none 4 @{prop "f = (\x y. f x y::'a \ bool)"}\ +ML \genuine 1 @{prop "x = Not"}\ +ML \none 1 @{prop "\x. x = Not"}\ +ML \none 1 @{prop "\ False"}\ +ML \genuine 1 @{prop "\ True"}\ +ML \none 1 @{prop "\ \ b \ b"}\ +ML \none 1 @{prop True}\ +ML \genuine 1 @{prop False}\ +ML \genuine 1 @{prop "True \ False"}\ +ML \none 1 @{prop "True \ \ False"}\ +ML \none 4 @{prop "\x. x = x"}\ +ML \none 4 @{prop "\x. x = x"}\ +ML \none 1 @{prop "\x. x = y"}\ +ML \genuine 2 @{prop "\x. x = y"}\ +ML \none 2 @{prop "\x. x = y"}\ +ML \none 2 @{prop "\x::'a \ 'a. x = x"}\ +ML \none 2 @{prop "\x::'a \ 'a. x = y"}\ +ML \genuine 2 @{prop "\x::'a \ 'a. x = y"}\ +ML \none 2 @{prop "\x::'a \ 'a. x = y"}\ +ML \none 1 @{prop "All = Ex"}\ +ML \genuine 2 @{prop "All = Ex"}\ +ML \none 1 @{prop "All P = Ex P"}\ +ML \genuine 2 @{prop "All P = Ex P"}\ +ML \none 4 @{prop "x = y \ P x = P y"}\ +ML \none 4 @{prop "(x::'a \ 'a) = y \ P x = P y"}\ +ML \none 2 @{prop "(x::'a \ 'a) = y \ P x y = P y x"}\ +ML \none 4 @{prop "\x::'a \ 'a. x = y \ P x = P y"}\ +ML \none 2 @{prop "(x::'a \ 'a) = y \ P x = P y"}\ +ML \none 2 @{prop "\x::'a \ 'a. x = y \ P x = P y"}\ +ML \genuine 1 @{prop "(op =) X = Ex"}\ +ML \none 2 @{prop "\x::'a \ 'a. x = x"}\ +ML \none 1 @{prop "x = y"}\ +ML \genuine 1 @{prop "x \ y"}\ +ML \genuine 2 @{prop "x = y"}\ +ML \genuine 1 @{prop "X \ Y"}\ +ML \none 1 @{prop "P \ Q \ Q \ P"}\ +ML \none 1 @{prop "P \ Q \ P"}\ +ML \none 1 @{prop "P \ Q \ Q \ P"}\ +ML \genuine 1 @{prop "P \ Q \ P"}\ +ML \none 1 @{prop "(P \ Q) \ (\ P \ Q)"}\ +ML \none 4 @{prop "{a} = {a, a}"}\ +ML \genuine 2 @{prop "{a} = {a, b}"}\ +ML \genuine 1 @{prop "{a} \ {a, b}"}\ +ML \none 4 @{prop "{}\<^sup>+ = {}"}\ +ML \none 4 @{prop "UNIV\<^sup>+ = UNIV"}\ +ML \none 4 @{prop "(UNIV :: ('a \ 'b) set) - {} = UNIV"}\ +ML \none 4 @{prop "{} - (UNIV :: ('a \ 'b) set) = {}"}\ +ML \none 1 @{prop "{(a, b), (b, c)}\<^sup>+ = {(a, b), (a, c), (b, c)}"}\ +ML \genuine 2 @{prop "{(a, b), (b, c)}\<^sup>+ = {(a, b), (a, c), (b, c)}"}\ +ML \none 4 @{prop "a \ c \ {(a, b), (b, c)}\<^sup>+ = {(a, b), (a, c), (b, c)}"}\ +ML \none 4 @{prop "A \ B = {x. x \ A \ x \ B}"}\ +ML \none 4 @{prop "A \ B = {x. x \ A \ x \ B}"}\ +ML \none 4 @{prop "A - B = (\x. A x \ \ B x)"}\ +ML \none 4 @{prop "\a b. (a, b) = (b, a)"}\ +ML \genuine 2 @{prop "(a, b) = (b, a)"}\ +ML \genuine 2 @{prop "(a, b) \ (b, a)"}\ +ML \none 4 @{prop "\a b::'a \ 'a. (a, b) = (b, a)"}\ +ML \genuine 2 @{prop "(a::'a \ 'a, b) = (b, a)"}\ +ML \none 4 @{prop "\a b::'a \ 'a \ 'a. (a, b) = (b, a)"}\ +ML \genuine 2 @{prop "(a::'a \ 'a \ 'a, b) \ (b, a)"}\ +ML \none 4 @{prop "\a b::'a \ 'a. (a, b) = (b, a)"}\ +ML \genuine 1 @{prop "(a::'a \ 'a, b) \ (b, a)"}\ +ML \none 4 @{prop "fst (a, b) = a"}\ +ML \none 1 @{prop "fst (a, b) = b"}\ +ML \genuine 2 @{prop "fst (a, b) = b"}\ +ML \genuine 2 @{prop "fst (a, b) \ b"}\ +ML \genuine 2 @{prop "f ((x, z), y) = (x, z)"}\ +ML \none 2 @{prop "(ALL x. f x = fst x) \ f ((x, z), y) = (x, z)"}\ +ML \none 4 @{prop "snd (a, b) = b"}\ +ML \none 1 @{prop "snd (a, b) = a"}\ +ML \genuine 2 @{prop "snd (a, b) = a"}\ +ML \genuine 2 @{prop "snd (a, b) \ a"}\ +ML \genuine 1 @{prop P}\ +ML \genuine 1 @{prop "(\x. P) a"}\ +ML \genuine 1 @{prop "(\x y z. P y x z) a b c"}\ +ML \none 4 @{prop "\f. f = (\x. x) \ f y = y"}\ +ML \genuine 1 @{prop "\f. f p \ p \ (\a b. f (a, b) = (a, b))"}\ +ML \none 2 @{prop "\f. \a b. f (a, b) = (a, b)"}\ +ML \none 3 @{prop "f = (\a b. (b, a)) \ f x y = (y, x)"}\ +ML \genuine 2 @{prop "f = (\a b. (b, a)) \ f x y = (x, y)"}\ +ML \none 4 @{prop "f = (\x. f x)"}\ +ML \none 4 @{prop "f = (\x. f x::'a \ bool)"}\ +ML \none 4 @{prop "f = (\x y. f x y)"}\ +ML \none 4 @{prop "f = (\x y. f x y::'a \ bool)"}\ end