diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-01 17:34:36 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-01 17:34:36 +0000 |
commit | 2292dd89b9b36ec8c865ab67e5291088bfcc4806 (patch) | |
tree | 8f3b52d8ed240ae3f1994085872c7d9416098004 /proofs/refiner.ml | |
parent | 60dc2f1f6f6b0ec0d9c0826c320e08930f3a4d93 (diff) |
Correction bug #842 (rename d'une hyp du contexte)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8107 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/refiner.ml')
-rw-r--r-- | proofs/refiner.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index dd719e48e..f4ed6694e 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -282,7 +282,7 @@ let extract_open_proof sigma pf = let visible_rels = map_succeed (fun id -> - try let n = list_index id vl in (n,id) + try let n = proof_variable_index id vl in (n,id) with Not_found -> failwith "caught") (ids_of_named_context (named_context_of_val goal.evar_hyps)) in let sorted_rels = |