src/HOL/Code_Numeral.thy
changeset 46635 cde737f9c911
parent 46547 d1dcb91a512e
child 46638 fc315796794e
     1.1 --- a/src/HOL/Code_Numeral.thy	Thu Feb 23 21:16:54 2012 +0100
     1.2 +++ b/src/HOL/Code_Numeral.thy	Thu Feb 23 21:25:59 2012 +0100
     1.3 @@ -281,18 +281,7 @@
     1.4  qed
     1.5  
     1.6  
     1.7 -text {* Lazy Evaluation of an indexed function *}
     1.8 -
     1.9 -function iterate_upto :: "(code_numeral \<Rightarrow> 'a) \<Rightarrow> code_numeral \<Rightarrow> code_numeral \<Rightarrow> 'a Predicate.pred"
    1.10 -where
    1.11 -  "iterate_upto f n m =
    1.12 -    Predicate.Seq (%u. if n > m then Predicate.Empty
    1.13 -     else Predicate.Insert (f n) (iterate_upto f (n + 1) m))"
    1.14 -by pat_completeness auto
    1.15 -
    1.16 -termination by (relation "measure (%(f, n, m). Code_Numeral.nat_of (m + 1 - n))") auto
    1.17 -
    1.18 -hide_const (open) of_nat nat_of Suc  subtract int_of iterate_upto
    1.19 +hide_const (open) of_nat nat_of Suc subtract int_of
    1.20  
    1.21  
    1.22  subsection {* Code generator setup *}
    1.23 @@ -377,3 +366,4 @@
    1.24    Code_Numeral Arith
    1.25  
    1.26  end
    1.27 +