1 files changed, 9 insertions, 4 deletions
diff --git a/src/CoqUp/Helper.v b/src/CoqUp/Helper.v
index fef7b9e..f57a16f 100644
--- a/src/CoqUp/Helper.v
+++ b/src/CoqUp/Helper.v
@@ -1,10 +1,15 @@
-Module OptionHelpers.
+Module Option.
 
-Definition opt_default {T : Type} (x : T) (u : option T) : T :=
+Definition default {T : Type} (x : T) (u : option T) : T :=
   match u with
   | Some y => y
   | None => x
   end.
 
-End OptionHelpers.
-Export OptionHelpers.
+Definition map {S : Type} {T : Type} (f : S -> T) (u : option S) : option T :=
+  match u with
+  | Some y => Some (f y)
+  | None => None
+  end.
+
+End Option.