2014-06-30 11:44:47 -07:00
|
|
|
-- Copyright (c) 2014 Microsoft Corporation. All rights reserved.
|
|
|
|
-- Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
-- Author: Leonardo de Moura
|
2014-10-25 14:57:33 -07:00
|
|
|
import data.unit.decl data.unit.thms logic.decidable logic.inhabited
|
2014-09-03 16:00:38 -07:00
|
|
|
open decidable
|
2014-06-29 19:30:38 -07:00
|
|
|
|
2014-09-04 16:36:06 -07:00
|
|
|
namespace unit
|
2014-10-08 21:41:18 -04:00
|
|
|
protected theorem subsingleton [instance] : subsingleton unit :=
|
|
|
|
subsingleton.intro (λ a b, equal a b)
|
|
|
|
|
2014-10-02 09:00:34 -07:00
|
|
|
protected definition is_inhabited [instance] : inhabited unit :=
|
2014-09-04 22:31:52 -07:00
|
|
|
inhabited.mk ⋆
|
2014-08-20 15:49:44 -07:00
|
|
|
|
2014-09-30 09:02:37 -07:00
|
|
|
protected definition has_decidable_eq [instance] : decidable_eq unit :=
|
2014-09-09 16:07:07 -07:00
|
|
|
take (a b : unit), inl (equal a b)
|
2014-08-19 19:32:44 -07:00
|
|
|
end unit
|