diff options
| author | herbelin | 2000-10-03 18:10:47 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-03 18:10:47 +0000 |
| commit | 7c9ee80ea7f6beeddbf922b46f8436d92c0b27ce (patch) | |
| tree | 8a87902ccd6f3c0663d915fb43288fd6762637b5 /kernel/sign.ml | |
| parent | 33d14679b922ae0a15c10e788335f23a3a64c643 (diff) | |
Rebranchement de la tactique Let
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@638 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/sign.ml')
| -rw-r--r-- | kernel/sign.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/sign.ml b/kernel/sign.ml index 27aa150e62..d9438eb98a 100644 --- a/kernel/sign.ml +++ b/kernel/sign.ml @@ -43,6 +43,7 @@ let rec mem_var_context id = function | _ :: sign -> mem_var_context id sign | [] -> false let fold_var_context = List.fold_right +let fold_var_context_reverse = List.fold_left let fold_var_context_both_sides = list_fold_right_and_left let it_var_context_quantifier f = List.fold_left (fun c d -> f d c) |