17 lines
285 B
Text
17 lines
285 B
Text
constant R : nat → nat → Prop
|
|
constant H : transitive R
|
|
set_option pp.all true
|
|
|
|
constant F : ∀ {A : Type} ⦃a : A⦄ {b : A} (c : A) ⦃e : A⦄, A → A → A
|
|
|
|
check H
|
|
check F
|
|
check F tt
|
|
check F tt tt
|
|
check F tt tt tt
|
|
|
|
#elab H
|
|
#elab F
|
|
#elab F tt
|
|
#elab F tt tt
|
|
#elab F tt tt tt
|