This commit is contained in:
@@ -0,0 +1,16 @@
|
||||
Require Import Coq.Lists.List.
|
||||
|
||||
Section with_T.
|
||||
Context {T : Type}.
|
||||
|
||||
Fixpoint length (ls : list T) : nat :=
|
||||
match ls with
|
||||
| nil => 0
|
||||
| _ :: ls => S (length ls)
|
||||
end.
|
||||
End with_T.
|
||||
|
||||
Definition a_string := "hello
|
||||
world".
|
||||
Definition escape_string := "0123".
|
||||
Definition zero_string := "0".
|
||||
Reference in New Issue
Block a user