lib/Data/ShapePolymorphism.agda