From 711c020174dc922d0f45ae7afe28e1c7ea8c9168 Mon Sep 17 00:00:00 2001
From: Jason Gross <jgross@mit.edu>
Date: Sun, 11 Feb 2018 16:41:03 -0500
Subject: Add string conversions

---
 src/Util/Pos.v | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 src/Util/Pos.v

(limited to 'src/Util/Pos.v')

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.
-- 
cgit v1.2.3