264
265 hide_fact (open) id_transfer
266
267 datatype_new 'a F = F 'a
268
269 primrec f where
270 "f (F x) = x"
271
269 end
272 end