lean2/tests/lean/simp20.lean

21 lines
365 B
Text
Raw Normal View History

rewrite_set simple
set_option pp::implicit true
universe M >= 1
definition TypeM := (Type M)
variable g : TypeM → TypeM
variable B : Type
variable B' : Type
axiom H : B = B'
add_rewrite H : simple
(*
local t = parse_lean([[ g B ]])
print(t)
print("===>")
local t2, pr = simplify(t, "simple")
print(t2)
print(pr)
print(get_environment():type_check(pr))
*)