test(tests/lean): new test full of holes
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
parent
9620b00e24
commit
502d9f47ac
2 changed files with 16 additions and 0 deletions
8
tests/lean/bad10.lean
Normal file
8
tests/lean/bad10.lean
Normal file
|
@ -0,0 +1,8 @@
|
|||
SetOption pp::implicit true.
|
||||
SetOption pp::colors false.
|
||||
Variable N : Type.
|
||||
|
||||
Definition T (a : N) (f : _ -> _) (H : f a == a) : f (f _) == f _ :=
|
||||
SubstP (fun x : N, f (f a) == _) (Refl (f (f _))) H.
|
||||
|
||||
Show Environment 1.
|
8
tests/lean/bad10.lean.expected.out
Normal file
8
tests/lean/bad10.lean.expected.out
Normal file
|
@ -0,0 +1,8 @@
|
|||
Set: pp::colors
|
||||
Set: pp::unicode
|
||||
Set: lean::pp::implicit
|
||||
Set: pp::colors
|
||||
Assumed: N
|
||||
Defined: T
|
||||
Definition T (a : N) (f : N → N) (H : f a == a) : f (f a) == f (f a) :=
|
||||
@SubstP N (f a) a (λ x : N, f (f a) == f (f a)) (@Refl N (f (f a))) H
|
Loading…
Reference in a new issue