dd78012ddd
Although `HEq` was abbreviated as `≍` in #8503, many instances of the form `HEq x y` still remain. Therefore, I searched for occurrences of `HEq x y` using the regular expression `(?<![A-Za-z/@]|``)HEq(?![A-Za-z.])` and replaced as many as possible with the form `x ≍ y`.
13 lines
334 B
Text
13 lines
334 B
Text
universe u v
|
||
|
||
inductive Imf {α : Type u} {β : Type v} (f : α → β) : β → Type (max u v)
|
||
| mk : (a : α) → Imf f (f a)
|
||
|
||
def h {α β} {f : α → β} : {b : β} → Imf f b → α
|
||
| _, Imf.mk a => a
|
||
|
||
#print h
|
||
theorem ex : ∀ {α β : Sort u} (h : α = β) (a : α), cast h a ≍ a
|
||
| α, _, rfl, a => HEq.refl a
|
||
|
||
#print ex
|