Module Genredexpr

Reduction expressions

type 'a red_atom =
| FBeta
| FMatch
| FFix
| FCofix
| FZeta
| FConst of 'a list
| FDeltaBut of 'a list
| FHead
type strength =
| Norm
| Head
type 'a glob_red_flag = {
rStrength : strength;
rBeta : bool;
rMatch : bool;
rFix : bool;
rCofix : bool;
rZeta : bool;
rDelta : bool;

true = delta all but rConst; false = delta only on rConst

rConst : 'a list;
}
type ('a, 'b, 'c, 'flags) red_expr_gen0 =
| Red
| Hnf
| Simpl of 'flags * ('b'c) Util.union Locus.with_occurrences option
| Cbv of 'flags
| Cbn of 'flags
| Lazy of 'flags
| Unfold of 'b Locus.with_occurrences list
| Fold of 'a list
| Pattern of 'a Locus.with_occurrences list
| ExtraRedExpr of string
| CbvVm of ('b'c) Util.union Locus.with_occurrences option
| CbvNative of ('b'c) Util.union Locus.with_occurrences option
type ('a, 'b, 'c) red_expr_gen = ('a'b'c'b glob_red_flag) red_expr_gen0
type ('a, 'b, 'c) may_eval =
| ConstrTerm of 'a
| ConstrEval of ('a'b'c) red_expr_gen * 'a
| ConstrContext of Names.lident * 'a
| ConstrTypeOf of 'a
type r_trm = Constrexpr.constr_expr
type r_pat = Constrexpr.constr_pattern_expr
type r_cst = Libnames.qualid Constrexpr.or_by_notation
type raw_red_expr = (r_trmr_cstr_pat) red_expr_gen
type 'a and_short_name = 'a * Names.lident option
type g_trm = Genintern.glob_constr_and_expr
type g_pat = Genintern.glob_constr_pattern_and_expr
type g_cst = Tacred.evaluable_global_reference and_short_name Locus.or_var
type glob_red_expr = (g_trmg_cstg_pat) red_expr_gen