aboutsummaryrefslogtreecommitdiffhomepage
path: root/theories/Sets/Multiset.v
diff options
context:
space:
mode:
authorGravatar filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7>2002-02-14 14:39:07 +0000
committerGravatar filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7>2002-02-14 14:39:07 +0000
commit67f72c93f5f364591224a86c52727867e02a8f71 (patch)
treeecf630daf8346e77e6620233d8f3e6c18a0c9b3c /theories/Sets/Multiset.v
parentb239b208eb9a66037b0c629cf7ccb6e4b110636a (diff)
option -dump-glob pour coqdoc
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2474 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Sets/Multiset.v')
-rwxr-xr-xtheories/Sets/Multiset.v10
1 files changed, 5 insertions, 5 deletions
diff --git a/theories/Sets/Multiset.v b/theories/Sets/Multiset.v
index 31d4c9430..4abaaaa60 100755
--- a/theories/Sets/Multiset.v
+++ b/theories/Sets/Multiset.v
@@ -34,7 +34,7 @@ Definition SingletonBag := [a:A]
Definition multiplicity : multiset -> A -> nat :=
[m:multiset][a:A]let (f) = m in (f a).
-(* multiset equality *)
+(** multiset equality *)
Definition meq := [m1,m2:multiset]
(a:A)(multiplicity m1 a)=(multiplicity m2 a).
@@ -60,7 +60,7 @@ Induction x; Induction y; Auto.
Qed.
Hints Immediate meq_sym.
-(* multiset union *)
+(** multiset union *)
Definition munion := [m1,m2:multiset]
(Bag [a:A](plus (multiplicity m1 a)(multiplicity m2 a))).
@@ -112,8 +112,8 @@ Qed.
Hints Resolve meq_right.
-(* Here we should make multiset an abstract datatype, by hiding Bag,
- munion, multiplicity; all further properties are proved abstractly *)
+(** Here we should make multiset an abstract datatype, by hiding [Bag],
+ [munion], [multiplicity]; all further properties are proved abstractly *)
Lemma munion_rotate :
(x,y,z:multiset)(meq (munion x (munion y z)) (munion z (munion x y))).
@@ -151,7 +151,7 @@ Apply meq_sym; Apply munion_ass.
Apply meq_left; Apply munion_perm_left.
Qed.
-(* specific for treesort *)
+(** specific for treesort *)
Lemma treesort_twist1 : (x,y,z,t,u:multiset) (meq u (munion y z)) ->
(meq (munion x (munion u t)) (munion (munion y (munion x t)) z)).