2014-07-31 17:48:51 -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-07-22 09:49:54 -07:00
using bool
2014-07-02 08:36:05 -07:00
namespace string
inductive char : Type :=
2014-07-22 09:49:54 -07:00
| ascii : bool → bool → bool → bool → bool → bool → bool → bool → char
2014-07-02 08:36:05 -07:00
inductive string : Type :=
| empty : string
| str : char → string → string
2014-07-04 14:25:44 -07:00
2014-07-28 19:58:57 -07:00
theorem inhabited_char [instance] : inhabited char :=
inhabited_intro (ascii ff ff ff ff ff ff ff ff)
2014-07-04 14:25:44 -07:00
2014-07-28 19:58:57 -07:00
theorem inhabited_string [instance] : inhabited string :=
inhabited_intro empty
2014-07-31 17:48:51 -07:00
2014-07-02 08:36:05 -07:00
end