lean2/tests/lean/634b.lean
Leonardo de Moura 3b7b268e40 fix(frontends/lean/pp): fixes #634
trying again...
2015-05-29 14:07:38 -07:00

41 lines
903 B
Text
Raw Permalink Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

open nat
namespace foo
section
parameter (X : Type₁)
definition A {n : } : Type₁ := X
definition B : Type₁ := X
variable {n : }
check @A n
check foo.A nat
check foo.A (X × B)
check @foo.A (X × B) 10
check @foo.A (@foo.B (@A n)) n
check @foo.A (@foo.B (@foo.A X n)) n
check @foo.A (@foo.B (@foo.A nat n)) n
set_option pp.full_names true
check A
check foo.A nat
check @foo.A (X × B) 10
check @foo.A (@foo.B (@foo.A X n)) n
check @foo.A (@foo.B (@foo.A nat n)) n
set_option pp.full_names false
set_option pp.implicit true
check @A n
check @foo.A nat 10
check @foo.A X n
set_option pp.full_names true
check @foo.A X n
check @A n
set_option pp.full_names false
check @foo.A X n
check @foo.A B n
check @foo.A (@foo.B (@A n)) n
check @foo.A (@foo.B (@foo.A X n)) n
check @foo.A (@foo.B (@foo.A nat n)) n
check @A n
end
end foo