diff options
| author | herbelin | 2000-10-10 22:50:46 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-10 22:50:46 +0000 |
| commit | f393c2a0552d2c16715dbf163555662b7d20411d (patch) | |
| tree | f9aa25dad268f09c43ad52fd6e808ecbfe47cffa | |
| parent | 8cc29f42843d432b949d3760b15de6bd6ab567e4 (diff) | |
Bug ordre dans push_rels
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@677 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/inv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/inv.ml b/tactics/inv.ml index 8759158187..9fb5cc6c52 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -69,7 +69,7 @@ let push_rel_type sigma (na,t) env = push_rel_decl (na,make_typed t (get_sort_of env sigma t)) env let push_rels vars env = - List.fold_left (fun env nvar -> push_rel_type Evd.empty nvar env) env vars + List.fold_right (push_rel_type Evd.empty) vars env type inversion_status = Dep of constr option | NoDep |