diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-02-13 12:03:45 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-02-13 12:03:45 +0000 |
commit | f53038c5a4fd3fdab8233e57c84f1dc43dcf9425 (patch) | |
tree | a5d066af53746149c47ed0a33c60c3f7b8dbd6af /src/CoqUp/Helper.v | |
parent | 41513c2568025bda74a9ddf9e90e848cd810525f (diff) | |
download | vericert-f53038c5a4fd3fdab8233e57c84f1dc43dcf9425.tar.gz vericert-f53038c5a4fd3fdab8233e57c84f1dc43dcf9425.zip |
Improve the Coq sources and add extraction
Diffstat (limited to 'src/CoqUp/Helper.v')
-rw-r--r-- | src/CoqUp/Helper.v | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/CoqUp/Helper.v b/src/CoqUp/Helper.v index f57a16f..292d011 100644 --- a/src/CoqUp/Helper.v +++ b/src/CoqUp/Helper.v @@ -3,13 +3,19 @@ Module Option. Definition default {T : Type} (x : T) (u : option T) : T := match u with | Some y => y - | None => x + | _ => x end. Definition map {S : Type} {T : Type} (f : S -> T) (u : option S) : option T := match u with | Some y => Some (f y) - | None => None + | _ => None + end. + +Definition liftA2 {T : Type} (f : T -> T -> T) (a : option T) (b : option T) : option T := + match a with + | Some x => map (f x) b + | _ => None end. End Option. |