Module Serapi_goals

type 'a hyp = Names.Id.t list * 'a option * 'a
type info = {
  1. evar : Evar.t;
  2. name : Names.Id.t option;
}
type 'a reified_goal = {
  1. info : info;
  2. ty : 'a;
  3. hyp : 'a hyp list;
}
type 'a ser_goals = {
  1. goals : 'a list;
  2. stack : ('a list * 'a list) list;
  3. shelf : 'a list;
  4. given_up : 'a list;
  5. bullet : Pp.t option;
}
val get_goals_gen : (Environ.env -> Evd.evar_map -> Constr.t -> 'a) -> doc:Stm.doc -> Stateid.t -> 'a reified_goal ser_goals option
val get_goals : doc:Stm.doc -> Stateid.t -> Constr.t reified_goal ser_goals option
val get_egoals : doc:Stm.doc -> Stateid.t -> Constrexpr.constr_expr reified_goal ser_goals option