Logging.MatchResultReport
type remaining_state = MatchCaseReport.t
val remaining_state_to_yojson : remaining_state -> Yojson.Safe.t
val remaining_state_of_yojson :
Yojson.Safe.t ->
remaining_state Ppx_deriving_yojson_runtime.error_or
type t =
| Success of {
astate : AstateRec.t;
subst : Symbolic.Subst.t;
posts : (Gil_syntax.Flag.t * Gil_syntax.Asrt.t list) option;
remaining_states : remaining_state list;
}
| Failure of {
cur_step : Engine.MP.step option;
subst : Symbolic.Subst.t;
astate : AstateRec.t;
errors : err_t list;
}
val to_yojson : t -> Yojson.Safe.t
val of_yojson : Yojson.Safe.t -> t Ppx_deriving_yojson_runtime.error_or