lean2/library/data/unit.lean
Leonardo de Moura 2e9141b7e1 refactor(library): remove unnecessary :max hack in notation declarations
This hack is not needed anymore.

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
2014-10-20 18:45:52 -07:00

27 lines
772 B
Text

-- Copyright (c) 2014 Microsoft Corporation. All rights reserved.
-- Released under Apache 2.0 license as described in the file LICENSE.
-- Author: Leonardo de Moura
import logic.decidable logic.inhabited
open decidable
inductive unit : Type :=
star : unit
namespace unit
notation `⋆` := star
-- remove duplication?
protected theorem equal (a b : unit) : a = b :=
rec (rec rfl b) a
protected theorem subsingleton [instance] : subsingleton unit :=
subsingleton.intro (λ a b, equal a b)
theorem eq_star (a : unit) : a = star :=
equal a star
protected definition is_inhabited [instance] : inhabited unit :=
inhabited.mk ⋆
protected definition has_decidable_eq [instance] : decidable_eq unit :=
take (a b : unit), inl (equal a b)
end unit