Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Tools/Presburger/reflected_cooper.ML
changeset 21820 2f2b6a965ccc
parent 21416 f23e4e75dfd3
child 21909 a6439243512b 
--- a/src/HOL/Tools/Presburger/reflected_cooper.ML	Wed Dec 13 15:45:30 2006 +0100
+++ b/src/HOL/Tools/Presburger/reflected_cooper.ML	Wed Dec 13 15:45:31 2006 +0100
@@ -20,7 +20,7 @@
       | Const ("HOL.plus",_)$t1$t2 => Add (i_of_term vs t1,i_of_term vs t2)
       | Const ("HOL.minus",_)$t1$t2 => Sub (i_of_term vs t1,i_of_term vs t2)
       | Const ("HOL.times",_)$t1$t2 => Mult (i_of_term vs t1,i_of_term vs t2)
-      | Const ("Numeral.number_of",_)$t' => Cst (HOLogic.dest_binum t')
+      | Const ("Numeral.number_of",_)$t' => Cst (HOLogic.dest_numeral t')
       | _ => error "i_of_term: unknown term";
 	
 
@@ -75,7 +75,7 @@
 
 fun term_of_i vs t =
     case t of 
-	Cst i => CooperDec.mk_numeral i
+	Cst i => CooperDec.mk_number i
       | Var n => valOf (myassoc2 vs n)
       | Neg t' => Const("HOL.uminus",iT --> iT)$(term_of_i vs t')
       | Add(t1,t2) => Const("HOL.plus",[iT,iT] ---> iT)$
isabelle