set up numeral reorient simproc in Num.thy
authorhuffman
Fri Mar 30 15:56:12 2012 +0200 (2012-03-30)
changeset 47226ea712316fc87
parent 47225 650318981557
child 47227 bc18fa07053b
set up numeral reorient simproc in Num.thy
src/HOL/Int.thy
src/HOL/Num.thy
     1.1 --- a/src/HOL/Int.thy	Fri Mar 30 15:43:30 2012 +0200
     1.2 +++ b/src/HOL/Int.thy	Fri Mar 30 15:56:12 2012 +0200
     1.3 @@ -844,16 +844,6 @@
     1.4    "(m::'a::linordered_idom) = n") =
     1.5    {* fn _ => fn ss => fn ct => Lin_Arith.simproc ss (term_of ct) *}
     1.6  
     1.7 -setup {*
     1.8 -  Reorient_Proc.add
     1.9 -    (fn Const (@{const_name numeral}, _) $ _ => true
    1.10 -    | Const (@{const_name neg_numeral}, _) $ _ => true
    1.11 -    | _ => false)
    1.12 -*}
    1.13 -
    1.14 -simproc_setup reorient_numeral
    1.15 -  ("numeral w = x" | "neg_numeral w = y") = Reorient_Proc.proc
    1.16 -
    1.17  
    1.18  subsection{*Lemmas About Small Numerals*}
    1.19  
     2.1 --- a/src/HOL/Num.thy	Fri Mar 30 15:43:30 2012 +0200
     2.2 +++ b/src/HOL/Num.thy	Fri Mar 30 15:56:12 2012 +0200
     2.3 @@ -975,10 +975,6 @@
     2.4  
     2.5  subsection {* Setting up simprocs *}
     2.6  
     2.7 -lemma numeral_reorient:
     2.8 -  "(numeral w = x) = (x = numeral w)"
     2.9 -  by auto
    2.10 -
    2.11  lemma mult_numeral_1: "Numeral1 * a = (a::'a::semiring_numeral)"
    2.12    by simp
    2.13  
    2.14 @@ -999,6 +995,16 @@
    2.15    mult_numeral_1 mult_numeral_1_right 
    2.16    mult_minus1 mult_minus1_right
    2.17  
    2.18 +setup {*
    2.19 +  Reorient_Proc.add
    2.20 +    (fn Const (@{const_name numeral}, _) $ _ => true
    2.21 +    | Const (@{const_name neg_numeral}, _) $ _ => true
    2.22 +    | _ => false)
    2.23 +*}
    2.24 +
    2.25 +simproc_setup reorient_numeral
    2.26 +  ("numeral w = x" | "neg_numeral w = y") = Reorient_Proc.proc
    2.27 +
    2.28  
    2.29  subsubsection {* Simplification of arithmetic operations on integer constants. *}
    2.30