Control/Protocol/Choreography.agda