diff options
author | 2014-09-17 17:45:39 +0200 | |
---|---|---|
committer | 2014-09-17 17:54:39 +0200 | |
commit | 95c915ce89cc168ec34ab36797c78de94fcc0a18 (patch) | |
tree | a07639d54aeebdf0dd8f75f3ec0e4ccfc8e03163 /theories/Strings/String.v | |
parent | 9060a941d8b7566220f6fb6a191ac2fd7eca7315 (diff) |
Add some missing Proof statements.
Diffstat (limited to 'theories/Strings/String.v')
-rw-r--r-- | theories/Strings/String.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Strings/String.v b/theories/Strings/String.v index 6294d156b..1479695d8 100644 --- a/theories/Strings/String.v +++ b/theories/Strings/String.v @@ -29,6 +29,7 @@ Local Open Scope string_scope. (** Equality is decidable *) Definition string_dec : forall s1 s2 : string, {s1 = s2} + {s1 <> s2}. +Proof. decide equality; apply ascii_dec. Defined. @@ -41,7 +42,6 @@ Fixpoint append (s1 s2 : string) : string := | EmptyString => s2 | String c s1' => String c (s1' ++ s2) end - where "s1 ++ s2" := (append s1 s2) : string_scope. (******************************) @@ -379,7 +379,7 @@ Definition findex n s1 s2 := (** The concrete syntax for strings in scope string_scope follows the Coq convention for strings: all ascii characters of code less than - 128 are litteral to the exception of the character `double quote' + 128 are literals to the exception of the character `double quote' which must be doubled. Strings that involve ascii characters of code >= 128 which are not |