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
|