diff options
| author | barras | 2002-03-07 10:57:37 +0000 |
|---|---|---|
| committer | barras | 2002-03-07 10:57:37 +0000 |
| commit | c4d7fede86d052f1ffc824eb9a4aa7e3fdb63ea0 (patch) | |
| tree | 616cec6880f44d40083082ebf330233f6c484807 | |
| parent | 57ee9c7523f0490be435d77f01727dc72a46ee62 (diff) | |
Simplify_eq echouait sur des hypotheses trivial comme O=O
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2518 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 |