From 25918315c8cde34e5e5587921be9587fbfb3e3eb Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Wed, 22 Jan 2020 18:29:14 +0000 Subject: Add helper function for 'optional' --- CoqUp/Helper.v | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 CoqUp/Helper.v diff --git a/CoqUp/Helper.v b/CoqUp/Helper.v new file mode 100644 index 0000000..fef7b9e --- /dev/null +++ b/CoqUp/Helper.v @@ -0,0 +1,10 @@ +Module OptionHelpers. + +Definition opt_default {T : Type} (x : T) (u : option T) : T := + match u with + | Some y => y + | None => x + end. + +End OptionHelpers. +Export OptionHelpers. -- cgit