From 3058e5f4192f8b9617ae157cb5d1e6040d79a8d9 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 2 Mar 2010 09:46:17 -0500
Subject: String.isPrefix

---
 lib/ur/string.urs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/ur/string.urs')

diff --git a/lib/ur/string.urs b/lib/ur/string.urs
index 557e73c0..552da557 100644
--- a/lib/ur/string.urs
+++ b/lib/ur/string.urs
@@ -23,3 +23,5 @@ val all : (char -> bool) -> string -> bool
 val mp : (char -> char) -> string -> string
 
 val newlines : ctx ::: {Unit} -> [[Body] ~ ctx] => string -> xml ([Body] ++ ctx) [] []
+
+val isPrefix : {Full : t, Prefix : t} -> bool
-- 
cgit v1.2.3