90a79a0b06
Now, `universe` may declare many universes. The goal is to make it consistent with the `variable` command
9 lines
301 B
Text
9 lines
301 B
Text
--
|
||
set_option autoBoundImplicitLocal false
|
||
universe u
|
||
variable {α : Type u}
|
||
variable {β : α → 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
|