equal
deleted
inserted
replaced
215 end |
215 end |
216 |
216 |
217 instantiation int :: card_UNIV begin |
217 instantiation int :: card_UNIV begin |
218 definition "finite_UNIV = Phantom(int) False" |
218 definition "finite_UNIV = Phantom(int) False" |
219 definition "card_UNIV = Phantom(int) 0" |
219 definition "card_UNIV = Phantom(int) 0" |
220 instance by intro_classes (simp_all add: card_UNIV_int_def finite_UNIV_int_def infinite_UNIV_int) |
220 instance by intro_classes (simp_all add: card_UNIV_int_def finite_UNIV_int_def) |
221 end |
221 end |
222 |
222 |
223 instantiation natural :: card_UNIV begin |
223 instantiation natural :: card_UNIV begin |
224 definition "finite_UNIV = Phantom(natural) False" |
224 definition "finite_UNIV = Phantom(natural) False" |
225 definition "card_UNIV = Phantom(natural) 0" |
225 definition "card_UNIV = Phantom(natural) 0" |