diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-25 23:02:20 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-25 23:02:20 +0000 |
| commit | affdf7a0b6fa9a49562f4af04903ae8e44237654 (patch) | |
| tree | 677de90635d88fbed2294fc471bc68c99a0ad71d /pretyping/unification.ml | |
| parent | 6231cb1123a9d0d0b18d9aa457e645272fd8195e (diff) | |
Evarconv: When doing a iota of a fixpoint, use constant name instead of fixpoint definition
+ Help the use of #trace on evar_conv_appr_x
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16244 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/unification.ml')
| -rw-r--r-- | pretyping/unification.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 8b89bd438..e287ca52a 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -343,7 +343,7 @@ let oracle_order env cf1 cf2 = | Some k2 -> Some (Conv_oracle.oracle_order false k1 k2) let do_reduce ts (env, nb) sigma c = - zip (whd_betaiota_deltazeta_for_iota_state ts env sigma (c, empty_stack)) + zip (fst (whd_betaiota_deltazeta_for_iota_state ts env sigma Cst_stack.empty (c, empty_stack))) let use_full_betaiota flags = flags.modulo_betaiota && Flags.version_strictly_greater Flags.V8_3 |