9 lines
263 B
Text
9 lines
263 B
Text
|
||
|
||
universes u
|
||
variables {α : Type u}
|
||
variables {β : α → Type v}
|
||
|
||
theorem ex {p₁ p₂ : Sigma (fun a => β a)} (h₁ : p₁.1 = p₂.1) (h : p₁.2 ≅ p₂.2) : p₁ = p₂ :=
|
||
match p₁, p₂, h₁, h with
|
||
| ⟨_, _⟩, ⟨_, _⟩, rfl, HEq.refl _ => rfl
|