23 lines
307 B
Text
23 lines
307 B
Text
open tactic
|
|
|
|
attribute [instance]
|
|
definition expr_to_app : has_coe_to_fun expr :=
|
|
{ F := λ e, expr → expr,
|
|
coe := expr.app }
|
|
|
|
constants f a b : expr
|
|
|
|
check f a
|
|
|
|
check f a b
|
|
|
|
check f a b a
|
|
|
|
set_option pp.coercions false
|
|
|
|
check f a b a
|
|
|
|
set_option pp.all true
|
|
set_option pp.coercions true
|
|
|
|
check f a b
|