Sign in
◑
Theme
fuchsia
/
third_party
/
github.com
/
leanprover
/
lean4
/
refs/heads/upstream/expose-array-back
/
.
/
tests
/
elab
/
falseElimAtSimpLocalDecl.lean
blob: 1f87debe7327c9b69cad5932cddf6882eb439abf [
file
] [
edit
]
def
f
(
x
:
Nat
)
:=
0
theorem ex1
(
h
:
f x
=
1
)
:
False
:=
by
simp
[
f
]
at h
def
g
(
x
:
Nat
)
:=
[
x
]
theorem ex2
(
h
:
g x
=
[])
:
0
=
1
:=
by
simp
[
g
]
at h
theorem ex3
(
x
:
α)
(
h
:
id x
≠
x
)
:
0
=
1
:=
by
simp at h