Moved old code; does not work with Agda 2.4.2.1