diff options
| author | herbelin | 2002-12-09 08:40:00 +0000 |
|---|---|---|
| committer | herbelin | 2002-12-09 08:40:00 +0000 |
| commit | 18ffccadd1901e666ea3600263454446f52849d8 (patch) | |
| tree | e7c69b9c82ba2e17ee52e5ff29632c817a76f7b7 /pretyping/rawterm.ml | |
| parent | cd4d18cf0de8e8077a9c141a3e825b7647f03f8e (diff) | |
Ajout Simpl et Change sur des sous-termes
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3392 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/rawterm.ml')
| -rw-r--r-- | pretyping/rawterm.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/pretyping/rawterm.ml b/pretyping/rawterm.ml index 7fd10ef23f..9354035497 100644 --- a/pretyping/rawterm.ml +++ b/pretyping/rawterm.ml @@ -250,15 +250,17 @@ type 'a raw_red_flag = { rConst : 'a list } +type 'a occurrences = int list * 'a + type ('a,'b) red_expr_gen = | Red of bool | Hnf - | Simpl + | Simpl of 'a occurrences option | Cbv of 'b raw_red_flag | Lazy of 'b raw_red_flag - | Unfold of (int list * 'b) list + | Unfold of 'b occurrences list | Fold of 'a list - | Pattern of (int list * 'a) list + | Pattern of 'a occurrences list | ExtraRedExpr of string * 'a type 'a or_metanum = AN of 'a | MetaNum of int located |