Commit ee6df099 authored by Robbert Krebbers's avatar Robbert Krebbers

Optimize simplify_eq.

The case tactic is faster than destruct.
parent fd364b7e
......@@ -214,8 +214,8 @@ Tactic Notation "csimpl" "in" "*" :=
and injects equalities, and tries to contradict impossible inequalities. *)
Tactic Notation "simplify_eq" := repeat
match goal with
| H : _ _ |- _ => by destruct H
| H : _ = _ False |- _ => by destruct H
| H : _ _ |- _ => by case H; clear H
| H : _ = _ False |- _ => by case H; clear H
| H : ?x = _ |- _ => subst x
| H : _ = ?x |- _ => subst x
| H : _ = _ |- _ => discriminate H
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment