diff options
Diffstat (limited to 'src/common/Vericertlib.v')
| -rw-r--r-- | src/common/Vericertlib.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/common/Vericertlib.v b/src/common/Vericertlib.v index da046f3..0310c19 100644 --- a/src/common/Vericertlib.v +++ b/src/common/Vericertlib.v @@ -82,6 +82,12 @@ Ltac destruct_match := Ltac auto_destruct x := destruct x eqn:?; simpl in *; try discriminate; try congruence. + Ltac destin x := + match type of x with + | context[match ?y with _ => _ end] => let DIN := fresh "DIN" in destruct y eqn:DIN + | _ => fail + end. + Ltac nicify_hypotheses := repeat match goal with | [ H : ex _ |- _ ] => inv H |