diff options
| author |  sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-18 13:28:17 +0000 |
|---|---|---|
| committer | sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-18 13:28:17 +0000 |
| commit | 5da0ac62b272c7595da16222e8e9004dc4d459a9 (patch) | |
| tree | fc1c14ccbcbaa239e5aa36751775f9fd78849806 /tactics | |
| parent | 330cae95df597e2407b8267f0889a22e11ca082b (diff) | |
Bug fixed: relations quantified more than once where abstracted in the wrong
order (and thus they were not accepted).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6234 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/setoid_replace.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index be49e06d0..f147e569e 100644 --- a/tactics/setoid_replace.ml +++ b/tactics/setoid_replace.ml @@ -637,7 +637,8 @@ let morphism_theory_id_of_morphism_proof_id id = (* apply_to_rels c [l1 ; ... ; ln] returns (c Rel1 ... reln) *) let apply_to_rels c l = - applistc c (Util.list_map_i (fun i _ -> mkRel i) 1 l) + let len = List.length l in + applistc c (Util.list_map_i (fun i _ -> mkRel (len - i)) 0 l) let add_morphism lemma_infos mor_name (m,quantifiers_rev,args,output) = let env = Global.env() in |