make proofs work with 4762c690a75c
authorAndreas Lochbihler
Thu Mar 12 14:08:47 2015 +0100 (2015-03-12)
changeset 59680034a4d15b52e
parent 59679 2574977f9afa
child 59681 f24ab09e4c37
make proofs work with 4762c690a75c
src/HOL/NSA/Examples/NSPrimes.thy
src/HOL/NSA/StarDef.thy
     1.1 --- a/src/HOL/NSA/Examples/NSPrimes.thy	Wed Mar 11 11:21:58 2015 +0100
     1.2 +++ b/src/HOL/NSA/Examples/NSPrimes.thy	Thu Mar 12 14:08:47 2015 +0100
     1.3 @@ -13,8 +13,6 @@
     1.4  text{*These can be used to derive an alternative proof of the infinitude of
     1.5  primes by considering a property of nonstandard sets.*}
     1.6  
     1.7 -declare dvd_def [transfer_refold]
     1.8 -
     1.9  definition
    1.10    starprime :: "hypnat set" where
    1.11    [transfer_unfold]: "starprime = ( *s* {p. prime p})"
     2.1 --- a/src/HOL/NSA/StarDef.thy	Wed Mar 11 11:21:58 2015 +0100
     2.2 +++ b/src/HOL/NSA/StarDef.thy	Thu Mar 12 14:08:47 2015 +0100
     2.3 @@ -848,11 +848,7 @@
     2.4  instance star :: (semiring_1) semiring_1 ..
     2.5  instance star :: (comm_semiring_1) comm_semiring_1 ..
     2.6  
     2.7 -lemma star_dvd_def [transfer_unfold]: "op dvd = *p2* (op dvd)"
     2.8 -apply (rule ext)+
     2.9 -apply (unfold dvd_def[abs_def], transfer)
    2.10 -apply (rule refl)
    2.11 -done
    2.12 +declare dvd_def [transfer_refold]
    2.13  
    2.14  instance star :: (semiring_dvd) semiring_dvd
    2.15  apply intro_classes