diff options
| -rw-r--r-- | tactics/equality.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index de98abd610..e1d2821382 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -890,9 +890,8 @@ let decompEqThen ntac id gls = ((tclTHENS (cut_intro absurd_term) ([onLastHyp gen_absurdity; refine (mkApp (pf, [| mkVar id |]))]))) gls - | Inr [] -> - errorlabstrm "Equality.inj" - (str"Nothing to do, it is an equality between convertible terms") + | Inr [] -> (* Change: do not fail, simplify clear this trivial hyp *) + tclIDTAC gls | Inr posns -> (let e = pf_get_new_id (id_of_string "e") gls in let e_env = push_named (e,None,t) env in |