diff options
| author | ppedrot | 2013-11-08 19:03:55 +0000 |
|---|---|---|
| committer | ppedrot | 2013-11-08 19:03:55 +0000 |
| commit | dea497aa1846f19693a4ae9c88497e4484d1fba0 (patch) | |
| tree | a47e684e6d9521596c4c00d4a6ece6068ebc9e16 | |
| parent | 0a296b7a3fd39f6b2117c0278219a382d2c207c2 (diff) | |
Removing partial applications in Reductionops.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17071 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/reductionops.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index acd3a7eba7..98fc8f0559 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -546,10 +546,13 @@ let local_whd_state_gen flags sigma = in whrec -let raw_whd_state_gen flags env sigma s = fst (whd_state_gen false flags env sigma s) +let raw_whd_state_gen flags env = + let f sigma s = fst (whd_state_gen false flags env sigma s) in + f -let stack_red_of_state_red f sigma x = - decompose_app (zip (f sigma (x, empty_stack))) +let stack_red_of_state_red f = + let f sigma x = decompose_app (zip (f sigma (x, empty_stack))) in + f let red_of_state_red f sigma x = zip (f sigma (x,empty_stack)) |