diff options
| author |  Jason Gross <jgross@mit.edu> | 2018-02-11 16:41:03 -0500 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2018-02-11 16:41:03 -0500 |
| commit | 711c020174dc922d0f45ae7afe28e1c7ea8c9168 (patch) | |
| tree | 0dbd78b3ae288cb2a9e97f0df92888af6995a4f8 /src/Util/Pos.v | |
| parent | 64b036f97cb497aa88b3b448d47a8cc017373896 (diff) | |
Add string conversions
Diffstat (limited to 'src/Util/Pos.v')
| -rw-r--r-- | src/Util/Pos.v | 11 |
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. |