diff options
Diffstat (limited to 'src/common')
| -rw-r--r-- | src/common/NonEmpty.v | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/common/NonEmpty.v b/src/common/NonEmpty.v index 923a637..31adbda 100644 --- a/src/common/NonEmpty.v +++ b/src/common/NonEmpty.v @@ -62,6 +62,7 @@ Fixpoint non_empty_prod {A B} (l: non_empty A) (l': non_empty B) := Fixpoint of_list {A} (l: list A): option (non_empty A) := match l with + | a::nil => Some (singleton a) | a::b => match of_list b with | Some b' => Some (a ::| b') |