diff --git a/src/logic/basic.lean b/src/logic/basic.lean index 8e268add21f06..05dc66db6e613 100644 --- a/src/logic/basic.lean +++ b/src/logic/basic.lean @@ -155,9 +155,18 @@ assume ⟨h⟩, h.elim lemma congr_arg_heq {α} {β : α → Sort*} (f : ∀ a, β a) : ∀ {a₁ a₂ : α}, a₁ = a₂ → f a₁ == f a₂ | a _ rfl := heq.rfl -lemma plift.down_inj {α : Sort*} : ∀ (a b : plift α), a.down = b.down → a = b +lemma ulift.down_injective {α : Sort*} : function.injective (@ulift.down α) | ⟨a⟩ ⟨b⟩ rfl := rfl +@[simp] lemma ulift.down_inj {α : Sort*} {a b : ulift α} : a.down = b.down ↔ a = b := +⟨λ h, ulift.down_injective h, λ h, by rw h⟩ + +lemma plift.down_injective {α : Sort*} : function.injective (@plift.down α) +| ⟨a⟩ ⟨b⟩ rfl := rfl + +@[simp] lemma plift.down_inj {α : Sort*} {a b : plift α} : a.down = b.down ↔ a = b := +⟨λ h, plift.down_injective h, λ h, by rw h⟩ + -- missing [symm] attribute for ne in core. attribute [symm] ne.symm