author Andreas Lochbihler Thu Mar 12 14:08:47 2015 +0100 (2015-03-12) changeset 59680 034a4d15b52e parent 59679 2574977f9afa child 59681 f24ab09e4c37
make proofs work with 4762c690a75c
 src/HOL/NSA/Examples/NSPrimes.thy file | annotate | diff | revisions src/HOL/NSA/StarDef.thy file | annotate | diff | revisions
```     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
```