diff options
| author | herbelin | 2000-10-11 20:14:39 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-11 20:14:39 +0000 |
| commit | ca4aacadcb3df85db7847ec8f721f5feffde9d4d (patch) | |
| tree | dd0afdb09a75a1e6c67cb1dfb016b300df30037f /kernel/reduction.ml | |
| parent | 23b561d63073f0193caa63c953ca3176a1a4fb47 (diff) | |
Idem pour défs locales dans Var
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@701 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/reduction.ml')
| -rw-r--r-- | kernel/reduction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index ceae6e8ddb..bfb3a565fd 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -276,11 +276,11 @@ let whd_state_gen flags env sigma = (match lookup_rel_value n env with | Some body -> whrec (lift n body, stack) | None -> s) -*) | IsVar id when red_delta flags -> (match lookup_var_value id env with | Some body -> whrec (body, stack) | None -> s) +*) | IsEvar ev when red_evar flags -> (match existential_opt_value sigma ev with | Some body -> whrec (body, stack) |