diff options
| author | Hugo Herbelin | 2015-05-06 12:35:42 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2015-05-06 12:35:42 +0200 |
| commit | 5a0d3395cd972393eaa7859f47a738cc99ea55c6 (patch) | |
| tree | 5ffc81e68d8d1906cbdfa0d937f2d2af3d0d7370 | |
| parent | a72b7db875780ccc84b9359ffa66c170cfe6ebfd (diff) | |
Fixing "subst" to respect v8.4 most-ancient to most-recent hyps order
after patch for #4214 on subst needed to be repeated (see
857e82b2ca0d1).
| -rw-r--r-- | tactics/equality.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index f2860a2300..c5b87761d8 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1681,7 +1681,7 @@ let subst_all ?(flags=default_subst_tactic_flags ()) () = with Constr_matching.PatternMatchingFailure -> None in let hyps = Proofview.Goal.hyps gl in - List.map_filter test hyps + List.rev (List.map_filter test hyps) in (* Second step: treat equations *) |