diff options
Diffstat (limited to 'theories/FSets/FMapWeakFacts.v')
| -rw-r--r-- | theories/FSets/FMapWeakFacts.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/theories/FSets/FMapWeakFacts.v b/theories/FSets/FMapWeakFacts.v index 11608698fb..fbf761d8e5 100644 --- a/theories/FSets/FMapWeakFacts.v +++ b/theories/FSets/FMapWeakFacts.v @@ -725,6 +725,18 @@ Module Properties constructor; red; auto. Qed. + Lemma cardinal_inv_2b : + forall m, cardinal m <> 0 -> { p : key*elt | MapsTo (fst p) (snd p) m }. + Proof. + intros; unfold cardinal in *. + generalize (elements_2 (m:=m)). + destruct (elements m). + simpl in H; elim H; auto. + exists p; auto. + destruct p; simpl; auto. + apply H0; constructor; red; auto. + Qed. + Lemma map_induction : forall P : t elt -> Type, (forall m, Empty m -> P m) -> |