lean4-htt/library/init/instances.lean
2016-08-16 10:45:08 -07:00

29 lines
908 B
Text

/-
Copyright (c) 2016 Microsoft Corporation. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.
Author: Leonardo de Moura
-/
prelude
import init.meta.mk_dec_eq_instance init.subtype init.meta.occurrences init.sum
open tactic subtype
attribute [instance]
definition subtype_decidable_eq {A : Type} {P : A → Prop} [decidable_eq A] : decidable_eq {x \ P x} :=
by mk_dec_eq_instance
attribute [instance]
definition list_decidable_eq {A : Type} [decidable_eq A] : decidable_eq (list A) :=
by mk_dec_eq_instance
attribute [instance]
definition occurrences_decidable_eq : decidable_eq occurrences :=
by mk_dec_eq_instance
attribute [instance]
definition unit_decidable_eq : decidable_eq unit :=
by mk_dec_eq_instance
attribute [instance]
definition sum_decidable {A : Type} {B : Type} [decidable_eq A] [decidable_eq B] : decidable_eq (A ⊕ B) :=
by mk_dec_eq_instance