1 files changed, 11 insertions, 0 deletions
diff --git a/src/Util/Pos.v b/src/Util/Pos.v
new file mode 100644
index 000000000..67c7cfa35
--- /dev/null
+++ b/src/Util/Pos.v
@@ -0,0 +1,11 @@
+Require Import Coq.PArith.BinPosDef.
+
+Local Open Scope positive_scope.
+(** Append two sequences *)
+
+Fixpoint app (p q:positive) : positive :=
+  match q with
+  | q~0 => (app p q)~0
+  | q~1 => (app p q)~1
+  | 1 => p~1
+  end.