2014-08-07 11:36:44 -07:00
|
|
|
-- Copyright (c) 2014 Microsoft Corporation. All rights reserved.
|
2014-07-02 08:36:05 -07:00
|
|
|
-- Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
-- Author: Leonardo de Moura
|
2014-07-31 17:48:51 -07:00
|
|
|
|
|
|
|
import data.bool
|
2014-08-19 19:32:44 -07:00
|
|
|
|
2014-09-03 16:00:38 -07:00
|
|
|
open bool inhabited
|
2014-07-02 08:36:05 -07:00
|
|
|
|
|
|
|
namespace string
|
2014-08-19 19:32:44 -07:00
|
|
|
|
2014-07-02 08:36:05 -07:00
|
|
|
inductive char : Type :=
|
2014-08-22 15:46:10 -07:00
|
|
|
ascii : bool → bool → bool → bool → bool → bool → bool → bool → char
|
2014-07-02 08:36:05 -07:00
|
|
|
|
|
|
|
inductive string : Type :=
|
2014-08-22 15:46:10 -07:00
|
|
|
empty : string,
|
|
|
|
str : char → string → string
|
2014-07-04 14:25:44 -07:00
|
|
|
|
2014-08-20 15:49:44 -07:00
|
|
|
theorem char_inhabited [instance] : inhabited char :=
|
2014-08-19 19:32:44 -07:00
|
|
|
inhabited_mk (ascii ff ff ff ff ff ff ff ff)
|
2014-07-04 14:25:44 -07:00
|
|
|
|
2014-08-20 15:49:44 -07:00
|
|
|
theorem string_inhabited [instance] : inhabited string :=
|
2014-08-19 19:32:44 -07:00
|
|
|
inhabited_mk empty
|
2014-07-31 17:48:51 -07:00
|
|
|
|
2014-08-07 16:59:08 -07:00
|
|
|
end string
|