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`.
29 lines
472 B
Text
29 lines
472 B
Text
set_option pp.motives.pi false
|
||
|
||
#print Nat.add
|
||
|
||
set_option pp.motives.pi true
|
||
|
||
#print Nat.add
|
||
|
||
theorem ex : ∀ {α β : Sort u} (h : α = β) (a : α), cast h a ≍ a
|
||
| α, _, rfl, a => HEq.refl a
|
||
|
||
set_option pp.motives.nonConst false
|
||
|
||
#print ex
|
||
|
||
set_option pp.motives.nonConst true
|
||
|
||
#print ex
|
||
|
||
noncomputable def fact (n : Nat) : Nat :=
|
||
Nat.recOn n 1 (fun n acc => (n+1)*acc)
|
||
|
||
set_option pp.motives.all false
|
||
|
||
#print fact
|
||
|
||
set_option pp.motives.all true
|
||
|
||
#print fact
|