diff options
Diffstat (limited to 'theories/FSets')
| -rw-r--r-- | theories/FSets/FMapFacts.v | 5 | ||||
| -rw-r--r-- | theories/FSets/FSetProperties.v | 1 |
2 files changed, 4 insertions, 2 deletions
diff --git a/theories/FSets/FMapFacts.v b/theories/FSets/FMapFacts.v index 9fef1dc63..dc33167a6 100644 --- a/theories/FSets/FMapFacts.v +++ b/theories/FSets/FMapFacts.v @@ -1871,8 +1871,9 @@ Module OrdProperties (M:S). find_mapsto_iff, (H0 t0), <- find_mapsto_iff, add_mapsto_iff by (auto with *). unfold O.eqke, O.ltk; simpl. - destruct (E.compare t0 x); intuition. - elim H; exists e0; apply MapsTo_1 with t0; auto. + destruct (E.compare t0 x); intuition; try fold (~E.eq x t0); auto. + - elim H; exists e0; apply MapsTo_1 with t0; auto. + - fold (~E.lt t0 x); auto. Qed. Lemma elements_Add_Above : forall m m' x e, diff --git a/theories/FSets/FSetProperties.v b/theories/FSets/FSetProperties.v index eec7196b7..8651a96f7 100644 --- a/theories/FSets/FSetProperties.v +++ b/theories/FSets/FSetProperties.v @@ -995,6 +995,7 @@ Module OrdProperties (M:S). leb_1, gtb_1, (H0 a) by auto with *. intuition. destruct (E.compare a x); intuition. + fold (~E.lt a x); auto with *. Qed. Definition Above x s := forall y, In y s -> E.lt y x. |