src/HOL/Nitpick_Examples/Integer_Nits.thy
changeset 42959 ee829022381d
parent 42208 02513eb26eb7
child 45035 60d2c03d5c70
equal deleted inserted replaced
42958:034fc4d0c909 42959:ee829022381d
     9 
     9 
    10 theory Integer_Nits
    10 theory Integer_Nits
    11 imports Nitpick
    11 imports Nitpick
    12 begin
    12 begin
    13 
    13 
    14 nitpick_params [verbose, card = 1\<midarrow>5, bits = 1,2,3,4,6,
    14 nitpick_params [verbose, card = 1\<emdash>5, bits = 1,2,3,4,6,
    15                 sat_solver = MiniSat_JNI, max_threads = 1, timeout = 240]
    15                 sat_solver = MiniSat_JNI, max_threads = 1, timeout = 240]
    16 
    16 
    17 lemma "Suc x = x + 1"
    17 lemma "Suc x = x + 1"
    18 nitpick [unary_ints, expect = none]
    18 nitpick [unary_ints, expect = none]
    19 nitpick [binary_ints, expect = none]
    19 nitpick [binary_ints, expect = none]
   185 nitpick [binary_ints, expect = genuine]
   185 nitpick [binary_ints, expect = genuine]
   186 oops
   186 oops
   187 
   187 
   188 lemma "y \<noteq> 0 \<Longrightarrow> x * y div y = (x::int)"
   188 lemma "y \<noteq> 0 \<Longrightarrow> x * y div y = (x::int)"
   189 nitpick [unary_ints, expect = none]
   189 nitpick [unary_ints, expect = none]
   190 nitpick [binary_ints, card = 1\<midarrow>4, bits = 1\<midarrow>4, expect = none]
   190 nitpick [binary_ints, card = 1\<emdash>4, bits = 1\<emdash>4, expect = none]
   191 sorry
   191 sorry
   192 
   192 
   193 lemma "(x * y < 0) \<longleftrightarrow> (x > 0 \<and> y < 0) \<or> (x < 0 \<and> y > (0::int))"
   193 lemma "(x * y < 0) \<longleftrightarrow> (x > 0 \<and> y < 0) \<or> (x < 0 \<and> y > (0::int))"
   194 nitpick [unary_ints, expect = none]
   194 nitpick [unary_ints, expect = none]
   195 nitpick [binary_ints, expect = none]
   195 nitpick [binary_ints, expect = none]