diff options
| author |  coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-20 16:00:43 +0000 |
|---|---|---|
| committer | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-20 16:00:43 +0000 |
| commit | d857c99c6c985eb36ce8a4b2667dc0b5ccca115c (patch) | |
| tree | 2ea53c80dd3319b24c38b15cb5be5a582c9b302a /theories/IntMap/Adist.v | |
| parent | 4837b599b4f158decc91f615a25e3a636c6ced5d (diff) | |
Library doc adjustments (until page 140)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1655 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/IntMap/Adist.v')
| -rw-r--r-- | theories/IntMap/Adist.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/theories/IntMap/Adist.v b/theories/IntMap/Adist.v index f5d40e66f..4e545af7b 100644 --- a/theories/IntMap/Adist.v +++ b/theories/IntMap/Adist.v @@ -59,7 +59,8 @@ Proof. Qed. Lemma ad_plength_first_one : (a:ad) (n:nat) - ((k:nat) (lt k n) -> (ad_bit a k)=false) -> (ad_bit a n)=true -> (ad_plength a)=(ni n). + ((k:nat) (lt k n) -> (ad_bit a k)=false) -> (ad_bit a n)=true + -> (ad_plength a)=(ni n). Proof. Induction a. Intros. Simpl in H0. Discriminate H0. Induction p. Intros. Generalize H0. Case n. Intros. Reflexivity. |