diff options
| author |  jadep <jade.philipoom@gmail.com> | 2016-07-11 12:00:49 -0400 |
|---|---|---|
| committer | jadep <jade.philipoom@gmail.com> | 2016-07-11 12:00:49 -0400 |
| commit | bb38344557cddbc64eac0eb5b174d54c0507e08a (patch) | |
| tree | da2d447b51b886ab706f21963849f1052accac0e /src/Util/Tuple.v | |
| parent | 9a7c5b2a18ce47dbfc2bc3513f36856001499d98 (diff) | |
| parent | 762f2a27f9d237050ea5ab342f6e893ab4b4ac25 (diff) | |
Merge of fixedlength and master
Diffstat (limited to 'src/Util/Tuple.v')
| -rw-r--r-- | src/Util/Tuple.v | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Util/Tuple.v b/src/Util/Tuple.v index 4232c7bf8..13f8bd386 100644 --- a/src/Util/Tuple.v +++ b/src/Util/Tuple.v @@ -166,7 +166,9 @@ end. Lemma from_list_default'_eq : forall {T} (d : T) xs n y pf, from_list_default' d y n xs = from_list' y n xs pf. Proof. - induction xs; destruct n; intros; simpl in *; congruence. + induction xs; destruct n; intros; simpl in *; + solve [ congruence (* 8.5 *) + | erewrite IHxs; reflexivity ]. (* 8.4 *) Qed. Lemma from_list_default_eq : forall {T} (d : T) xs n pf, |