Control/Beh.agda