diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-12-28 15:43:44 +0100 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-12-28 15:43:44 +0100 |
| commit | ab61aa61b1bb50f76101bb38ea5fe76eb1ea2244 (patch) | |
| tree | 7f2f319db92ea6534dee143f22767806e872486f /theories/Lists | |
| parent | 8405bdf08e04792a290d1517591ab3fc2945deb7 (diff) | |
Use [Proof using] to make sure that [List.in_flat_map] doesn't grab too many section variable.
For some reason, the subproofs solved by [auto] had started using [Hfinjective] from the section context.
Diffstat (limited to 'theories/Lists')
| -rw-r--r-- | theories/Lists/List.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/Lists/List.v b/theories/Lists/List.v index c004b156b..fb686151b 100644 --- a/theories/Lists/List.v +++ b/theories/Lists/List.v @@ -969,7 +969,7 @@ Section Map. Lemma in_flat_map : forall (f:A->list B)(l:list A)(y:B), In y (flat_map f l) <-> exists x, In x l /\ In y (f x). - Proof. + Proof using A B. induction l; simpl; split; intros. contradiction. destruct H as (x,(H,_)); contradiction. |