diff options
Diffstat (limited to 'theories/FSets/FMapPositive.v')
| -rw-r--r-- | theories/FSets/FMapPositive.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/FSets/FMapPositive.v b/theories/FSets/FMapPositive.v index 7c6374899a..9008b3623d 100644 --- a/theories/FSets/FMapPositive.v +++ b/theories/FSets/FMapPositive.v @@ -734,7 +734,7 @@ Module PositiveMap <: S with Module E:=PositiveOrderedTypeBits. Proof. intros. generalize (xelements_complete _ _ _ _ H); clear H; intros. - revert H; revert v; revert m; revert q; revert p0. + revert p0 q m v H. induction p; destruct p0; simpl; intros; eauto; try discriminate. Qed. @@ -743,7 +743,7 @@ Module PositiveMap <: S with Module E:=PositiveOrderedTypeBits. Proof. intros. generalize (xelements_complete _ _ _ _ H); clear H; intros. - revert H; revert v; revert m; revert q; revert p0. + revert p0 q m v H. induction p; destruct p0; simpl; intros; eauto; try discriminate. Qed. |