diff options
author | 2013-10-31 14:24:43 +0000 | |
---|---|---|
committer | 2013-10-31 14:24:43 +0000 | |
commit | dbd94e12c9c6cb0fdecb44bfedacf0c4ae50bc3e (patch) | |
tree | f09931dac187ca9b20bb483aee7bc9beca1e78f1 /kernel/reduction.ml | |
parent | b0631cba10fda88eb3518153860807b10441ef34 (diff) |
Conv_orable made functional and part of pre_env
But for vm, the kernel should be functional now
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16961 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 48c63ac96..194b223bb 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -299,7 +299,7 @@ and eqappr cv_pb l2r infos (lft1,st1) (lft2,st2) cuniv = with NotConvertible -> (* else the oracle tells which constant is to be expanded *) let (app1,app2) = - if Conv_oracle.oracle_order l2r fl1 fl2 then + if Conv_oracle.oracle_order (Closure.oracle_of_infos (snd infos)) l2r fl1 fl2 then match unfold_reference infos fl1 with | Some def1 -> ((lft1, whd_stack (snd infos) def1 v1), appr2) | None -> |