diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-07-15 15:37:45 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-07-16 17:16:41 +0200 |
| commit | fa4e56987871c1b0a0b68e8f0864805e5f141ca9 (patch) | |
| tree | ffb40439cb6b903657c34ec4129bd261b14acc3a /theories | |
| parent | e3eb17a728d7b6874e67462e8a83fac436441872 (diff) | |
Removing a dummy parameter in some FMapPositive statements.
The statements xelements_bits_lt_1 and xelements_bits_lt_2 had an
unexpected extra dependency due to a name collision with a section
variable.
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/FSets/FMapPositive.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/theories/FSets/FMapPositive.v b/theories/FSets/FMapPositive.v index b1c0fdaa2..3e7664929 100644 --- a/theories/FSets/FMapPositive.v +++ b/theories/FSets/FMapPositive.v @@ -654,19 +654,19 @@ Module PositiveMap <: S with Module E:=PositiveOrderedTypeBits. Lemma xelements_bits_lt_1 : forall p p0 q m v, List.In (p0,v) (xelements m (append p (xO q))) -> E.bits_lt p0 p. - Proof. + Proof using. intros. generalize (xelements_complete _ _ _ _ H); clear H; intros. - revert p0 q m v H. + revert p0 H. induction p; destruct p0; simpl; intros; eauto; try discriminate. Qed. Lemma xelements_bits_lt_2 : forall p p0 q m v, List.In (p0,v) (xelements m (append p (xI q))) -> E.bits_lt p p0. - Proof. + Proof using. intros. generalize (xelements_complete _ _ _ _ H); clear H; intros. - revert p0 q m v H. + revert p0 H. induction p; destruct p0; simpl; intros; eauto; try discriminate. Qed. |