diff options
| author | Gaëtan Gilbert | 2020-08-24 12:26:55 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-08-25 16:10:30 +0200 |
| commit | 9b2979bc798dd6123bc4d599af3de894bff19c5b (patch) | |
| tree | 8c56089474846053e0bbea15d8a73b21c95421b4 /tactics | |
| parent | af5e7d44a2a685fe72a65df3daae577938eaa989 (diff) | |
Make decide equality compatible with mangled names.
Fix #12676
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/eqdecide.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tactics/eqdecide.ml b/tactics/eqdecide.ml index 57d793b2a5..d4cc193eb3 100644 --- a/tactics/eqdecide.ml +++ b/tactics/eqdecide.ml @@ -150,12 +150,12 @@ let injHyp id = let diseqCase hyps eqonleft = let diseq = Id.of_string "diseq" in let absurd = Id.of_string "absurd" in - (tclTHEN (intro_using diseq) - (tclTHEN (choose_noteq eqonleft) + (intro_using_then diseq (fun diseq -> + tclTHEN (choose_noteq eqonleft) (tclTHEN (rewrite_and_clear (List.rev hyps)) (tclTHEN (red_in_concl) - (tclTHEN (intro_using absurd) - (tclTHEN (Simple.apply (mkVar diseq)) + (intro_using_then absurd (fun absurd -> + tclTHEN (Simple.apply (mkVar diseq)) (tclTHEN (injHyp absurd) (full_trivial [])))))))) |