diff options
| author | mohring | 2001-08-29 13:49:09 +0000 |
|---|---|---|
| committer | mohring | 2001-08-29 13:49:09 +0000 |
| commit | 27b1061be797da05212500f16af9c88ac28849ee (patch) | |
| tree | f5520299455df7cef91c795aa07aaae90ec2d7ae /theories/Lists | |
| parent | 32a24e55a8e38cd5db37224575269eb4355fdb30 (diff) | |
ajout option , Exc --> option, et lemmes dans les theories
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1914 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Lists')
| -rw-r--r-- | theories/Lists/PolyList.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Lists/PolyList.v b/theories/Lists/PolyList.v index 3e845fb889..0a6d05956f 100644 --- a/theories/Lists/PolyList.v +++ b/theories/Lists/PolyList.v @@ -416,8 +416,8 @@ Fixpoint nth_error [l:list;n:nat] : (Exc A) := Definition nth_default : A -> list -> nat -> A := [default,l,n]Cases (nth_error l n) of - | (value x) => x - | error => default + | (Some x) => x + | None => default end. |