sig val cur_phase : Phases.any_phase Flex_state.key end