IsoShort.agda