sig val cur_phase : Phases.any_phase Logtk.Flex_state.key end