2014-01-24 03:02:17 +00:00
|
|
|
rewrite_set simple
|
|
|
|
|
|
|
|
|
|
set_option pp::implicit true
|
|
|
|
|
|
2014-02-07 23:03:16 +00:00
|
|
|
universe M >= 1
|
|
|
|
|
definition TypeM := (Type M)
|
2014-01-24 03:02:17 +00:00
|
|
|
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))
|
|
|
|
|
*)
|
