diff options
Diffstat (limited to 'src/gen_lib')
| -rw-r--r-- | src/gen_lib/sail2_string.lem | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/gen_lib/sail2_string.lem b/src/gen_lib/sail2_string.lem index c50db099..de7588dc 100644 --- a/src/gen_lib/sail2_string.lem +++ b/src/gen_lib/sail2_string.lem @@ -20,6 +20,10 @@ val string_drop : string -> ii -> string let string_drop str n = toString (drop (natFromInteger n) (toCharList str)) +val string_take : string -> ii -> string +let string_take str n = + toString (take (natFromInteger n) (toCharList str)) + val string_length : string -> ii let string_length s = integerFromNat (stringLength s) |