diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-11-13 19:03:03 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-11-13 19:03:03 +0100 |
commit | ed0c434a05a929a659e43aed80ab7c8179a7daa3 (patch) | |
tree | d486bf54f6bbfd6ace8dc9cea52b959699f88ebe /tactics/equality.ml | |
parent | c571cdbbcac5cb4b4a5a19ab2f7ac51222316292 (diff) |
[api] Insert miscellaneous API deprecation back to core.
Diffstat (limited to 'tactics/equality.ml')
-rw-r--r-- | tactics/equality.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 7b2445ff5..c36ad980e 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1824,9 +1824,9 @@ let subst_all ?(flags=default_subst_tactic_flags) () = (* J.F.: added to prevent failure on goal containing x=x as an hyp *) if EConstr.eq_constr sigma x y then Proofview.tclUNIT () else match EConstr.kind sigma x, EConstr.kind sigma y with - | Var x', _ when not (occur_term sigma x y) && not (is_evaluable env (EvalVarRef x')) -> + | Var x', _ when not (dependent sigma x y) && not (is_evaluable env (EvalVarRef x')) -> subst_one flags.rewrite_dependent_proof x' (hyp,y,true) - | _, Var y' when not (occur_term sigma y x) && not (is_evaluable env (EvalVarRef y')) -> + | _, Var y' when not (dependent sigma y x) && not (is_evaluable env (EvalVarRef y')) -> subst_one flags.rewrite_dependent_proof y' (hyp,x,false) | _ -> Proofview.tclUNIT () |