Module Redexpr.Interp

type ('constr, 'evref, 'pat, 'usr) interp_env = {
  1. interp_occurrence_var : Names.lident -> int list;
  2. interp_constr : Environ.env -> Evd.evar_map -> 'constr -> Evd.evar_map * EConstr.constr;
  3. interp_constr_list : Environ.env -> Evd.evar_map -> 'constr -> Evd.evar_map * EConstr.constr list;
  4. interp_evaluable : Environ.env -> Evd.evar_map -> 'evref -> Evaluable.t;
  5. interp_pattern : Environ.env -> Evd.evar_map -> 'pat -> Pattern.constr_pattern;
  6. interp_evaluable_or_pattern : Environ.env -> Evd.evar_map -> 'evref -> (Evaluable.t, Pattern.constr_pattern) Util.union;
}
val interp_red_expr : ('constr, 'evref, 'pat, 'usr) interp_env -> Environ.env -> Evd.evar_map -> ('constr, 'evref, 'pat, int Locus.or_var, Genarg.glevel user_red_expr) Genredexpr.red_expr_gen -> Evd.evar_map * red_expr