changeset 20194 | c9dbce9a23a1 |
parent 20053 | 7f32ce6354d6 |
child 20255 | 5a8410198a33 |
--- a/src/HOL/Integ/presburger.ML Tue Jul 25 21:17:58 2006 +0200 +++ b/src/HOL/Integ/presburger.ML Tue Jul 25 21:18:00 2006 +0200 @@ -65,7 +65,7 @@ @ powerarith @[thm"not_false_eq_true", thm "not_true_eq_false"]; fun cooper_pp sg (fm as e$Abs(xn,xT,p)) = - let val (xn1,p1) = variant_abs (xn,xT,p) + let val (xn1,p1) = Syntax.variant_abs (xn,xT,p) in (CooperProof.cooper_prv sg (Free (xn1, xT)) p1) end; fun mnnf_pp sg fm = CooperProof.proof_of_cnnf sg fm