diff options
| author |  Andres Erbsen <andreser@mit.edu> | 2016-01-06 01:14:06 -0500 |
|---|---|---|
| committer | Andres Erbsen <andreser@mit.edu> | 2016-01-06 01:14:06 -0500 |
| commit | 90260a82f8ea511f1b9ba8d352c18b7e6a621e57 (patch) | |
| tree | 3346ef42856d9c1fd90edf8faef9e9507e10616d /src/Util | |
| parent | 71553f59573301744c7d34aeec6a371ee50a65cf (diff) | |
| parent | aebc0124ee411786cd711042da7abb67cdf5b40a (diff) | |
Merge branch 'specific-rewrite'
Diffstat (limited to 'src/Util')
| -rw-r--r-- | src/Util/ListUtil.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/Util/ListUtil.v b/src/Util/ListUtil.v index 350f55dd8..783e3f527 100644 --- a/src/Util/ListUtil.v +++ b/src/Util/ListUtil.v @@ -524,3 +524,12 @@ Ltac set_nth_inbounds := end. Ltac nth_inbounds := nth_error_inbounds || set_nth_inbounds. + +Lemma cons_eq_head : forall {T} (x y:T) xs ys, x::xs = y::ys -> x=y. +Proof. + intros; solve_by_inversion. +Qed. +Lemma cons_eq_tail : forall {T} (x y:T) xs ys, x::xs = y::ys -> xs=ys. +Proof. + intros; solve_by_inversion. +Qed. |