Module Genredexpr

Reduction expressions

The parsing produces initially a list of red_atom

type 'a red_atom =
| FBeta
| FMatch
| FFix
| FCofix
| FZeta
| FConst of 'a list
| FDeltaBut of 'a list

This list of atoms is immediately converted to a glob_red_flag

type 'a glob_red_flag = {
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;
}

Generic kinds of reductions

type ('a, 'b, 'c, 'flags) red_expr_gen0 =
| Red of bool
| 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 raw_red_expr = (r_trm, r_cst, r_pat) red_expr_gen
val make0 : ?dyn:'a Geninterp.Val.tag -> string -> ('b, 'c, 'd) Genarg.genarg_type
type 'a and_short_name = 'a * Names.lident option